Discussion :

[Invité]

Bonjour,

Je viens vers vous parce que j'ai un petit souci, que je pense facile à résoudre:

J'ai une Colonne A ou il n'y a que des LOTS (LOTS 10; LOTS 12; LOT 50) etc et je veux faire une liste déroulante dans la colonne D mais de telle facon que les choix soient ; FTM&numéro lot& 01 jusqu'a 40; donc
Donc par exemple pour un LOT 15 une liste déroulante FTM1501 FTM1502 ..... FT1550,
J'ai déja essayé de faire un énorme tableau et définir une plage sur une feuille "source" mais cela n'a pas fonctionné
Merci d'avance

[Thautheme]

Bonjour Walido, bonjour le forum,

Une proposition VBA qui s'exécute à l'ouverture du classeur (à placer dans le composant ThisWorkbook) :

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
17
18
19
20
Private Sub Workbook_Open() 'à l'ouverture du classeur
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim L As String 'déclare la variable L (Liste)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("A2").CurrentRegion 'définit le tableau des valeur TV
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeur TV (en partant de la seconde)
    L = "FTM" & Split(TV(I, 1), " ")(1) & "01" 'initialise la liste L
    For J = 2 To 40 'boucle de 2 à 40 (remplace par 50 si nécessaire car c'est pas clair dans ton explication)
        L = L & "," & "FTM" & Split(TV(I, 1), " ")(1) & CStr(Format(J, "00")) 'redéfinit la liste L
    Next J 'prochaine valeur de la boucle
    With O.Cells(I, "D").Validation 'prend en compte la validation de donnée dans la cellule ligne I colonne D
        .Delete 'supprime une éventuelle ancienne validation de donnée
        .Add xlValidateList, Formula1:=L 'définit la liste L comme liste de validation de donnée
    End With 'fin de la prose en compte dela validation de donnée dans la cellule ligne I colonne D
Next I 'prochaine ligne de la boucle
O.Activate.Active L 'onglet O
End Sub

[Invité]

Bonjour,

Je te remercie infiniment de ton aide je pense que c'est exactement ce que je veux du point de vue code,
mais il me dit qu'il y a juste une erreur au niveau de la dernière ligne O.Activate.Active

[Invité]

Apparament il me met pour O.Activate (fonction ou variable attendue)

[Invité]

Mais en tout cas merci beaucoup pour ton aide

[Thautheme]

Re,

Oui désolé, c'est un mauvais placement de l'apostrophe du commentaire

Code :

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

O.Activate 'active l'onglet O

Tu peux même supprimer la ligne si tu ne veux pas aller sur cet onglet.