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

10 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
Philippe.R
Bonjour Alban,
N'aurais tu pas oublié de copier la macro Clignotement dans un module ordinaire du classeur ?
Le point sur lequel ta proc événementielle est l'invocation de ladite macro par son nom.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"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
Bonjour Philippe , et merci pour ta réponse très rapide.
En fait j'ouvre une nouvelle macro,
j'ouvre VB et je fais un copier /coller tout simplement.
On peut la copier d'une autre façon??

"Philippe.R" a écrit dans le message de
news:
Bonjour Alban,
N'aurais tu pas oublié de copier la macro Clignotement dans un module
ordinaire du classeur ?

Le point sur lequel ta proc événementielle est l'invocation de ladite
macro par son nom.

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

"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
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
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.
--
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)

"le-guillou.alban" a écrit dans le message de
news:cbmprt$toj$
Bonjour Philippe , et merci pour ta réponse très rapide.
En fait j'ouvre une nouvelle macro,
j'ouvre VB et je fais un copier /coller tout simplement.
On peut la copier d'une autre façon??

"Philippe.R" a écrit dans le message de
news:
Bonjour Alban,
N'aurais tu pas oublié de copier la macro Clignotement dans un module
ordinaire du classeur ?

Le point sur lequel ta proc événementielle est l'invocation de ladite
macro par son nom.

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

"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
sabatier
bonjour alban
si la macro "Call Clignotement"
- a été collée dans un module du classeur ( une fois dans VBE, il faut
quand même faire Insertion/Module
- bien orthographiée dans les deux modules de façon identique
il n'y pas de raison que ça ne clignote pas, cré vinzou...
ça me fait penser à cette femme qui attendait devant moi au feu rouge ;
le rouge passe au vert une fois, deux fois, trois fois, sans que la dame
en question ne démarre ; au quatrième vert, je suis descendu de ma
voiture et, à travers la portière, ai dit : "madame, cette fois, il vous
faut avancer : ici, dans le beaujolais, comme vert on n'a pas mieux"
jps

le-guillou.alban a écrit:
Bonjour Philippe , et merci pour ta réponse très rapide.
En fait j'ouvre une nouvelle macro,
j'ouvre VB et je fais un copier /coller tout simplement.
On peut la copier d'une autre façon??

"Philippe.R" a écrit dans le message de
news:

Bonjour Alban,
N'aurais tu pas oublié de copier la macro Clignotement dans un module


ordinaire du classeur ?

Le point sur lequel ta proc événementielle est l'invocation de ladite


macro par son nom.

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

"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
sabatier
il fallait lire "Clignotement" tout court bien sûr pour le nom de la macro
jps

sabatier a écrit:
bonjour alban
si la macro "Call Clignotement"
- a été collée dans un module du classeur ( une fois dans VBE, il faut
quand même faire Insertion/Module
- bien orthographiée dans les deux modules de façon identique
il n'y pas de raison que ça ne clignote pas, cré vinzou...
ça me fait penser à cette femme qui attendait devant moi au feu rouge ;
le rouge passe au vert une fois, deux fois, trois fois, sans que la dame
en question ne démarre ; au quatrième vert, je suis descendu de ma
voiture et, à travers la portière, ai dit : "madame, cette fois, il vous
faut avancer : ici, dans le beaujolais, comme vert on n'a pas mieux"
jps

le-guillou.alban a écrit:

Bonjour Philippe , et merci pour ta réponse très rapide.
En fait j'ouvre une nouvelle macro,
j'ouvre VB et je fais un copier /coller tout simplement.
On peut la copier d'une autre façon??

"Philippe.R" a écrit dans le message de
news:

Bonjour Alban,
N'aurais tu pas oublié de copier la macro Clignotement dans un module



ordinaire du classeur ?

Le point sur lequel ta proc événementielle est l'invocation de ladite



macro par son nom.

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

"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
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
sabatier
sauf que, philippe, le module en question n'apparaît pas spontanément si
tu n'as pas d'autres procs écrites dans le classeur...il faut donc
l'insérer comme déjà dit...
jps

Philippe.R a écrit:

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
sabatier
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
Philippe.R
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.





1 2