Private Sub Worksheet_Change(ByVal Target As Range)

Evelynetfrancois · 8 Avril 2007

Bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
UserForm1.Show
End Sub

ici l'action "UserForm1.Show" fonctionne des qu uin changement intervient dans la feuille !!!!
comment faire la meme chose mais que si le changement intervient dans la colonne "E" ( plus precisement de E 3 à E 65636)

merci d avance pour toutes vos aides
E et F

Mytå · 8 Avril 2007

Re : Private Sub Worksheet_Change(ByVal Target As Range)

Salut le forum

Essaye avec ceci

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E3:E65536")) Is Nothing Then
UserForm1.Show
End If
End Sub

Mytå

Edition pour ajout lien exemple de Intersect https://www.excel-downloads.com/threads/top-50-des-macros-preferees-des-xldiens.68392/

Evelynetfrancois · 8 Avril 2007

Re : Private Sub Worksheet_Change(ByVal Target As Range)

et bien !!
re MERCI beaucoup Mytå
j applique de suite !!
merci pour ta rapidité.........
a une prochaine avec plaisir .
E et F

Private Sub Worksheet_Change(ByVal Target As Range)

Evelynetfrancois

XLDnaute Impliqué

Mytå

Guest

Evelynetfrancois

XLDnaute Impliqué

Discussions similaires