Macro variable

[gourdin]

Bonjour

Je souhaite qu'une macro quand on la lance fasse une action puis quand on la lance à nouveau fasse une autre action etc..

Voir exemple précis pour mieux comprendre.

Merci

 

[Guest]

Re : Macro variable

Bonjour,

Un exemple de ce que tu as essayé de faire aurait été plus satisfaisant!

Mais voici:

Sub Bouton1_QuandClic()
Static i As Integer
[C6] = Array("banane", "tomate", "orange")(i)
i = IIf(i = 2, 0, i + 1)
End Sub

A+

 

[gourdin]

Re : Macro variable

C'est parfait

Merci beaucoup

 

[gourdin]

Re : Macro variable

Bonjour,

Dans le même ordre d'idée et d'une façon plus générale:

Je souhaiterais après avoir executé une macro une première fois, l'annulé en déclenchant cette même macro.

Exemple concret concernant mon fichier :
1e déclenchement macro : met un fond rouge dans une cellule
2e déclenchement de la même macro : annule l'action du 1er déclenchement (et donc annule le fond rouge et revient au fond initial avant le 1e déclenchement)
3e déclenchement de la même macro remet le fond rouge
4e déclenchement :annule

etc..

Merci

 

[kjin]

Re : Macro variable

Bonjour,
On ne peut pas "annuler" une macro
La seule possibilité est de tester la couleur de la cellule active

Sub RougePasRouge()
ActiveCell.Interior.ColorIndex = IIf(ActiveCell.Interior.ColorIndex = 3, xlNone, 3)
End Sub

A+
kjin

 

[gourdin]

Re : Macro variable

Merci Kjin,

Dans ce cas et pour mieux correspondre à mon problème concret voici mon souhait précis :

Quand j'execute la macro 1e fois : le fond de la cellule (initialement noire) devient rouge
Quand j'execute la macro une 2e fois le fond de la cellule devient noire

Quand j'execute la Macro une 3e fois le fond de la cellule devient rouge

etc..

Merci

 

[phlaurent55]

Re : Macro variable

Salut à tous,

voir fichier joint

bonne journée à) tous
à+
Philippe

 

[kjin]

Re : Macro variable

Re,
Une autre manière d'écrire le code précédent peut-être plus simple à comprendre, en remplacant xlnone(sans) par 1(noir)

Sub NoirRougeNoir()
If ActiveCell.Interior.ColorIndex = 1 Then
    ActiveCell.Interior.ColorIndex = 3
Else
    ActiveCell.Interior.ColorIndex = 1
End If
End Sub

A+
kjin

 

[gourdin]

Re : Macro variable

Merci et bonne fête