• Thème : boucle For et Cells | Durée : 10 min | Niveau : débutant.
• Macro à écrire : Carres.

• Lire le nombre N placé en E1.
• À partir de la ligne 2, écrire les nombres de 1 à N dans la colonne A et leur carré dans la colonne B.
• Exemple avec N = 4 : A2:A5 = 1, 2, 3, 4 et B2:B5 = 1, 4, 9, 16.

Sub Carres()
    Dim n As Long, i As Long
    n = Range("E1").Value
    For i = 1 To n
        Cells(i + 1, 1).Value = i
        Cells(i + 1, 2).Value = i ^ 2
    Next i
End Sub

• Cells(ligne, colonne) désigne une cellule par numéros, pratique dans une boucle ; Range("A2") par adresse.
• Le décalage i + 1 tient compte de la ligne d'en-têtes.
• Piège : Dim n, i As Long ne déclare que i en Long ; n reste Variant.

• Propriété Range.Cells : Source Microsoft Learn
• Instruction Dim : Source Microsoft Learn