je souhaite que suivant la valeur dans Y j'affiche ce message:
Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target,Range("E2:H200")) Is Nothing Then
For each cell in range("Y15:Y200")
cell.value= "Diminution" Then
'supprime les trois lignes suivantes
'si tu ne veux pas que la valeur
'saisie soit supprimée de la cellule
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
'message au cas où ...
MsgBox "Fait gaffe, il y a une diminution... :o(( "
End If
next
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message: Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target,Range("E2:H200")) Is Nothing Then For each cell in range("Y15:Y200") cell.value= "Diminution" Then 'supprime les trois lignes suivantes 'si tu ne veux pas que la valeur 'saisie soit supprimée de la cellule Application.EnableEvents = False Target = "" Application.EnableEvents = True 'message au cas où ... MsgBox "Fait gaffe, il y a une diminution... :o(( " End If next
End If End Sub
mais ca marche pas?
mercid 'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message:
Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target,Range("E2:H200")) Is Nothing Then
For each cell in range("Y15:Y200")
cell.value= "Diminution" Then
'supprime les trois lignes suivantes
'si tu ne veux pas que la valeur
'saisie soit supprimée de la cellule
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
'message au cas où ...
MsgBox "Fait gaffe, il y a une diminution... :o(( "
End If
next
Fonctionne très bien sous réserve de ne pas oubleir le If avant cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message: Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target,Range("E2:H200")) Is Nothing Then For each cell in range("Y15:Y200") cell.value= "Diminution" Then 'supprime les trois lignes suivantes 'si tu ne veux pas que la valeur 'saisie soit supprimée de la cellule Application.EnableEvents = False Target = "" Application.EnableEvents = True 'message au cas où ... MsgBox "Fait gaffe, il y a une diminution... :o(( " End If next
End If End Sub
mais ca marche pas?
mercid 'avance
rick
oui mais le probleme c'est quand dans Y16, je ne mets pas diminution, ca m'affiche quand meme le messagebox
et ainsi de suite,si Y17 n'est pas egale à diminution, j'ai quand meme le message box quand je suis sur les cellules de E17 par exemple.
merci d'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message: Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target,Range("E2:H200")) Is Nothing Then For each cell in range("Y15:Y200") cell.value= "Diminution" Then 'supprime les trois lignes suivantes 'si tu ne veux pas que la valeur 'saisie soit supprimée de la cellule Application.EnableEvents = False Target = "" Application.EnableEvents = True 'message au cas où ... MsgBox "Fait gaffe, il y a une diminution... :o(( " End If next
End If End Sub
mais ca marche pas?
mercid 'avance
oui mais le probleme
c'est quand dans Y16, je ne mets pas diminution, ca m'affiche quand meme le
messagebox
et ainsi de suite,si Y17 n'est pas egale à diminution, j'ai quand meme le
message box quand je suis sur les cellules de E17 par exemple.
merci d'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message:
Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target,Range("E2:H200")) Is Nothing Then
For each cell in range("Y15:Y200")
cell.value= "Diminution" Then
'supprime les trois lignes suivantes
'si tu ne veux pas que la valeur
'saisie soit supprimée de la cellule
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
'message au cas où ...
MsgBox "Fait gaffe, il y a une diminution... :o(( "
End If
next
oui mais le probleme c'est quand dans Y16, je ne mets pas diminution, ca m'affiche quand meme le messagebox
et ainsi de suite,si Y17 n'est pas egale à diminution, j'ai quand meme le message box quand je suis sur les cellules de E17 par exemple.
merci d'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message: Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target,Range("E2:H200")) Is Nothing Then For each cell in range("Y15:Y200") cell.value= "Diminution" Then 'supprime les trois lignes suivantes 'si tu ne veux pas que la valeur 'saisie soit supprimée de la cellule Application.EnableEvents = False Target = "" Application.EnableEvents = True 'message au cas où ... MsgBox "Fait gaffe, il y a une diminution... :o(( " End If next
End If End Sub
mais ca marche pas?
mercid 'avance
jps
y a qu'une chose qui peut ne pas faire fonctionner la proc de anonymous, c'est lorsque "diminution" est écrit comme tu l'as écrit ci-dessous jps
"rick" a écrit dans le message de news:
oui mais le probleme c'est quand dans Y16, je ne mets pas diminution, ca m'affiche quand meme le
messagebox
et ainsi de suite,si Y17 n'est pas egale à diminution, j'ai quand meme le message box quand je suis sur les cellules de E17 par exemple.
merci d'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message: Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target,Range("E2:H200")) Is Nothing Then For each cell in range("Y15:Y200") cell.value= "Diminution" Then 'supprime les trois lignes suivantes 'si tu ne veux pas que la valeur 'saisie soit supprimée de la cellule Application.EnableEvents = False Target = "" Application.EnableEvents = True 'message au cas où ... MsgBox "Fait gaffe, il y a une diminution... :o(( " End If next
End If End Sub
mais ca marche pas?
mercid 'avance
y a qu'une chose qui peut ne pas faire fonctionner la proc de anonymous,
c'est lorsque "diminution" est écrit comme tu l'as écrit ci-dessous
jps
"rick" <rick@discussions.microsoft.com> a écrit dans le message de
news:54895835-94E5-4E1E-83F3-9E4AD68058FD@microsoft.com...
oui mais le probleme
c'est quand dans Y16, je ne mets pas diminution, ca m'affiche quand meme
le
messagebox
et ainsi de suite,si Y17 n'est pas egale à diminution, j'ai quand meme le
message box quand je suis sur les cellules de E17 par exemple.
merci d'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant
cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message:
Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target,Range("E2:H200")) Is Nothing Then
For each cell in range("Y15:Y200")
cell.value= "Diminution" Then
'supprime les trois lignes suivantes
'si tu ne veux pas que la valeur
'saisie soit supprimée de la cellule
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
'message au cas où ...
MsgBox "Fait gaffe, il y a une diminution... :o(( "
End If
next
y a qu'une chose qui peut ne pas faire fonctionner la proc de anonymous, c'est lorsque "diminution" est écrit comme tu l'as écrit ci-dessous jps
"rick" a écrit dans le message de news:
oui mais le probleme c'est quand dans Y16, je ne mets pas diminution, ca m'affiche quand meme le
messagebox
et ainsi de suite,si Y17 n'est pas egale à diminution, j'ai quand meme le message box quand je suis sur les cellules de E17 par exemple.
merci d'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message: Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target,Range("E2:H200")) Is Nothing Then For each cell in range("Y15:Y200") cell.value= "Diminution" Then 'supprime les trois lignes suivantes 'si tu ne veux pas que la valeur 'saisie soit supprimée de la cellule Application.EnableEvents = False Target = "" Application.EnableEvents = True 'message au cas où ... MsgBox "Fait gaffe, il y a une diminution... :o(( " End If next
End If End Sub
mais ca marche pas?
mercid 'avance
anonymousA
je n'ai pas écrit cette proc. Néammoins , je partage la remarque.
y a qu'une chose qui peut ne pas faire fonctionner la proc de anonymous, c'est lorsque "diminution" est écrit comme tu l'as écrit ci-dessous jps
"rick" a écrit dans le message de news:
oui mais le probleme c'est quand dans Y16, je ne mets pas diminution, ca m'affiche quand meme
le
messagebox
et ainsi de suite,si Y17 n'est pas egale à diminution, j'ai quand meme le message box quand je suis sur les cellules de E17 par exemple.
merci d'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant
cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message: Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target,Range("E2:H200")) Is Nothing Then For each cell in range("Y15:Y200") cell.value= "Diminution" Then 'supprime les trois lignes suivantes 'si tu ne veux pas que la valeur 'saisie soit supprimée de la cellule Application.EnableEvents = False Target = "" Application.EnableEvents = True 'message au cas où ... MsgBox "Fait gaffe, il y a une diminution... :o(( " End If next
End If End Sub
mais ca marche pas?
mercid 'avance
je n'ai pas écrit cette proc. Néammoins , je partage la remarque.
y a qu'une chose qui peut ne pas faire fonctionner la proc de anonymous,
c'est lorsque "diminution" est écrit comme tu l'as écrit ci-dessous
jps
"rick" <rick@discussions.microsoft.com> a écrit dans le message de
news:54895835-94E5-4E1E-83F3-9E4AD68058FD@microsoft.com...
oui mais le probleme
c'est quand dans Y16, je ne mets pas diminution, ca m'affiche quand meme
le
messagebox
et ainsi de suite,si Y17 n'est pas egale à diminution, j'ai quand meme le
message box quand je suis sur les cellules de E17 par exemple.
merci d'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant
cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message:
Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target,Range("E2:H200")) Is Nothing Then
For each cell in range("Y15:Y200")
cell.value= "Diminution" Then
'supprime les trois lignes suivantes
'si tu ne veux pas que la valeur
'saisie soit supprimée de la cellule
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
'message au cas où ...
MsgBox "Fait gaffe, il y a une diminution... :o(( "
End If
next
je n'ai pas écrit cette proc. Néammoins , je partage la remarque.
y a qu'une chose qui peut ne pas faire fonctionner la proc de anonymous, c'est lorsque "diminution" est écrit comme tu l'as écrit ci-dessous jps
"rick" a écrit dans le message de news:
oui mais le probleme c'est quand dans Y16, je ne mets pas diminution, ca m'affiche quand meme
le
messagebox
et ainsi de suite,si Y17 n'est pas egale à diminution, j'ai quand meme le message box quand je suis sur les cellules de E17 par exemple.
merci d'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant
cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message: Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target,Range("E2:H200")) Is Nothing Then For each cell in range("Y15:Y200") cell.value= "Diminution" Then 'supprime les trois lignes suivantes 'si tu ne veux pas que la valeur 'saisie soit supprimée de la cellule Application.EnableEvents = False Target = "" Application.EnableEvents = True 'message au cas où ... MsgBox "Fait gaffe, il y a une diminution... :o(( " End If next
End If End Sub
mais ca marche pas?
mercid 'avance
jps
oups, pardon, c'est hervé, en effet... faut dire qu'en plus des changements de pseudos, il y a aussi ceux des objets des posts... jps
"anonymousA" a écrit dans le message de news:42657035$0$848$
je n'ai pas écrit cette proc. Néammoins , je partage la remarque.
y a qu'une chose qui peut ne pas faire fonctionner la proc de anonymous, c'est lorsque "diminution" est écrit comme tu l'as écrit ci-dessous jps
"rick" a écrit dans le message de news:
oui mais le probleme c'est quand dans Y16, je ne mets pas diminution, ca m'affiche quand meme
le
messagebox
et ainsi de suite,si Y17 n'est pas egale à diminution, j'ai quand meme le
message box quand je suis sur les cellules de E17 par exemple.
merci d'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant
cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message: Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target,Range("E2:H200")) Is Nothing Then For each cell in range("Y15:Y200") cell.value= "Diminution" Then 'supprime les trois lignes suivantes 'si tu ne veux pas que la valeur 'saisie soit supprimée de la cellule Application.EnableEvents = False Target = "" Application.EnableEvents = True 'message au cas où ... MsgBox "Fait gaffe, il y a une diminution... :o(( " End If next
End If End Sub
mais ca marche pas?
mercid 'avance
oups, pardon, c'est hervé, en effet...
faut dire qu'en plus des changements de pseudos, il y a aussi ceux des
objets des posts...
jps
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de
news:42657035$0$848$8fcfb975@news.wanadoo.fr...
je n'ai pas écrit cette proc. Néammoins , je partage la remarque.
y a qu'une chose qui peut ne pas faire fonctionner la proc de anonymous,
c'est lorsque "diminution" est écrit comme tu l'as écrit ci-dessous
jps
"rick" <rick@discussions.microsoft.com> a écrit dans le message de
news:54895835-94E5-4E1E-83F3-9E4AD68058FD@microsoft.com...
oui mais le probleme
c'est quand dans Y16, je ne mets pas diminution, ca m'affiche quand meme
le
messagebox
et ainsi de suite,si Y17 n'est pas egale à diminution, j'ai quand meme
le
message box quand je suis sur les cellules de E17 par exemple.
merci d'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant
cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message:
Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target,Range("E2:H200")) Is Nothing Then
For each cell in range("Y15:Y200")
cell.value= "Diminution" Then
'supprime les trois lignes suivantes
'si tu ne veux pas que la valeur
'saisie soit supprimée de la cellule
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
'message au cas où ...
MsgBox "Fait gaffe, il y a une diminution... :o(( "
End If
next
oups, pardon, c'est hervé, en effet... faut dire qu'en plus des changements de pseudos, il y a aussi ceux des objets des posts... jps
"anonymousA" a écrit dans le message de news:42657035$0$848$
je n'ai pas écrit cette proc. Néammoins , je partage la remarque.
y a qu'une chose qui peut ne pas faire fonctionner la proc de anonymous, c'est lorsque "diminution" est écrit comme tu l'as écrit ci-dessous jps
"rick" a écrit dans le message de news:
oui mais le probleme c'est quand dans Y16, je ne mets pas diminution, ca m'affiche quand meme
le
messagebox
et ainsi de suite,si Y17 n'est pas egale à diminution, j'ai quand meme le
message box quand je suis sur les cellules de E17 par exemple.
merci d'avance
bonjour,
Fonctionne très bien sous réserve de ne pas oubleir le If avant
cell.value
A+
j'ai un blem avec cette macro
je souhaite que suivant la valeur dans Y j'affiche ce message: Y vas de 15 à 200
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target,Range("E2:H200")) Is Nothing Then For each cell in range("Y15:Y200") cell.value= "Diminution" Then 'supprime les trois lignes suivantes 'si tu ne veux pas que la valeur 'saisie soit supprimée de la cellule Application.EnableEvents = False Target = "" Application.EnableEvents = True 'message au cas où ... MsgBox "Fait gaffe, il y a une diminution... :o(( " End If next
