Macro sur excel

Bonjour à tous, je débute dans les macros.
Voici ce que je dois faire (fichier ci joint) Pas de fichier joint en entame de discussion svp.
Voici ce que j'ai voulu mettre comme code pour la feuille 1 :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Exercice1()   Dim i As Integer For Each cellule In Range("A4:A30")   Cells("B4") = Cells(A4) * (20 / 100)   Next End Sub

---

Mais ca ne marche pas.

Merci à vous

Salut.

Tu mets B4 entre guillemets mais pas A4... ;)

De plus, forcément, à chaque boucle, tu vas travailler sur... B4 et A4... Cela dit, pour répondre stricto sensu à ton cas:

Code:

---

1 2 3 4 5 6 7 8

Sub Exercice1() Dim i As Integer Dim Cellule As Range   For Each Cellule In Range("A4:A30") Cellule(1, 2).Value = Cellule * (20 / 100) ' => revient à diviser par 5 Next End Sub

---