Discussion :

[vikingviking]

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.

[Thautheme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vikingviking]

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

cdt

[Menhir]

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.

[vikingviking]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vikingviking]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci bien

[Thautheme]

Re,

Attention debut et debutt...