aidez-moi à msgbox vba excel

[dodo222]

hello
Je veux
En cliquant sur les cellules de (d4:d7) et en remplissant les cellules avec des conditions de 0 à 20
Et quand je remplis plus de 20, je reçois un msgbox d'erreur indiquant que la note autorisée ne dépasse pas 20
Et en appuyant sur ok, il m'affiche 00 dans la cellule active
et merci

 

[dodo222]

moh​	ali​
didi​	jack​
young​	htt​

 

[dodo222]

 

[Georgiboy]

Peut-être ceci dans le module de feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D4:D7")) Is Nothing Then
        If Target.Value > 20 Then
            MsgBox "Aucune valeur supérieure à 20"
            Target.Value = 0
        End If
    End If
End Sub

 

[dodo222]

thenk you sir

Georgiboy​

​

 

[dodo222]

How can I do this code in the workbook and not in one sheet

 

[Georgiboy]

Pour ce faire au niveau du classeur, voir ci-dessous, le code doit aller dans le module ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Range("D4:D7")) Is Nothing Then
        If Target.Value > 20 Then
            MsgBox "Aucune valeur supérieure à 20"
            Target.Value = 0
        End If
    End If
End Sub

 

[dodo222]

Pour ce faire au niveau du classeur, voir ci-dessous, le code doit aller dans le module ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Range("D4:D7")) Is Nothing Then
        If Target.Value > 20 Then
            MsgBox "Aucune valeur supérieure à 20"
            Target.Value = 0
        End If
    End If
End Sub

thenk you sir