[VBA-E]copie d'une formule tant que

Bonjour,

Sur une même ligne, j'arrive à colorier ou à mettre une valeur dans une cellule tant que cette cellule n'est pas vide. Mais je n'arrive pas à faire la même chose tant que la ligne du dessus contient une valeur.

Merci d'avance

c'est juste une histoire d'index... montre nous ton code... puis voir peu-être .offset(-1)...

Voilà comment j'arrive à colorier une série horizontale tant que la cellule est différente de 0.

Code:

---

1 2 3 4 5

For Each c In Range("1:1") If c.Value <> 0 Then c.Interior.ColorIndex = 3 End If Next c

---

J'ai pensé qu'Il faudrait peut être qu'une autre boucle test la première, j'ai alors fait ceci, mais de cette manière la formule est répétée jusqu'au bout de la ligne.

Code:

---

1 2 3 4 5 6 7

For Each d In Range("8:8") For Each c In Range("9:9") If d.Value <> 0 Then c.FormulaR1C1 = "=R[-1]C*100/R11C2/100" End If Next c Next d

---

[Balises "Code" ajoutées par AlainTech]
[Pensez-y vous-même à l'avenir. Merci.]

regarde pour mon histoire d'offset

Code:

---

1 2 3 4 5

For Each c In Range("1:1") If c.Value <> 0 Then c.offset(1,0).Interior.ColorIndex = 3 End If Next c

---

ainsi tu parcours et teste la ligne 1 ... et tu agit sur la ligne 2...

J'ai parallelement à ta première réponse travaillé sur la piste Offset que tu m'avais indiqué.

Et grace à toi j'ai trouvé cela :

Code:

---

1 2 3 4 5

For Each d In Range("A6:ZZ6") If d.Value >= 0 Then d.Offset(2, 0).FormulaR1C1 = "=R[-1]C*100/R11C2/100" End If Next d

---

Merci à toi pour cette aide

[Balises "Code" ajoutées par AlainTech]
[Pensez-y vous-même à l'avenir. Merci.]