Affichage d'un msgbox
bonjour a tous
je cherche a faire afficher un msgbox si la cellule O4 affiche 1 sachant que ce 1 s'inscrit par cette formule =INDEX(cession;EQUIV($B$2;magasin;0))
j'y suis arrivé en tapant ce code
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Bon de prepa Z")
If Range("O4") = 1 Then MsgBox "mon message"
End With
End Subcela fonctionne mais quand je clique sur une autre cellule vide de la feuille pour y inscrire un chiffre le msgbox s'affiche aussi sans pour autant avoir toucher a la cellule O4
amicalement
Bonjour, bonjour !
Oui, c'est normal, VBA ne se trompe jamais, il exécute le code même s'il est mal conçu !
Dans l'évènement, Target représente la cellule modifiée : donc tester son adresse si elle correspond (.Address) …
re
merci de ta réponse si rapide
houla je ne comprend pas trop bien ce que tu me dit je suis novice en vba
donc le problème se situe dans la formule de la cellule o4 si je comprend bien
mais comment le contourner ???
amicalement
Bonjour, teddy33
A tester fonctionne avec un double-clic uniquement sur la cellule O4, mais avec n'importe quelle valeur
Amicalement
Pierrot
Ai-je évoqué la formule ? Relire mon message précédent !
Un exemple dans un sujet du forum entre autres …