Afficher un message d'erreur pour une macro

a26 · 6 Novembre 2018

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 · 6 Novembre 2018

Salut,
Quelque chose comme ca ?

VB:

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 · 6 Novembre 2018

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) · 6 Novembre 2018

Bonsoir tous
Sans vba, données Validation
Bruno

a26 · 7 Novembre 2018

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

a26 · 7 Novembre 2018

a26 à dit:
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) · 7 Novembre 2018

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 · 8 Novembre 2018

youky(BJ) à dit:
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) · 8 Novembre 2018

Bonjour
Voici la macro qui fonctionne.
Bruno

VB:

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 · 8 Novembre 2018

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) · 8 Novembre 2018

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

VB:

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 · 8 Novembre 2018

youky(BJ) à dit:

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

VB:

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) · 8 Novembre 2018

Voici

Code:

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 · 8 Novembre 2018

youky(BJ) à dit:

Voici

Code:

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) · 8 Novembre 2018

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

Bruno

Afficher un message d'erreur pour une macro

a26

XLDnaute Occasionnel

Pièces jointes

Hieu

XLDnaute Impliqué

Pièces jointes

a26

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

a26

XLDnaute Occasionnel

a26

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

a26

XLDnaute Occasionnel

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

a26

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

a26

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

a26

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

Discussions similaires