VBA : combiner plusieurs private sub worksheet_change

dionys0s · 10 Novembre 2010

Bonsoir le forum

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

Ce code-ci fonctionne :

Code:

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 · 10 Novembre 2010

Re : VBA : combiner plusieurs private sub worksheet_change

Bonsoir

Une idée ou je me plante

Code:

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 · 10 Novembre 2010

Re : VBA : combiner plusieurs private sub worksheet_change

Ca marche !
Merci beaucoup.

ROGER2327 · 10 Novembre 2010

Re : VBA : combiner plusieurs private sub worksheet_change

Bonsoir à tous

Une autre possibilité :

Code:

[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 · 10 Novembre 2010

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.

VBA : combiner plusieurs private sub worksheet_change

dionys0s

XLDnaute Impliqué

Banzai64

XLDnaute Accro

dionys0s

XLDnaute Impliqué

ROGER2327

XLDnaute Barbatruc

dionys0s

XLDnaute Impliqué

Discussions similaires

VBA : combiner plusieurs private sub worksheet_change

dionys0s

XLDnaute Impliqué

Banzai64

XLDnaute Accro

dionys0s

XLDnaute Impliqué

ROGER2327

XLDnaute Barbatruc

dionys0s

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency