Microsoft 365 Msgbox VByesno

JBL07 · 8 Décembre 2023

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

patricktoulon · 10 Décembre 2023

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

patricktoulon · 10 Décembre 2023

ben oui tu a pas vu le "Lcase"

JBL07 · 10 Décembre 2023

Si, j'ai même cherché et découvert sur le Net Lcase / Ucase... mais je n'avais pas capté comment cela s'appliquait... Du coup je me couche plus instruit

patricktoulon · 10 Décembre 2023

re
tu remplace le mot Lcase par le mot minuscule , tu comprends tout de suite le principe

Microsoft 365 Msgbox VByesno

JBL07

XLDnaute Occasionnel

Pièces jointes

patricktoulon

patricktoulon

XLDnaute Barbatruc

JBL07

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Discussions similaires