Microsoft 365 Msgbox VByesno

  • Initiateur de la discussion Initiateur de la discussion JBL07
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JBL07

XLDnaute Occasionnel
Bonjour le forum,

Qui peut m'aider ?
Sur le petit fichier joint, je voudrais que, si j'inscris "CAR" dans une cellule de la colonne H (en-tête : "Mode"), et que la valeur sur la même ligne en colonne D (en-tête : "Config") est supérieure à 150,00, une boite de dialogue VBYesNo apparaisse, avec le message " la valeur Config est supérieure à l'Offre, voulez-vous confirmer ?", puis que la valeur s'efface si le choix est NO
Le nombre de lignes n'est pas figé

Merci par avance, je n'y arrive pas tout seul 🙂
 

Pièces jointes

Solution
re
le test se fait en minuscule
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rep As VbMsgBoxResult
If (Target.Column = 8 Or Target.Column = 4) And Target.Count = 1 Then
If Target = "" Then Exit Sub
If Val(Cells(Target.Row, "D")) > 150 And LCase(Cells(Target.Row, "H")) = "géotime" Then Rep = MsgBox("la valeur Config est supérieure à l'Offre, voulez-vous confirmer ?", vbYesNo)
If Rep = vbNo Then Cells(Target.Row, "H") = ""
End If
End Sub
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
797
Retour