Discussion :

[rochero]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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