cherche un mot

[odile]

bonsoir à toutes et à tous


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.

Si quelqu'un peut m'aider ?
Amicalement
Odile

 

[_Thierry]

Bonsoir Odile, le Forum

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')

Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = 'A1' Then
        If Target = 'Excel' Then
            MsgBox 'Glop Glop'
        End If
    End If
End Sub

L'Option Compare Text en Top de Module permettra de saisir indifféremment en MAJ ou en min...

Bonne nuit
[ol]@+Thierry[/ol]

 

[Dan]

Bonsoir,

Un petit exemple à placer en VBA (ALT + F11) dans la feuille où se trouve tes données.

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.

Message édité par: Dan, à: 02/04/2006 23:37

 

[odile]

merci à tous les deux c'est exactement ce que je cherchais
Odile

 

[_Thierry]

Salut cher ami Dan, re Odile

Arf deux minutes de moins et d'une main avec plus d'explications !!! lol Dan !

Odile, heureux d'avoir pu te rendre service à nous deux.

Bonne nuit
[ol]@+Thierry[/ol]