Macro validation de données

[salsitawapa]

Bonjour, j'ai fais cette petite macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D24")) Is Nothing Then
sup
End If
End Sub

Le soucis est que je n'arrive pas à dire que si en D24 il n'y a rien, alors il va directement à end sub sans passer par la macro "sup"

Merci de votre aide.
PS : rien à voir avec mes précédentes demande

 

[camarchepas]

Re : Macro validation de données

Bonsoir ,

Comme cela peut être

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D24")) Is Nothing and  Range("D24")<>"" Then
sup
End If
End Sub

 

[salsitawapa]

Re : Macro validation de données

Merci je cherchais depuis tout à l'heure plus compliqué... avec des isempty, je comprends pourquoi ça ne fonctionnait pas !!!

Merci pour la rapidité et l’efficacité

 

[salsitawapa]

Re : Macro validation de données

Désolé de revenir dessus, si je veux mettre une autre condition pour lancer automatiquement une autre macro, comme faire ? J'ai testé sans succès

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("O3")) Is Nothing Then
sup1111
End If
If Not Intersect(Target, Range("D24")) Is Nothing and  Range("D24")<>"" Then
sup
End If
End Sub

Merci

 

[camarchepas]

Re : Macro validation de données

Bonjour ,

Est-ce que dans la macro sup 1111 l'on modifie O3 ou D24 ?

Si oui , il faut désactiver les évenementiels le temps de l'éxécution de la macro,

si non , cela devrait fonctionner comme cela.

 

[salsitawapa]

Re : Macro validation de données

Bonjour à tous,
Chaques cellules sont indépendante. On peut en modifier une sans modifier l'autre, leurs macro sont différentes également.
C'est donc pour ça que j'ai eu beaucoup de plantage d'excel en testant pleins de macro...

 

[camarchepas]

Re : Macro validation de données

Oui donc pour désactiver les évenementiels ,

Mettre en début de traitement

application.EnableEvents = false

puis en derniere ligne de traitement

application.EnableEvents= True

Si tu n'arrives pas à implanter cette méthode , post un fichier exemple, même simplifié et Anonymisé .

 

[salsitawapa]

Re : Macro validation de données

Super merci, ça fonctionne à merveille...

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("D24")) Is Nothing And Range("D24") <> "" Then
sup
End If
If Not Intersect(Target, Range("P3")) Is Nothing Then
sup1111
End If
Application.EnableEvents = True
End Sub

Merci pour tout