H
HUGS
Guest
Bonsoir,
Pour pouvoir guider la saisie dans une feuille excel j'ai ces lignes :
Private Sub Worksheet_Change(ByVal Cible As Range)
If Cible = Range("B6") Then Range("C10").Select
If Cible = Range("C10") Then Range("E6").Select
End Sub
… script qui fonctionne bien pour sélectionner directement C10 lorsque la saisie est faite dans B6, puis E6 quand la saisie est faite en C10 …
Soucis : pas moyen de mettre plus d'enchainements …
Si je met :
Private Sub Worksheet_Change(ByVal Cible As Range)
If Cible = Range("B6") Then Range("C10").Select
If Cible = Range("C10") Then Range("E6").Select
If Cible = Range("E6") Then Range("D7").Select
End Sub
… ça ne marche pas, D7 n'est pas sélectionné automatiquement après la saisie en E6
Merci de votre aide.
HUGS
Pour pouvoir guider la saisie dans une feuille excel j'ai ces lignes :
Private Sub Worksheet_Change(ByVal Cible As Range)
If Cible = Range("B6") Then Range("C10").Select
If Cible = Range("C10") Then Range("E6").Select
End Sub
… script qui fonctionne bien pour sélectionner directement C10 lorsque la saisie est faite dans B6, puis E6 quand la saisie est faite en C10 …
Soucis : pas moyen de mettre plus d'enchainements …
Si je met :
Private Sub Worksheet_Change(ByVal Cible As Range)
If Cible = Range("B6") Then Range("C10").Select
If Cible = Range("C10") Then Range("E6").Select
If Cible = Range("E6") Then Range("D7").Select
End Sub
… ça ne marche pas, D7 n'est pas sélectionné automatiquement après la saisie en E6
Merci de votre aide.
HUGS