G
gg
Guest
Bonjour,
Le code VBA ci-dessous qui a été élaboré par Thierry fonctionne à merveille lorsque l'on saisi le numéro correspondant dans la cellule B5.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
Select Case Target.Value
Case 1: reg1
Case 2: reg2
Case 3: reg3
Case 4: reg4
Case 5: reg5
Case 6: reg6
Case Else: MsgBox "Non Valide", vbCritical
End Select
End If
End Sub
Par contre si le numéro de la cellule B5 est affiché depuis une liste déroulante, l'exécution de la macro correspondante ne s'effectue pas.
Auriez-vous une idée sur ce qu'il manque pour remédier à cela ?
Remerciements et bonne journée.
Le code VBA ci-dessous qui a été élaboré par Thierry fonctionne à merveille lorsque l'on saisi le numéro correspondant dans la cellule B5.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
Select Case Target.Value
Case 1: reg1
Case 2: reg2
Case 3: reg3
Case 4: reg4
Case 5: reg5
Case 6: reg6
Case Else: MsgBox "Non Valide", vbCritical
End Select
End If
End Sub
Par contre si le numéro de la cellule B5 est affiché depuis une liste déroulante, l'exécution de la macro correspondante ne s'effectue pas.
Auriez-vous une idée sur ce qu'il manque pour remédier à cela ?
Remerciements et bonne journée.