MsgBox différente selon valeur d'une cellule
Résolu
Mistral_13200
Messages postés
636
Date d'inscription
Statut
Membre
Dernière intervention
-
Mistral_13200 Messages postés 636 Date d'inscription Statut Membre Dernière intervention -
Mistral_13200 Messages postés 636 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Je souhaiterais, dans un classeur Excel, afficher un message, à l'aide d'une MsgBox, différente chaque fois que la valeur de la cellule "G5" de la feuille "Menu" change de valeur. Cette cellule peut prendre les valeurs de 1 à 3. J'ai testé ce qui suit et ça fonctionne bien :
Ce que je ne parviens pas à faire c'est la surveillance de la cellule "G5".
Je crois également que l'idéal serait de placer cette procédure dans une Worcksheet de la feuille Menu.
Merci d'avance pour votre aide.
Cordialement
Mistral
Je souhaiterais, dans un classeur Excel, afficher un message, à l'aide d'une MsgBox, différente chaque fois que la valeur de la cellule "G5" de la feuille "Menu" change de valeur. Cette cellule peut prendre les valeurs de 1 à 3. J'ai testé ce qui suit et ça fonctionne bien :
Sub MacroEssais()
Dim Num_Concours
Num_Concours = Sheets("Menu").Range("G5")
Select Case Num_Concours
Case Is = 1
MsgBox (" Message1"), vbInformation
Case Is = 2
MsgBox (" Message2"), vbInformation
Case Is = 3
MsgBox (" Message3"), vbInformation
End Select
End Sub
Ce que je ne parviens pas à faire c'est la surveillance de la cellule "G5".
Je crois également que l'idéal serait de placer cette procédure dans une Worcksheet de la feuille Menu.
Merci d'avance pour votre aide.
Cordialement
Mistral
A voir également:
- MsgBox différente selon valeur d'une cellule
- Excel couleur cellule selon valeur - Guide
- Aller à la ligne dans une cellule excel - Guide
- Proteger cellule excel - Guide
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Diviser une cellule excel en deux horizontalement ✓ - Forum Excel
11 réponses
Bonjour,
Essayez avec une procédure [Private Sub Worksheet_Change(ByVal Target as Range)
] dans laquelle vous insérez votre code et la placée dans le module de la feuille concernée.
Essayez avec une procédure [Private Sub Worksheet_Change(ByVal Target as Range)
] dans laquelle vous insérez votre code et la placée dans le module de la feuille concernée.
Tout d'abord merci pour votre réponse, mais il reste malgré tout à surveiller le changement d'état de la cellule "G5" que je ne parviens à faire.
J'ai déjà mis le code ci-dessus dans une procédure
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mais je n'affiche pas les différentes MsgBox. Comment faire?
Cordialement
Mistral
J'ai déjà mis le code ci-dessus dans une procédure
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mais je n'affiche pas les différentes MsgBox. Comment faire?
Cordialement
Mistral
En fait les MsgBox s'affichent chaque fois qu'une cellule de la feuille est modifiée alors que je souhaiterais que l'affichage ne se fasse que lorsque la cellule "G5" est modifiée.
bonjour à tous les deux
fonctionne, mais si on modifie G5 "à la main",
si le contenu de G5 est une formule, ça ne fonctionne pas et je ne sais pas faire !
bonne suite
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Num_Concours As Long
If Not Intersect(Sheets("menu").Range("G5"), Target) Is Nothing Then
Num_Concours = Sheets("Menu").Range("G5")
Select Case Num_Concours
Case Is = 1
MsgBox (" Message1"), vbInformation
Case Is = 2
MsgBox (" Message2"), vbInformation
Case Is = 3
MsgBox (" Message3"), vbInformation
End Select
End If
End Sub
fonctionne, mais si on modifie G5 "à la main",
si le contenu de G5 est une formule, ça ne fonctionne pas et je ne sais pas faire !
bonne suite
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ca ne fonctionne pas!
Le contenu de la cellule "G5" est choisi dans une liste déroulante.
J'ai fait l'essais sur une feuille indépendante en forçant manuellement la valeur de la cellule "G5" mais c'est quand même pas bon.
Les MsgBox s'affichent quand on sélectionne la cellule et il faudrait que les MsgBox s'affichent uniquement quand on valide la cellule
Le contenu de la cellule "G5" est choisi dans une liste déroulante.
J'ai fait l'essais sur une feuille indépendante en forçant manuellement la valeur de la cellule "G5" mais c'est quand même pas bon.
Les MsgBox s'affichent quand on sélectionne la cellule et il faudrait que les MsgBox s'affichent uniquement quand on valide la cellule
Bonjour,
Le code de ccm (bonjour) fonctionne parfaitement
regarde si tu as bien
et non comme tu l'as marqué + haut
Le code de ccm (bonjour) fonctionne parfaitement
regarde si tu as bien
Private Sub Worksheet_Change(ByVal Target As Range)
et non comme tu l'as marqué + haut
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
re
es tu sur d'avoir mis le code dans
Private Sub Worksheet_Change(ByVal Target As Range)
chez moi ça marche avec une liste déroulante
bonne suite
es tu sur d'avoir mis le code dans
Private Sub Worksheet_Change(ByVal Target As Range)
chez moi ça marche avec une liste déroulante
bonne suite
Je pense avoir fait les choses correctement.
Clic droit sur l'onglet de la feuille et afficher le code et j'ai le code suivant :
Le code fonctionne correctement en rentrant la valeur directement dans la cellule "G5".
Mais c'est de ma faute, je n'avais pas lu le message précedent jusqu'au bout. Le résultat de la cellule "G5" dépend effectivement de la formule qu'elle contient qui elle dépend de la cellule "H5". La cellule "H5" peut prendre les valeures Bleu, Blanc ou Rouge et la formule en G5 est la suivante :
=SI($H$5="Bleu";1;SI($H$5="Blanc";2;SI($H$5="Rouge";3;"")))
Comment contourner ce problème?
Cordialement
Mistral
Clic droit sur l'onglet de la feuille et afficher le code et j'ai le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Num_Concours As Long
If Not Intersect(Sheets("menu").Range("G5"), Target) Is Nothing Then
Num_Concours = Sheets("Menu").Range("G5")
Select Case Num_Concours
Case Is = 1
MsgBox (" Message1"), vbInformation
Case Is = 2
MsgBox (" Message2"), vbInformation
Case Is = 3
MsgBox (" Message3"), vbInformation
End Select
End If
End Sub
Le code fonctionne correctement en rentrant la valeur directement dans la cellule "G5".
Mais c'est de ma faute, je n'avais pas lu le message précedent jusqu'au bout. Le résultat de la cellule "G5" dépend effectivement de la formule qu'elle contient qui elle dépend de la cellule "H5". La cellule "H5" peut prendre les valeures Bleu, Blanc ou Rouge et la formule en G5 est la suivante :
=SI($H$5="Bleu";1;SI($H$5="Blanc";2;SI($H$5="Rouge";3;"")))
Comment contourner ce problème?
Cordialement
Mistral
re
RQ1. donc le contenu de G5 n'est pas obtenu depuis une liste déroulante
RQ2. comme je t'ai dit au post 4, dans le cas où G5 contient une formule, je ne sais pas faire
RQ3. pourquoi alors ne pas tester H5 dans Worksheet_Change plutot que G5 ?
bonne suite
RQ1. donc le contenu de G5 n'est pas obtenu depuis une liste déroulante
RQ2. comme je t'ai dit au post 4, dans le cas où G5 contient une formule, je ne sais pas faire
RQ3. pourquoi alors ne pas tester H5 dans Worksheet_Change plutot que G5 ?
bonne suite
Salut le forum
Utilise le contenu de H5 pour déclencher la procédure évenementielle.
Mytå
Utilise le contenu de H5 pour déclencher la procédure évenementielle.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H5")) Is Nothing Then
Select Case Target.Offset(0, -1)
Case Is = 1
MsgBox (" Message1"), vbInformation
Case Is = 2
MsgBox (" Message2"), vbInformation
Case Is = 3
MsgBox (" Message3"), vbInformation
Case Else
MsgBox (" Erreur"), vbInformation
End Select
End If
End Sub
Mytå
