Macro Excel pour sélectionner les valeurs de la list déroulante et copyr-coller les valeurs

J'ai une feuille excel qui a beaucoup de calcul en fonction des valeurs disponibles dans la list déroulante dans B1.

Jusqu'à présent, ce que j'ai fait, c'est 1. Créé une list noyée dans la cellule B1 dans la feuille "Configurateur ACCM" en fonction de la gamme de la feuille "Analyse – Modèle" $ A: $ A (blancs ignorés) 2. Basé sur la valeur a sélectionné la list déroulante dans la cellule B1, j'ai créé de nombreux calculs à l'aide de la formule dans les endroits A6: J33 dans la feuille "Configurateur ACCM"

Ce que je veux atteindre est maintenant: 1. select chaque valeur dans la list déroulante dans B1 et copyz les valeurs calculées pour chaque valeur déroulante de la gamme A6: J33 et collez dans une nouvelle feuille appelée "ACCM Append" 2. Ignorer toutes les lignes vierges 3. A5: J5 a des en-têtes, donc attendu que ce soit coller comme un en-tête dans la feuille "ACCM Append"

si collez comme nouvelle gamme

Sub DropDown1_Change() 'A6:J33 range rangeCopy = Sheets("ACCM Configurator").range(Cells(6, 1), Cells(33, 10)).value lastR = Sheets("ACCM Append").range("a:f").Find(What:="*", After:=Sheets("ACCM Append").Cells(1, 1), SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlFormulas).row 'paste after last used range Sheets("ACCM Append").Cells(lastR + 1, "A").Resize(UBound(rangeCopy, 1), UBound(rangeCopy, 2)).value = rangeCopy End sub

si pate dans la même gamme

 Sub DropDown1_Change() 'A6:J33 range rangeCopy = Sheets("ACCM Configurator").range(Cells(6, 1), Cells(33, 10)).value 'paste after last used range Sheets("ACCM Append").Cells(2, "A").Resize(UBound(rangeCopy, 1), UBound(rangeCopy, 2)).value = rangeCopy End sub

Notez ce que sur les feuilles ("ACCM Append") dans la première ligne doit être des valeurs d'en-têtes