Pbl VBA : change tout seul une lettre
galeredunet
-
Mike-31 Messages postés 19571 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19571 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'ai créé une fonction MsgBox "YesNoCancel" sur VbA et il change tout seul "Case vbYes" par "Case vbyes" (il met le y en minuscule dès que je quitte cette ligne!) et du coup la macro ne reconnait pas cette fonction ...
que faire ?
Merci d'avance
j'ai créé une fonction MsgBox "YesNoCancel" sur VbA et il change tout seul "Case vbYes" par "Case vbyes" (il met le y en minuscule dès que je quitte cette ligne!) et du coup la macro ne reconnait pas cette fonction ...
que faire ?
Merci d'avance
A voir également:
- Pbl VBA : change tout seul une lettre
- Excel compter cellule couleur sans vba - Guide
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
4 réponses
Salut le Forum
Essaye comme ceci
Mytå
Essaye comme ceci
Select Case Response
Case Is = vbYes
MsgBox ("You pressed yes button")
Case Is = vbNo
MsgBox ("you pressed no button")
Case Is = vbCancel
MsgBox ("You pressed cancel button")
End Select
Mytå
Salut,
Dans le code il doit y avoir d'autres vbYes
devant chaque ligne contenant un vbYes place une apostrophe, saisi correctement tes vbYes et retire les apostrophes
Dans le code il doit y avoir d'autres vbYes
devant chaque ligne contenant un vbYes place une apostrophe, saisi correctement tes vbYes et retire les apostrophes
salut,
merci pour ces réponses rapides, malheureusement ça ne fonctionne pas..
Myta :que propose tu exactement ? parce que je veux qu'il y ait des actions differentes en fonction de la réponse émise du coup je ne suis pas sûr que ta syntaxe fonctionne...
Mike 31 :c'est ma seule MsgBox donc je n'ai aucune autre fonction vbYes ...
voici mon code pour être plus clair :
Sub message_accueil()
'MsgBox Oui+non+abandonner+icône question
Select Case MsgBox("Souhaitez vous connaitre la bonne réponse ?" & Chr(10) & "Oui" & Chr(10) & "Non = revoir la question" & Chr(10) & "Annuler = rester sur la page d'accueil", vbYesNoCancel + vbQuestion, "Que voulez vous faire?")
vbyes 'procédure si ok
Sheets("REPONSE").Select
Case vbNo 'procédure si non
Sheets("QUESTION).Select
Case vbCancel 'procédure cancel
Sheets("LANCEMENT").Select
End Sub
merci pour ces réponses rapides, malheureusement ça ne fonctionne pas..
Myta :que propose tu exactement ? parce que je veux qu'il y ait des actions differentes en fonction de la réponse émise du coup je ne suis pas sûr que ta syntaxe fonctionne...
Mike 31 :c'est ma seule MsgBox donc je n'ai aucune autre fonction vbYes ...
voici mon code pour être plus clair :
Sub message_accueil()
'MsgBox Oui+non+abandonner+icône question
Select Case MsgBox("Souhaitez vous connaitre la bonne réponse ?" & Chr(10) & "Oui" & Chr(10) & "Non = revoir la question" & Chr(10) & "Annuler = rester sur la page d'accueil", vbYesNoCancel + vbQuestion, "Que voulez vous faire?")
vbyes 'procédure si ok
Sheets("REPONSE").Select
Case vbNo 'procédure si non
Sheets("QUESTION).Select
Case vbCancel 'procédure cancel
Sheets("LANCEMENT").Select
End Sub
Re le Forum
Il manque des instructions dans ta procédure.
Mytå
Il manque des instructions dans ta procédure.
Sub message_accueil()
'MsgBox Oui+non+abandonner+icône question
Select Case MsgBox("Souhaitez vous connaitre la bonne réponse ?" & Chr(10) & "Oui" & Chr(10) & "Non = revoir la question" & Chr(10) & "Annuler = rester sur la page d'accueil", vbYesNoCancel + vbQuestion, "Que voulez vous faire?")
Case vbYes 'procédure si ok
Sheets("REPONSE").Select
Case vbNo 'procédure si non
Sheets("QUESTION").Select
Case vbCancel 'procédure cancel
Sheets("LANCEMENT").Select
End Select
End Sub
Mytå
Re,
Tu peux mettre à notre disposition ton fichier sans note confidentielle que l'on voit cette curiosité
avec ce lien
https://www.cjoint.com/
Tu peux mettre à notre disposition ton fichier sans note confidentielle que l'on voit cette curiosité
avec ce lien
https://www.cjoint.com/
