Bonjour ,j’aurai besoin d’aide ,il me faudrait une message box qui s’affiche automatiquement lorsque dans une liste déroulante en A1 tel ou tel argument est saisi
if range("A1")= "xxx" then
msgbox " mon message vous informe"
end if
mais je n’arrive pas a l’automatiser .
Merci d’avance
S’il s’agit de programmation excel, il faut que tu programmes un évènement.
Tu vas dans Visual Basic, tu cliques sur feuil1.dans l’onglet de projet
Ensuite, dans la fenêtre principale, tu choisis dans les listes déroulantes worksheet et change
Tu vas avoir un squelette de fonction :
[b]Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
[/b]
Tu y places ton code, en remplaçant range(“A1”) par l’argument d’entrée b[/b]
Edité le 12/01/2008 à 10:57
Le problème c’est que dans cette configuration ,une fois la condition vrai ,ça affiche le message pour toutes les cellules que je change (a2 c1 …)alors que je ne veux qu’il s’affiche que pour A1
Tu peux faire une restriction dans ta fonction
Target est un Range, donc il a une adresse :
if Target.address <> “$A$1” then exit sub
Merci beaucoup ça marche nickel