Macro variable

G

Guest

Guest

• 23 Décembre 2009

• #2

Re : Macro variable

Bonjour,

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

Mais voici:

Code:

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

A+

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 23 Décembre 2009

• #3

Re : Macro variable

C'est parfait

Merci beaucoup

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 24 Décembre 2009

• #4

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 24 Décembre 2009

• #5

Re : Macro variable

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

Code:

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

A+
kjin

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 24 Décembre 2009

• #6

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 24 Décembre 2009

• #7

Re : Macro variable

Salut à tous,

voir fichier joint

bonne journée à) tous
à+
Philippe

 

Pièces jointes

• 111.xls

  23.5 KB · Affichages: 54
• 111.xls

  23.5 KB · Affichages: 53
• 111.xls

  23.5 KB · Affichages: 54

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 24 Décembre 2009

• #8

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)

Code:

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

A+
kjin

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 24 Décembre 2009

• #9

Re : Macro variable

Merci et bonne fête

 

Vote positif 0 Vote négatif