Discussion :

[Alain16110]

Bonjour,

je suis un tuto et dés le début je plante "Erreur 348"

Je joint le fichier qui m'énerve.

Merci de votre réponde et d'épargner mon ignorance

Cordialement

[Fab_de_chez_PERFORM]

Bonjour
il y a 2 ou 3 erreurs dans ce code

Le code devrait être placé sur le CommandButton1_Click
Le nom utilisé pour la textbox est faux (dans le fichier c'est TextBox1, dans le code Textbox1_recherche)
Le code pour la message box ne doit pas contenir de =

Au final il faudrait avoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
   If Sheets("Feuil1").TextBox1.Value = "" Then
 
        MsgBox "vide"
 
    Else
MsgBox "pas vide"
    End If
 
End Sub

[Alain16110]

Super

Merci de ta réponse Fab_de_chez_PERFORM
Cela fonction, je ne voyais pas l'évidence.

Plus on cherche moins on trouve

Bonne fin journée

Cordialement