Discussion :

[guilld]

Bonjour !!

Je cherche à faire un "SELECT CASE" avec ce bout de code :

Code :

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

Range("B7").Formula = "=VLOOKUP(""EX"",AN:AS,2,FALSE)"

J'aimerai que ce SELECT gére le "2" (référence à une colonne d'un TCD). Car sur la feuille de calcul, j'ai plusieurs boutons et suivant sur lequel on clique. La référence colonne du TCD doit changer pour devenir "3 ou "4" ou "5".
Pour le moment j'ai pas trouvé mieux que de répéter le code pour chaque option (bouton 2, bouton 3, bouton 4, bouton 5).

En espérant être assez clair..
Merci!

[78chris]

Bonjour

Si tu as un numéro de bouton tu remplaces 2 par ce numéro et tu construis ta formules en concaténant le début puis ce numéro puis le fin.

Code :

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

Range("B7").Formula = "=VLOOKUP(""EX"",AN:AS," & numbouton & ",FALSE)"

Edit : mais il serait sans doute plus simple d'utiliser pour ces problèmes de décalage LIREDONNEESTABCROISDYNAMIQUE...

[guilld]

Un exemple peut être.. Car je ne vois pas bien...
Merci

[78chris]

Re,

Il serait plus simple de partir de ton exemple que d'en construire un qui risque d'être différent...

[guilld]

Voici mon XLSX.
Sur l'onglet "Plan", il y a 6 boutons. En cliquant sur l'un d'entre eux, le code met à jour les cellules.. Donc c'est ici que j'aurai besoin d'un SELECT CASE afin de simplier et ne pas dupliquer les lignes.
Merci!

[78chris]

Re,

Je ne vois pas le code donc cela n'avance pas trop mais bon tu dois avoir Private Sub Lot_Click() ainsi que Private Sub Part_Click()

Tu appelles depuis chacune de ces procédures celle qui fait les autres manips en lui passant le numéro de la colonne voulue : call maproc(2)

et dans cette procédure Sub Maproc(numbouton as byte) tu mets

Code :

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

Range("B7").Formula = "=VLOOKUP(""EX"",AN:AS," & numbouton & ",FALSE)"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Lot_Click()
 
    Call Maproc(2)
 
End Sub
 
Private Sub Part_Click()
    Call Maproc(3)
End Sub
 
Sub Maproc(numbouton As Byte)
    Range("B7").Formula = "=VLOOKUP(""EX"",AN:AS," & numbouton & ",FALSE)"
End Sub

Colonnes à adapter...