macro evenementielle

Jacques25 · 18 Janvier 2006

Bonsoir à tous,

J'aurai besoin d'un peu d'aide sur la macro suivante (modifié pour être plus simple):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value = '' Then
Je fais quelquechose
Else
Je fais autre chose
End If
Target.Select
End Sub

Je voudrai la même chose, quand je modifie une valeur en colonne 1 que ça fasse 'le quelque chose' ou 'l'autre chose' sauf quand c'est les cellule A1 à A3 qui sont modifiées.
Est ce que c'est possible et pouvez vous me dire comment.

Merci à vous tous

Jacques

Hervé · 18 Janvier 2006

bonsoir jacques

peut etre comme ceci :

If Target.Column = 1 And Target.Row > 3 Then

salut

myDearFriend! · 18 Janvier 2006

Bonsoir Jacques25, Hervé, le Forum,

Une autre solution possible :

Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Application.Intersect(Target, Range('A4:A65536' )) Is Nothing Then
            If Target.Value = '' Then
                  'Je fais quelquechose
            Else
                  'Je fais autre chose
            End If
      End If
End Sub

Cordialement,

macro evenementielle

Jacques25

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

myDearFriend!

XLDnaute Barbatruc

Discussions similaires