Microsoft 365 Msgbox VByesno

patricktoulon

XLDnaute Barbatruc

• 8 Décembre 2023

• #2

bonsoir
colle ça dans le module de ta feuille "liste"

VB:

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rep As VbMsgBoxResult
    If Target.Column = 8 Then
        If Target = "" Then Exit Sub
        If Target.Offset(, -4) > 150# And Target = "car" Then Rep = MsgBox("la valeur Config est supérieure à l'Offre, voulez-vous confirmer ?", vbYesNo)
        If Rep = vbNo Then Target = ""
    End If
End Sub

ca fonctionne avec "car","Car","CAR"

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 9 Décembre 2023

• #3

Bonsoir,
Pour le fun en une ligne :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count = 1 Then If Target.Column = Range("h1").Column And UCase(Target) = "CAR" And Cells(Target.Row, "d") > 150 Then If MsgBox("La valeur Config est supérieure à l'Offre, voulez-vous confirmer ?", vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then Target.ClearContents
End Sub

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Décembre 2023

• #4

re
c'est une fausse mono ligne ça
2 if then principaux

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 9 Décembre 2023

• #5

Hello,

Merci pour vos réponses !
Il semble par contre que cela ne fonctionne que si je renseigne la cellule en D ( Config) en premier
Il faudrait que cela soit réversible car je peux être amené à remplir la cellule en H d'abord

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Décembre 2023

• #6

bonjour
ben ajoute le test vide de la colonne "D" c'est tout

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Décembre 2023

• #7

mais ca souleve une autre question et denote même un incohérence dans la conception

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 9 Décembre 2023

• #8

Tu veux dire ça ?

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rep As VbMsgBoxResult
If Target.Column = 8 Then
If Target = "" Then Exit Sub
If Target.Column = 4 Then
If Target = "" Then Exit Sub
If Target.Offset(, -4) > 150# And Target = "car" Then Rep = MsgBox("la valeur Config est supérieure à l'Offre, voulez-vous confirmer ?", vbYesNo)
If Rep = vbNo Then Target = ""
End If
End Sub

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Décembre 2023

• #9

non le test doit doit se faire sur le target.offset(,-4)
je recapitule
si on tape "car" sous n'importe quelle casse en H si d>150 message ;on est ok
maintenant tu dis si en D c'est vide
je te reponds et alors que veux tu faire ?
et c'est là que tu va te rendre compte de ton problème de conception (ou pas )

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 9 Décembre 2023

• #10

Ah ok... et bien le tableau sera rempli en 2 temps - Parfois H (avec CAR ou d'autres valeurs textes) en premier, parfois D en premier, et H complété ensuite
Dans les 2 ordres de saisie, si la réponse est NO, je souhaite que la cellule en H soit effacée

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Décembre 2023

• #11

RE
ok
c'est un peu différent

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")) = "car" 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

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 9 Décembre 2023

• #12

Merci beaucoup !
Cela fonctionne parfaitement

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 9 Décembre 2023

• #13

Re,

Je réouvre car j'ai un autre petit souci
J'ai transposé le code dans un autre classeur, avec un tableau à la structure totalement identique, avec une seule variante : la valeur à prendre en compte en H n'est pas "CAR", mais "Géotime" -
Ca ne fonctionne plus
Je peux agir sur D, mais rien à faire avec H - J'ai fait des tests en raccourcissant le mot, en enlevant l'accent, la majuscule... ça coince

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Décembre 2023

• #14

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

 

Vote positif 0 Vote négatif

Solution

J

JBL07

XLDnaute Occasionnel

• 10 Décembre 2023

• #15

Aahh ok ! En minuscule dans le code, et indifféremment minuscules ou majuscules dans le tableau !
J'ai tout compris, un grand merci à toi

 

Vote positif 0 Vote négatif