VBA : combiner plusieurs private sub worksheet_change

[dionys0s]

Bonsoir le forum

voici mon soucis.
Je n'arrive pas à combiner plusieurs évènementielles.

Ce code-ci fonctionne :

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

If Target.Address <> "$B$1" Then Exit Sub
    Call CopSocAdr
    Range("B2").Select

Application.ScreenUpdating = True

End Sub

Je voudrais rajouter la condition suivante :

si la cellule B2 est modifiée, sélectionner la cellule E3.

Je cherche sur internet depuis un moment, et je ne trouve rien...
Je vais continuer à chercher, mais si quelqu'un sait comment faire pour rajouter une execution par modification d'une autre cellule, je suis preneur.

Bonne nuit tout le monde

 

[Banzai64]

Re : VBA : combiner plusieurs private sub worksheet_change

Bonsoir

Une idée ou je me plante

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

If Target.Address = "$B$1" Then 
    Call CopSocAdr
    Range("B2").Select
ElseIf Target.Address = "$B$2" Then
    Range("E3").Select
End If
Application.ScreenUpdating = True

End Sub

 

[dionys0s]

Re : VBA : combiner plusieurs private sub worksheet_change

Ca marche !
Merci beaucoup.

 

[ROGER2327]

Re : VBA : combiner plusieurs private sub worksheet_change

Bonsoir à tous

Une autre possibilité :

[COLOR=DarkSlateGray][B]Private Sub Worksheet_Change(ByVal Target As Range)
  Application.ScreenUpdating = False
  Select Case Target.Address(0, 0)
  Case "B1"
    Call CopSocAdr
    Range("B2").Select
  Case "B2"
    Range("E3").Select
  End Select
  Application.ScreenUpdating = True
End Sub[/B][/COLOR]

ROGER2327
#4498

Samedi 7 As 138 (Saint Cyrano de Bergerac, explorateur, SQ)
19 Brumaire An CCXIX
2010-W45-2T23:44:28Z

 

[dionys0s]

Re : VBA : combiner plusieurs private sub worksheet_change

merci pour votre alternative Roger2327.
Nul besoin de préciser qu'elle fonctionne parfaitement.
Oui je viens de le faire.