Lancer une macro liée à un bouton en fonction de la valeur d'une cellule
1 réponse
charlesh
Bonjour à tous,
Etant novice en VBA, j'ai réellement besoin de votre aide pour la création d'un fichier excel nécessaire pour ma thèse.
Je vous explique le problème:
j'ai sur une feuille "Préparation PCA" un bouton qui affiche un msgbox crée comme cela:
Sub débitfaible()
'MsgBox Oui + Non
Select Case MsgBox("le débit doit être > 0,3ml/h si administration en IV. Voulez-vous augmenter le débit et donc diluer la préparation?", vbYesNo, "Débit trop faible")
Case vbYes
'Sommaire Macro
Sheets("Préparation PCA 2").Select
Case vbNo
'Sommaire Macro
Sheets("Acceuil").Select
End Select
End Sub
jusque là tout fonctionne!
Problème:
J'aurai voulu que ce msgbox n’apparaisse que si la valeur contenue dans cellule J42 est en effet < à 0.3.
Si J42 > 0.3 je voudrai que ce même bouton renvoie sur autre feuille 'Préparation finale"
En résumé:
-Si J42 > 0.3 renvoie sur "Préparation finale"
-Si J42 < 0.3 alors msgbox précédent
Tout cela en cliquant sur le même bouton.
Je suis vraiment débutant donc j'ai besoin de détails s'il vous plait.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour,
N'y aurait-il pas une confusion dans l'énoncé ?
-Si J42 > 0.3 renvoie sur "Préparation finale" -Si J42 < 0.3 alors msgbox précédent ??????? Sheets("Préparation PCA 2").Select Sheets("Acceuil").Select
Ceci peut-être (si la feuille "Préparation finale" existe '------------------------ Sub débitfaible() 'MsgBox Oui + Non If [j42] <= 0.3 Then If MsgBox("le débit doit être > 0,3ml/h si administration en IV.Voulez-vous augmenter le débit et donc diluer la préparation?", vbYesNo, "Débit trop faible") = 6 Then Sheets("Préparation PCA 2").Activate Else Sheets("Acceuil").Activate End If Else Sheets("Préparation finale").Activate End If End Sub '-------------------------- -- Salutations JJ
"charlesh" a écrit dans le message de news:
Bonjour à tous,
Etant novice en VBA, j'ai réellement besoin de votre aide pour la création d'un fichier excel nécessaire pour ma thèse.
Je vous explique le problème: j'ai sur une feuille "Préparation PCA" un bouton qui affiche un msgbox crée comme cela:
Sub débitfaible() 'MsgBox Oui + Non Select Case MsgBox("le débit doit être > 0,3ml/h si administration en IV. Voulez-vous augmenter le débit et donc diluer la préparation?", vbYesNo, "Débit trop faible") Case vbYes 'Sommaire Macro Sheets("Préparation PCA 2").Select Case vbNo 'Sommaire Macro Sheets("Acceuil").Select End Select End Sub
jusque là tout fonctionne!
Problème: J'aurai voulu que ce msgbox n’apparaisse que si la valeur contenue dans cellule J42 est en effet < à 0.3.
Si J42 > 0.3 je voudrai que ce même bouton renvoie sur autre feuille 'Préparation finale"
En résumé: -Si J42 > 0.3 renvoie sur "Préparation finale" -Si J42 < 0.3 alors msgbox précédent
Tout cela en cliquant sur le même bouton.
Je suis vraiment débutant donc j'ai besoin de détails s'il vous plait.
Cordialement, Charles
Bonjour,
N'y aurait-il pas une confusion dans l'énoncé ?
-Si J42 > 0.3 renvoie sur "Préparation finale"
-Si J42 < 0.3 alors msgbox précédent ???????
Sheets("Préparation PCA 2").Select
Sheets("Acceuil").Select
Ceci peut-être (si la feuille "Préparation finale" existe
'------------------------
Sub débitfaible()
'MsgBox Oui + Non
If [j42] <= 0.3 Then
If MsgBox("le débit doit être > 0,3ml/h si administration en IV.Voulez-vous augmenter le débit et donc
diluer la préparation?", vbYesNo, "Débit trop faible") = 6 Then
Sheets("Préparation PCA 2").Activate
Else
Sheets("Acceuil").Activate
End If
Else
Sheets("Préparation finale").Activate
End If
End Sub
'--------------------------
--
Salutations
JJ
"charlesh" <nospam_charleshenrihervouet@gmail.com.invalid> a écrit dans le message de news:
vO6dndd_daFQkjLM4p2dnAA@giganews.com...
Bonjour à tous,
Etant novice en VBA, j'ai réellement besoin de votre aide pour la création d'un
fichier excel nécessaire pour ma thèse.
Je vous explique le problème:
j'ai sur une feuille "Préparation PCA" un bouton qui affiche un msgbox crée
comme cela:
Sub débitfaible()
'MsgBox Oui + Non
Select Case MsgBox("le débit doit être > 0,3ml/h si administration en IV.
Voulez-vous augmenter le débit et donc diluer la préparation?", vbYesNo, "Débit
trop faible")
Case vbYes
'Sommaire Macro
Sheets("Préparation PCA 2").Select
Case vbNo
'Sommaire Macro
Sheets("Acceuil").Select
End Select
End Sub
jusque là tout fonctionne!
Problème:
J'aurai voulu que ce msgbox n’apparaisse que si la valeur contenue dans cellule
J42 est en effet < à 0.3.
Si J42 > 0.3 je voudrai que ce même bouton renvoie sur autre feuille
'Préparation finale"
En résumé:
-Si J42 > 0.3 renvoie sur "Préparation finale"
-Si J42 < 0.3 alors msgbox précédent
Tout cela en cliquant sur le même bouton.
Je suis vraiment débutant donc j'ai besoin de détails s'il vous plait.
-Si J42 > 0.3 renvoie sur "Préparation finale" -Si J42 < 0.3 alors msgbox précédent ??????? Sheets("Préparation PCA 2").Select Sheets("Acceuil").Select
Ceci peut-être (si la feuille "Préparation finale" existe '------------------------ Sub débitfaible() 'MsgBox Oui + Non If [j42] <= 0.3 Then If MsgBox("le débit doit être > 0,3ml/h si administration en IV.Voulez-vous augmenter le débit et donc diluer la préparation?", vbYesNo, "Débit trop faible") = 6 Then Sheets("Préparation PCA 2").Activate Else Sheets("Acceuil").Activate End If Else Sheets("Préparation finale").Activate End If End Sub '-------------------------- -- Salutations JJ
"charlesh" a écrit dans le message de news:
Bonjour à tous,
Etant novice en VBA, j'ai réellement besoin de votre aide pour la création d'un fichier excel nécessaire pour ma thèse.
Je vous explique le problème: j'ai sur une feuille "Préparation PCA" un bouton qui affiche un msgbox crée comme cela:
Sub débitfaible() 'MsgBox Oui + Non Select Case MsgBox("le débit doit être > 0,3ml/h si administration en IV. Voulez-vous augmenter le débit et donc diluer la préparation?", vbYesNo, "Débit trop faible") Case vbYes 'Sommaire Macro Sheets("Préparation PCA 2").Select Case vbNo 'Sommaire Macro Sheets("Acceuil").Select End Select End Sub
jusque là tout fonctionne!
Problème: J'aurai voulu que ce msgbox n’apparaisse que si la valeur contenue dans cellule J42 est en effet < à 0.3.
Si J42 > 0.3 je voudrai que ce même bouton renvoie sur autre feuille 'Préparation finale"
En résumé: -Si J42 > 0.3 renvoie sur "Préparation finale" -Si J42 < 0.3 alors msgbox précédent
Tout cela en cliquant sur le même bouton.
Je suis vraiment débutant donc j'ai besoin de détails s'il vous plait.
