Discussion :

[plasto590807]

Bonjour,

J'ai ce code VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton_AjoutJoueur_Click()
'Bouton Ajouter des joueurs
If ComboBox_NomJoueur.Value = "" Then
    MsgBox ("Confirmez-vous les données ?", vbYesNo,"Confirmez-vous ?", vbYesNo)
 
Else
 
ComboBox_PrenomJoueur.Value = "" Then
    MsgBox ("Veuillez entrez le Prénom du joueur", vbYesNo, "Vous confirmez ?" , vbYesNo)
 
 
End If
 
End Sub

Mais j'ai une erreur ! Voici l'erreur :



J'ai cherché l'erreur, mais je ne trouve pas !!


Help me !!!!!

Merci

[QuestVba]

Hello,
Essaie comme ceci :

Code :

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

MsgBox "Confirmez-vous les données ?", vbYesNo, "Confirmez-vous ?"

On utilise les parenthèses quand on attend en retour l'information du bouton utilisé.

[plasto590807]

j'ai encore une autre erreur avec le click bouton (CommandButton_AjoutJoueur_Click() quand je clique dessus....

J'ai cette erreur :



code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton_AjoutJoueur_Click()
'Bouton Ajouter des joueurs
If TextBox_NomJoueur.Value = "" Then
MsgBox "Confirmez-vous les données ?", vbYesNo
 
Else
 
    MsgBox "Veuillez entrez le Prénom du joueur", "Confirmez-vous ?"
 
End If
 
End Sub

merci de votre aide

[Pierre Dumas]

Bonjour

Je pense que c'est tout simplement que l'objet nommé TextBox_NomJoueur n'existe pas. C'est d'ailleurs ce qu'indique le message d'erreur.
Il n'existe pas au sens "VBA" pour plusieurs raisons parmi lesquelles :
- il a peut-être été renommé
- il a peut-être été supprimé
- sur ce formulaire-ci il n'est pas présent (sur un autre oui)

En espérant que cela aide

Bonne journée

Pierre Dumas

[Menhir]

Sans certitude, je suis prêt à miser une pièce sur le fait que "CommandButton_" et "TextBox_" ne font pas partie du nom des objets.