Discussion :

[Edaine]

Bonjour,

J'ai mis une macro dans le code de ma feuille pour faire en sorte qu'elle se lance dès qu'on modifie une valeur dans une cellule,

Jusque là tout fonctionne très bien,

Sauf que j'aimerai que ma macro ne se lance pas si je supprime les valeurs de ces cellules..

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim i As Byte
    i = Target.Row
 
        If Not Application.Intersect(Target, Range("A2:A200")) Is Nothing Then
        Comparaison i
        End If
 
End Sub

Est-ce que je dois utiliser un If?

Je ne vois pas trop comment faire..



Merci !

[mercatog]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("A2:A200")) Is Nothing And Target.Count = 1 Then
    If Target.Value <> "" Then
        Application.EnableEvents = False 'au cas où la macro Compraison change des données sur la feuille
        Comparaison Target.Row
        Application.EnableEvents = True
    End If
End If
End Sub

[Edaine]

Génial !


Merci beaucoup ^^

Je n'avais pas du tout pensé à mettre le "<>" alors que je l'ai utilisé dans d'autres macros :s