j'aimerais rajouter une petite macro à un fichier excel.
Si un utilisateur tape un mot dans une cellule ,'excel' par exemple un msgbox apparaît. Par contre il ne faut pas que ce msgbox apparaisse pour un mot comme 'excellent'.
Je pense que ce doit être possible par une procédure événementielle, mais mes connaissances en macro sont trop sommaires.
Voici un code à mettre dans le Private Module de la Feuille en question (Depuis Excel, click droit sur l'onglet de Feuille et dans le menu contextuel choisir 'Visuliser le code')
OptionCompareText
PrivateSub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = 'A1' Then If Target = 'Excel' Then
MsgBox 'Glop Glop' EndIf EndIf EndSub
Un petit exemple à placer en VBA (ALT + F11) dans la feuille où se trouve tes données.
Code:
option compare text
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Range('A1')
Case Is = 'excel'
MsgBox 'ce nom est incorrect'
End Select
End Sub
Avec Range A1 = la cellule concernée par le mot 'excel'
si pb n'hésite pas.
Edition : Oups Thierry ! presque la collision !!Même chose pour l'option compare text que j'ai rajoutée ci-dessus.