piwa
XLDnaute Occasionnel
Bsr,
J'ai une cellule (I2) qui change de valeur a chaque choix d'une liste deroulante (renvoie 1 quand choix du premier de la liste etc... cellule liée).
J'ai entré ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I2")) Is Nothing Then
Select Case Target.Value
Case 1
' Lance la Macro correspondant au choix 1 : Module1.Vendeur_1
Call Module1.Vendeur_1
Case 2
' Lance la Macro correspondant au choix 2 : Module1.Vendeur_2
Call Module1.Vendeur_2
Case 3
Call Module1.Vendeur_3
Case Else
Exit Sub
End Select
End If
End Sub
Malheuresuement quand je change de choix 1 2 ou 3 dans laliste deroulante .. rien... par contre quand je modifie manuellement la valeur pour 1 2 ou 3 Impec?????????????????? Pourkoi tant de haine ????
De plus comme vous le voyez je voudrai que le Call Module1.VendeurX ou X serait le resultat de I2, m'evitant ainsi des lignes de codes inutiles...
PS : Je ne maitrise pas du tout VBA... le code ci dessus m'a ete fournis ici meme et je remercie le forum pour tout cela.............
J'ai une cellule (I2) qui change de valeur a chaque choix d'une liste deroulante (renvoie 1 quand choix du premier de la liste etc... cellule liée).
J'ai entré ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I2")) Is Nothing Then
Select Case Target.Value
Case 1
' Lance la Macro correspondant au choix 1 : Module1.Vendeur_1
Call Module1.Vendeur_1
Case 2
' Lance la Macro correspondant au choix 2 : Module1.Vendeur_2
Call Module1.Vendeur_2
Case 3
Call Module1.Vendeur_3
Case Else
Exit Sub
End Select
End If
End Sub
Malheuresuement quand je change de choix 1 2 ou 3 dans laliste deroulante .. rien... par contre quand je modifie manuellement la valeur pour 1 2 ou 3 Impec?????????????????? Pourkoi tant de haine ????
De plus comme vous le voyez je voudrai que le Call Module1.VendeurX ou X serait le resultat de I2, m'evitant ainsi des lignes de codes inutiles...
PS : Je ne maitrise pas du tout VBA... le code ci dessus m'a ete fournis ici meme et je remercie le forum pour tout cela.............