Bonjour, je souhaiterai savoir si avec la l'évènement Private Sub Worksheet_Change(ByVal Target As Range) ont peut mettre deux condition?
Cultuellement j'ai cette condition là:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim tablCode
tablCode = Array(31, 34, 36, 18, 99)
If Target.Column = 21 Or Target.Column = 24 Or Target.Column = 27 Or Target.Column = 30 Then
For i = 0 To 4
If Target.Value = tablCode(i) Then
.....
la suite est l'envoie d'un mail.
Avant l'envoie du mail j'aimerai qu'une deuxième condition soit mit en place.
If Target.Column = 23 Or Target.Column = 26 Or Target.Column = 29 Or Target.Column = 32 Then
If target.value <>"" then
mail
Est-ce possible? si oui comment l'écrire correctement?
Merci
Cultuellement j'ai cette condition là:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim tablCode
tablCode = Array(31, 34, 36, 18, 99)
If Target.Column = 21 Or Target.Column = 24 Or Target.Column = 27 Or Target.Column = 30 Then
For i = 0 To 4
If Target.Value = tablCode(i) Then
.....
la suite est l'envoie d'un mail.
Avant l'envoie du mail j'aimerai qu'une deuxième condition soit mit en place.
If Target.Column = 23 Or Target.Column = 26 Or Target.Column = 29 Or Target.Column = 32 Then
If target.value <>"" then
Est-ce possible? si oui comment l'écrire correctement?
Merci