Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel macro qui ne fonctionne pas

macro qui ne fonctionne pas

16 réponses
Avatar
le-guillou.alban
HELP !!!!

Je débute en macro,

J'ai copié une macro sur l'excellent site excellabo

mais elle ne fonctionne pas, j'ai un message d'erreur concernant la partie :
then call clignotement

qui peut m'aider ? mille merci d'avance,
alban.
voilà la macro :
Faire clignoter en fonction de la valeur
Comment faire clignoter une cellule si sa valeur dépasse 100 ? Dans cet
exemple, la mise en forme conditionnelle
met un nombre supérieur à 100 en rouge.
et la macro de feuille :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call Clignotement
End If
End Sub
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
1 2
Avatar
michdenis
Bonjour le-guillou.alban,

Dans une feuille vierge d'excel, copie ce code dans son module feuille

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
Msgbox ActiveCell.adddress & " " & ActiveCell.Value
Msgbox Target.adddress & " " & Target.Value
End If
End Sub

Dans cette procédure événementielle de la feuille de calcul, Target représente la cellule qui vient juste d'être
modifiée et validée.. mais habituellement lorsque l'on valide le curseur se déplace dans une autre cellule et c'est elle
qui est la cellule active et non plus la cellule que représente Target.



ET pour faire clignoter ta cellule , copie ces procédures légèrement modifiées dans le module feuille :

'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If IsNumeric(Target) Then
If Target > 100 Then
Clignotement Target
End If
End If
End Sub
'------------------------------------
Sub Clignotement(Rg As Range)

Fond = Rg.Interior.ColorIndex
For i = 1 To 300
Rg.Interior.ColorIndex = 2
Rg.Interior.ColorIndex = 3
Next i
Rg.Interior.ColorIndex = Fond
End Sub
'------------------------------------


Salutations!






"le-guillou.alban" a écrit dans le message de news:cbmorh$pel$
HELP !!!!

Je débute en macro,

J'ai copié une macro sur l'excellent site excellabo

mais elle ne fonctionne pas, j'ai un message d'erreur concernant la partie :
then call clignotement

qui peut m'aider ? mille merci d'avance,
alban.
voilà la macro :
Faire clignoter en fonction de la valeur
Comment faire clignoter une cellule si sa valeur dépasse 100 ? Dans cet
exemple, la mise en forme conditionnelle
met un nombre supérieur à 100 en rouge.
et la macro de feuille :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call Clignotement
End If
End Sub
Avatar
le-guillou.alban
merci de tous ces renseignements mais je vais pas tarder à craquer!!!!
j'ai maintenant une erreur 424 objet requis.
ça veut dire quoi en clair?
Y aurait t'il qq qui pourait essayer cette macro?
Je demande bcp et je m'en excuse.
suis désespéré.
merci quand meme pour tout
"Philippe.R" a écrit dans le message de
news:%
Il n'y a pas de quoi JP
--
Amicales Salutations

"sabatier" a écrit dans le
message de

news:
oups pardon philippe, je n'avais pas lu la dernière ligne de ton
post....navré
jps

Philippe.R a écrit:
Re,
Tu dois avoir copié

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call Clignotement
End If
End Sub

dans le module de feuille, pour ce faire, le plus simple est de
cliquer droit sur l'onglet de



feuille et
de choisir "visualiser le code"
Il faut que tu copies aussi dans un module ordinaire (que tu voies
apparaître dans la petite fenêtre



de
gauche de VBE sous le nom Module1 ou autre) ce code :

Sub Clignotement()
Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 300
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond
End Sub

Si tu n'as pas de module ordinaire, tu clique droit dans le projet et
tu choisi insérer / module.











Avatar
le-guillou.alban
oui c'est
Philippe , tu es trop sympa. comment te remercier?
"Philippe.R" a écrit dans le message de
news:
Re,
Si tu veux, je t'envoie un petit classeur exemple (ton adresse est valide
?)

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"le-guillou.alban" a écrit dans le message
de

news:cbmqfe$gpb$
un nouveau message d'erreur. JE CRAQUE !!!!
Sub clignotement()
'
' clignotement Macro
' Macro enregistrée le 27/06/2004 par alban le guillou
'Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call clignotement
End If
End Sub
"le-guillou.alban" a écrit dans le message
de


news:cbmorh$pel$
HELP !!!!

Je débute en macro,

J'ai copié une macro sur l'excellent site excellabo

mais elle ne fonctionne pas, j'ai un message d'erreur concernant la
partie



:
then call clignotement

