Afficher un message d'erreur pour une macro

[a26]

Bonsoir à tous,
Pouvez-vous m'aider à trouver la solution d'une macro qui m'avertirait d'un dépassement de chiffre (variable)
dans une cellule donnée.
Merci beaucoup,
a26

 

[Hieu]

Salut,
Quelque chose comme ca ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c6:c18", "g18:h18")) Is Nothing Then
    If Target > Range("i3") Then MsgBox ("erreur")
End If
End Sub

 

[a26]

Merci Hieu cela correspond à ce que je voulais, il me reste à tester avec mon classeur original.
Je reviens vers toi demain si j'ai d'autres modif à faire concernant ce message.
Bonne soirée,
a26

 

[youky(BJ)]

Bonsoir tous
Sans vba, données Validation
Bruno

 

[a26]

Merci à vous deux pour vos solutions. Cela fonctionne très bien pour mon fichier.
Bonne soirée,
a26

 

[a26]

Merci à vous deux pour vos solutions. Cela fonctionne très bien pour mon fichier.
Bonne soirée,
a26

Je reviens vers vous pour savoir si je peux avoir un message d'erreur msg box comme suit :
vbRetryCancel 5

 

[youky(BJ)]

Hello
MsgBox"Un doublon !", vbExclamation + vbRetryCancel, "ANNULATION"
ou si on veux choisir le bouton
If MsgBox("Un doublon !", vbExclamation + vbRetryCancel, "ANNULATION") = vbRetry Then Beep
Bruno

 

[a26]

Hello
MsgBox"Un doublon !", vbExclamation + vbRetryCancel, "ANNULATION"
ou si on veux choisir le bouton
If MsgBox("Un doublon !", vbExclamation + vbRetryCancel, "ANNULATION") = vbRetry Then Beep
Bruno

Bonjour youky,
J'ai essayé d'appliquer le code que tu m'a transmis mais cela ne fonctionne pas. Peux-être que j'ai oublié quelque chose dans l'appel de la msgbox.
a26

 

[youky(BJ)]

Bonjour
Voici la macro qui fonctionne.
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c6:c18", "g18:h18")) Is Nothing Then
    If Target > [I3] Then
    MsgBox "Attention valeur trop grande !" & vbCr & _
    "Vous ne devez pas d?passer " & [I3], vbExclamation + vbRetryCancel, "ANNULATION"
    Target.Value = "" 'on efface
    End If
End If
End Sub

 

[a26]

Merci , celle-ci fonctionne mais que rajouter au code pour que la cellule active ne soit pas celle de dessous mais la cellule d'effacement ?
merci pour ta réponse.

 

[youky(BJ)]

Voici, j'ai ajouté Target.Select avant le MsgBox

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c6:c18", "g18:h18")) Is Nothing Then
    If Target > [I3] Then
    Target.Select
    MsgBox "Attention valeur trop grande !" & vbCr & _
    "Vous ne devez pas d?passer " & [I3], vbExclamation + vbRetryCancel, "ANNULATION"
    Target.Value = "" 'on efface
    End If
End If
End Sub

 

[a26]

Voici, j'ai ajouté Target.Select avant le MsgBox

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c6:c18", "g18:h18")) Is Nothing Then
    If Target > [I3] Then
    Target.Select
    MsgBox "Attention valeur trop grande !" & vbCr & _
    "Vous ne devez pas d?passer " & [I3], vbExclamation + vbRetryCancel, "ANNULATION"
    Target.Value = "" 'on efface
    End If
End If
End Sub

Merci, mais tu vas me trouver pénible car si je clique sur annuler cela ne conserve pas la valeur saisie si malgré tout je désire la conserver .

 

[youky(BJ)]

Voici

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c6:c18", "g18:h18")) Is Nothing Then
    If Target > [I3] Then
    Target.Select
    If MsgBox("Attention valeur trop grande !" & vbCr & _
    "Vous ne devez pas d?passer " & [I3], vbExclamation + vbRetryCancel, "ANNULATION") = vbRetry Then Target.Value = "" 'on efface
    End If
End If
End Sub

 

[a26]

Voici

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c6:c18", "g18:h18")) Is Nothing Then
    If Target > [I3] Then
    Target.Select
    If MsgBox("Attention valeur trop grande !" & vbCr & _
    "Vous ne devez pas d?passer " & [I3], vbExclamation + vbRetryCancel, "ANNULATION") = vbRetry Then Target.Value = "" 'on efface
    End If
End If
End Sub

Merci, le code fonctionne parfaitement sur la copie de mon fichier original, mais sur l'original au déclenchement d'une macro une erreur 13 se produit et le débobage me souligne la ligne target > I3

 

[youky(BJ)]

target>[I3]
entre crochets
ou
target>range("I3")
et non
target>I3

Bruno