Appliquer un code VBA à partir d'une cellule donnée

Bonjour à tous,

je sollicite votre aide, je bug depuis quelques jours.

J'ai deux fichiers : un où je fais mes analyses et un fichier source.

dans le fichier analyse, j'appelle le fichier source, je copie les données et je les colles dans un onglet de mon fichier analyse.
De cet onglet je recopie quelques données qui m’intéressent dans un nouvel onglet (toujours dans le fichier analyse).
Via une macro enregistrée (obligé de passer par cette étape pour un débutant), j'applique un code pour insérer une liste déroulante.
Quand j'appelle un nouveau fichier source, il me copie de nouvelles données, ma moulinette tourne et je copie ce qui m’intéresse en dessous de ce qui existe déjà==> Très bien

La problématique et que le code enregistré reprend toujours depuis la première ligne et ne s'applique pas seulement sur la dernière sélection copiée.

J'ai donc définis deux paramètres :
Lignemax = le nbre de ligne du tableau que je vais copier dans le fichier source = 5 par exemple
Lignemax1 = le nbre de ligne du tableau final (où j'ai copié ce qui m'intéresse dans mon fichier analyse)= 12 par exemple

donc le tableau final avait avant l'application du code 7 lignes (12 en finale - 5 qu'on vient de copier)

Comment dire en vba : insérer la liste déroulante à partir de la ligne 7 jusqu'à la ligne 12 et non pas de ligne 1 jusqu'à 12?

J'espère que c'est clair.

Merci bcp.

Bonsoir Viking, bonsoir le forum,

Un principe simple pour stocker dans une variable (nous l'appellerons par exemple DL) la dernière ligne éditée d'une colonne :

Code:

---

DL = Cells(Application.Rows.Count, "A").End(xlUp).Row

---

Ici la colonne A, tu adapteras à ton cas...

Pour stocker dans une variable (nous l'appellerons par exemple PLV) la première ligne vide d'une colonne, il suffit de rajouter +1 :

Code:

---

PLV = Cells(Application.Rows.Count, "A").End(xlUp).Row + 1

---

Si tu connais le nombre X (= Lignemax dans ton exemple) de cellules copiées, tu peux agir de la ligne PLV à PLV + X avec :

Code:

---

1 2 3

With Cells(PLV, "A").Resize(X, 1) ' le code End With

---

ou

Code:

---

1 2 3

With Range(Cells(PLV, "A"), Cells(PLV + X, "A")) ' le code End With

---

Citation:

---

Envoyé par vikingviking

La problématique et que le code enregistré reprend toujours depuis la première ligne et ne s'applique pas seulement sur la dernière sélection copiée.

Comment dire en vba : insérer la liste déroulante à partir de la ligne 7 jusqu'à la ligne 12 et non pas de ligne 1 jusqu'à 12?

---

Il faudrait que tu montres le code en question (de préférence avec des balises CODE) pour qu'on puisse trouver comment le modifier selon ces prescriptions.

Merci beaucoup, c'est exactement ce qu'il me manquait.

cdt

Citation:

---

Envoyé par Menhir

Il faudrait que tu montres le code en question (de préférence avec des balises CODE) pour qu'on puisse trouver comment le modifier selon ces prescriptions.

---

Voici mon code final (que j'ai enregistré puis adapté à ce que je veux)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Lignemax = Application.WorksheetFunction.CountA(Range("A:A")) PLV = Cells(Application.Rows.Count, "C").End(xlUp).Row + 1 With Range(Cells(PLV, "T"), Cells(PLV + Lignemax, "T")).Validation   .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Feuil3!$A$1:$A$2" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With

---

j'abuse de votre gentillesse, mais je débute:

et pour appliquer cette formule GAUCHE(G2;CHERCHE("-";G2)-1) pour la cellule (i,"C"), i étant variable de 2 jusqu'à un la dernière ligne non vide

Code:

---

1 2 3

debut = Feuil3.Range("CC1").Value '(Nombre de ligne non vide) debut = debutt + 1 Feuil3.Cells(debutt, "C").Value = '????

---

Merci bien

Re,

Attention debut et debutt...