Microsoft 365 Plafonner la saisie d'une valeur dans une cellule selon le contenu d'une autre

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Février 2024

• #2

Bonsoir Pat,
Un essai en PJ avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [F9]) Is Nothing Then
        [H9] = 0
    ElseIf Not Intersect(Target, [H9]) Is Nothing Then
        If [F9] = "OUI" And [H9] > 100 Then Application.Undo
        If [F9] = "NON" And [H9] > 50 Then Application.Undo
    End If
End Sub

 

Pièces jointes

• Pat66.xlsm

  13.3 KB · Affichages: 3

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 19 Février 2024

• #3

Re,

je viens de tester cette solution qui a l'air de fonctionner, qu'en pensez vous ?

merci

 

Pièces jointes

• validation données.jpg

  80.1 KB · Affichages: 10

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Février 2024

• #4

Re,
Mais cela ne respecte pas cette règle :

pat66 à dit:

et si on passe de oui à non ou de non à oui dans F9, H9 revient toujours à zéro

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 19 Février 2024

• #5

re,
exact et pour cela j'ai ajouté dans la feuille

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Range("F9").Value = "oui" Then
 Range("H9").Value = 0
Else
 Range("H9").Value = 0
 End If
'End Sub

Je viens de tester votre essai et je le préfère, merci beaucoup, mais puisque on utilise Application.Undo qui saisit le montant maxi selon que F9 = oui ou non

pourrait on ajouter un msgbox qui précise que la valeur saisie sera rectifié avec le montant maxi correspondant selon que F9 = oui ou non

merci

 

Dernière édition: 19 Février 2024

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Février 2024

• #6

Re,
Guère plus compliqué :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [F9]) Is Nothing Then
        [H9] = 0
    ElseIf Not Intersect(Target, [H9]) Is Nothing Then
        If [F9] = "OUI" And [H9] > 100 Then
            MsgBox "La valeur max est de 100" & Chr(10) & "La valeur sera donc rectifiée à son maximum"
            [H9] = 100
        ElseIf [F9] = "NON" And [H9] > 50 Then
            MsgBox "La valeur max est de 50" & Chr(10) & "La valeur sera donc rectifiée à son maximum"
            [H9] = 50
        End If
    End If
End Sub

 

Pièces jointes

• Pat66 V2.xlsm

  13.8 KB · Affichages: 2

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• 19 Février 2024

• #7

re,

alors là c'est la classe !!!, c'est parfait pour moi !

un grand merci pour votre aide si précieuse

bonne soirée Sylvanu

 

Vote positif 0 Vote négatif