Activation macro si cellule contient texte

Bonjour a vous tous,

est possible dans la macro ci dessous au lieu de "texte" de la cellule B3 pour pouvoir activer ma macro, mais plutôt de pouvoir l'activer quelque soit le texte dans la cellule B3.

Par avance, merci

Sub messageourirfichiermodèle()

If Sheets("Feuille_modèle").Range("b3").Value = "texte" Then

Call Feuil9.Copier_Nommer_Feuilles

Else

MsgBox "Veuillez completer la fiche modèle"

End If

End Sub

Bonjour toutes et tous

@ tester (non testé) à tester sur Worksheets de la feuille modèle

Private Sub Worksheet_Change(ByVal Target As Range)
' en cas d'erreur goto plouf
On Error GoTo plouf
' condition if
If Not Application.Intersect(Target, Range("b3")) Is Nothing Then
MsgBox "Veuillez compléter la Fiche modèle"
' on garde le focus sur la cellule B3 de la feuille
Worksheets("Feuille_modèle").Range("b3").Select      ' ON PEUT SUPPRIMER  Pas obligatoire
Else  ' aussinon on fait appel à la macro Feuil9.Copier_Nommer_Feuilles
Call Feuil9.Copier_Nommer_Feuilles
End If
' fin de condition if
plouf: MsgBox "erreur"
End Sub

ce qui donne sans les commentaires et la ligne select supprimer et le goto plouf:

[code]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("b3")) Is Nothing Then
MsgBox "Veuillez compléter la Fiche modèle"
Else
Call Feuil9.Copier_Nommer_Feuilles
End If
End Sub

oupss pas lu jusqu'au bout moi, si dans la cellule B3 contient du texte

If  Worksheet("Feuille_modèle").Range("b3") <> "" Then
MsgBox "Veuillez compléter la Fiche modèle"
Else
Call Feuil9.Copier_Nommer_Feuilles
End If

crdlt,

André

Bonsoir André13

merci pour votre implication et cela fonctionne très bien.

je vous souhaite une excellente soirée.

bien cordialement