Insertion boite de dialogue + condition si
Bonjour,
Je souhaiterais mettre en place une macro dans un fichier qui se construit comme suit :
si une cellule définie est égale à un texte défini alors insertion d'une boite de dialogue automatique OK / ANNULER.
Si OK : continuer la macro
si ANNULER : terminer la macro
Sauf que je me perds dans la syntaxe VBA.
Ci dessous le code que j'ai élaboré, mais qui ne fonctionne pas..:
If Worksheets("Accueil").Range("A2") = "Sélectionnez votre nom" Then
MsgBox("Le nom du gestionnaire est absent" & Chr(10) & " veuillez le sélectionner", vbOKCancel, "Demande de Confirmation") = vbCancel Then
Cancel = ExitSub
End If
Else
(ma macro continue ..........)
End If
Où est mon erreur ?
Merci d'avance pour l'aide que vous m'apporterez.
Naïka
Bonjour
Une boîte de dialogue Excel est modal (c'est à dire que tu es obligé de choisir une action avant de continuer)
Je veux dire que tu ne pourras pas choisir un nom avant de sélectionner "OK"
Dans n'importe quel cas il n'y aura pas de possibilité de modifier A2
Le plus simple c'est de quitter le programme si pas de choix
Moi je ferai cela (mais je ne connais pas ton contexte)
Sub test()
If Worksheets("Accueil").Range("A2") = "Sélectionnez votre nom" Then
MsgBox "Le nom du gestionnaire est absent" & Chr(10) & " veuillez le sélectionner", vbQuestion + vbOKOnly, "demande de Confirmation"
Exit Sub
End If
'(ma macro continue ..........)
End Subexclication de la demande :
dans la cellule A2 on a un menu déroulant (Nom 1 ; Nom 2 ; Sélectionnez votre nom)
on a créé un bouton pour sauvegarder les données .
mais avant la sauvegarde on souhaite :
Si dans la cellule A2 il y a écrit "sélectionner votre nom" alors un message s'affiche pour demander de sélectionner un nom.
la macro précédente ne fonctionne donc pas
Merci
alban
Bonjour
alban a écrit :la macro précédente ne fonctionne donc pas
??????
Le fil est marqué résolu
Solution ok ou solution pas ok ?
Merci ou non ?
c'est OK
on a contourné notre problème ... maitenant cette macro fonctionne
merci à vous