Msgbox et validation ?
Résolu
-
-
-
Bonjour, j'ai une liste déroulante en cellule A1 et je voudrais que quand je choisis une valeur un msgbox s'affiche pour demander une validation. Du genre " Vous êtes sur de chosir" Oui ou Non et après lancer ma macro si oui.
Merci à vous.
http://ti1ca.com/ah8joa35-Classeur1-Classeur1.xls.html
Merci à vous.
http://ti1ca.com/ah8joa35-Classeur1-Classeur1.xls.html
A voir également:
- Msgbox et validation ?
- Pb retour sur site marchand après validation du paiement - Forum Consommation & Internet
- Excel validation des données liste - Guide
- Temps validation annonce le bon coin - Forum Réseaux sociaux
- Commande en cours de validation fnac - Forum Réseaux sociaux
- Commande Fnac en attente d’acceptation ✓ - Forum Consommation & Internet
8 réponses
Salut,
un bout de code pour lancer une macro si les valeurs changent dans la plage A1 à A10
code à coller dans les propriétés de la feuille Clic droit sur l'onglet de la feuille concernée/Visualiser le code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
x = MsgBox("Vous êtes sur de chosir", vbCritical + vbYesNo + 256, "Attention")
If x = vbYes Then
MsgBox "exécution de la macro"
End If
End If
End Sub
un bout de code pour lancer une macro si les valeurs changent dans la plage A1 à A10
code à coller dans les propriétés de la feuille Clic droit sur l'onglet de la feuille concernée/Visualiser le code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
x = MsgBox("Vous êtes sur de chosir", vbCritical + vbYesNo + 256, "Attention")
If x = vbYes Then
MsgBox "exécution de la macro"
End If
End If
End Sub
Superbe, j'ai oublié juste une petite chose, quand je reviens sur ma liste déroulante et que je choisis la cellule vide je ne voudrais pas que le msgbox s'affiche, merci d'avance
Re,
Voila qui est servi
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target <> "" Then
x = MsgBox("Vous êtes sur de chosir", vbCritical + vbYesNo + 256, "Attention")
If x = vbYes Then
MsgBox "exécution de la macro"
End If
End If
End If
End Sub
Voila qui est servi
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target <> "" Then
x = MsgBox("Vous êtes sur de chosir", vbCritical + vbYesNo + 256, "Attention")
If x = vbYes Then
MsgBox "exécution de la macro"
End If
End If
End If
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ah mince désolé, encore un oubli, vraiment pas de tête ce soir, dans le msgbox j'aimerais bien que ce qu'il y a de sélectionner apparaisse dans la msgbox exemple :
"Vous êtes sur de chosir A2"
"Vous êtes sur de chosir A2"
RE,
Comme cela
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target <> "" Then
x = MsgBox("Vous êtes sur de chosir la cellule " & Target.Address(0, 0), vbCritical + vbYesNo + 256, "Attention")
If x = vbYes Then
MsgBox "exécution de la macro"
End If
End If
End If
End Sub
Comme cela
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target <> "" Then
x = MsgBox("Vous êtes sur de chosir la cellule " & Target.Address(0, 0), vbCritical + vbYesNo + 256, "Attention")
If x = vbYes Then
MsgBox "exécution de la macro"
End If
End If
End If
End Sub