qui peut m'aider ? mille merci d'avance,
alban.
voilà la macro :
Faire clignoter en fonction de la valeur
Comment faire clignoter une cellule si sa valeur dépasse 100 ? Dans
cet



exemple, la mise en forme conditionnelle
met un nombre supérieur à 100 en rouge.
et la macro de feuille :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call Clignotement
End If
End Sub












Avatar
le-guillou.alban
oui merci philippe,
ton classeur me serait fort utile.
comment te remercier
"Philippe.R" a écrit dans le message de
news:
Re,
Si tu veux, je t'envoie un petit classeur exemple (ton adresse est valide
?)

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"le-guillou.alban" a écrit dans le message
de

news:cbmqfe$gpb$
un nouveau message d'erreur. JE CRAQUE !!!!
Sub clignotement()
'
' clignotement Macro
' Macro enregistrée le 27/06/2004 par alban le guillou
'Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call clignotement
End If
End Sub
"le-guillou.alban" a écrit dans le message
de


news:cbmorh$pel$
HELP !!!!

Je débute en macro,

J'ai copié une macro sur l'excellent site excellabo

mais elle ne fonctionne pas, j'ai un message d'erreur concernant la
partie



:
then call clignotement

qui peut m'aider ? mille merci d'avance,
alban.
voilà la macro :
Faire clignoter en fonction de la valeur
Comment faire clignoter une cellule si sa valeur dépasse 100 ? Dans
cet



exemple, la mise en forme conditionnelle
met un nombre supérieur à 100 en rouge.
et la macro de feuille :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call Clignotement
End If
End Sub












Avatar
Philippe.R
Le classeur est parti !
Cependant, tu prends de gros risques (pluie de spams garantie) en publiant en clair ton adresse sur le
forum ; les moteurs de recherche vont s'en donner à coeur joie.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"le-guillou.alban" a écrit dans le message de
news:cbmtmq$i0l$
oui c'est
Philippe , tu es trop sympa. comment te remercier?
"Philippe.R" a écrit dans le message de
news:
Re,
Si tu veux, je t'envoie un petit classeur exemple (ton adresse est valide
?)

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"le-guillou.alban" a écrit dans le message
de

news:cbmqfe$gpb$
un nouveau message d'erreur. JE CRAQUE !!!!
Sub clignotement()
'
' clignotement Macro
' Macro enregistrée le 27/06/2004 par alban le guillou
'Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call clignotement
End If
End Sub
"le-guillou.alban" a écrit dans le message
de


news:cbmorh$pel$
HELP !!!!

Je débute en macro,

J'ai copié une macro sur l'excellent site excellabo

mais elle ne fonctionne pas, j'ai un message d'erreur concernant la
partie



:
then call clignotement

qui peut m'aider ? mille merci d'avance,
alban.
voilà la macro :
Faire clignoter en fonction de la valeur
Comment faire clignoter une cellule si sa valeur dépasse 100 ? Dans
cet



exemple, la mise en forme conditionnelle
met un nombre supérieur à 100 en rouge.
et la macro de feuille :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call Clignotement
End If
End Sub
















Avatar
Philippe.R
Et j'en rajoute !
Je supprime le précédent message :-((
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Philippe.R" a écrit dans le message de
news:
Le classeur est parti !
Cependant, tu prends de gros risques (pluie de spams garantie) en publiant en clair ton adresse sur le
forum ; les moteurs de recherche vont s'en donner à coeur joie.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"le-guillou.alban" a écrit dans le message de
news:cbmtmq$i0l$
oui c'est > > Philippe , tu es trop sympa. comment te remercier?
"Philippe.R" a écrit dans le message de
news:
Re,
Si tu veux, je t'envoie un petit classeur exemple (ton adresse est valide
?)

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"le-guillou.alban" a écrit dans le message
de

news:cbmqfe$gpb$
un nouveau message d'erreur. JE CRAQUE !!!!
Sub clignotement()
'
' clignotement Macro
' Macro enregistrée le 27/06/2004 par alban le guillou
'Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call clignotement
End If
End Sub
"le-guillou.alban" a écrit dans le message
de


news:cbmorh$pel$
HELP !!!!

Je débute en macro,

J'ai copié une macro sur l'excellent site excellabo

mais elle ne fonctionne pas, j'ai un message d'erreur concernant la
partie



:
then call clignotement

qui peut m'aider ? mille merci d'avance,
alban.
voilà la macro :
Faire clignoter en fonction de la valeur
Comment faire clignoter une cellule si sa valeur dépasse 100 ? Dans
cet



exemple, la mise en forme conditionnelle
met un nombre supérieur à 100 en rouge.
et la macro de feuille :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call Clignotement
End If
End Sub




















1 2