Boucle

Bonjour,

Mon problème est simple mais n'ayant pas un niveau avancé sur excel je suis bloqué dessus.

Je souhaite créer une macro reprenant cette formule:

H1=H1+import!H1

Je souhaiterais que cette macro me permette d'incrémenter cette formule jusqu'en H45. J'ai essayer de me renseigner sur les boucles puisque cela semble être la solution mais je n'arrive pas à la mettre en place.

Quelqu'un pourrait-il m'aider?

Edouard

Bonjour et bienvenu(e)

Nul besoin de boucle

Sub Test()
  Range("H1:H45").Formula = "=H1+import!H1"
End Sub

Mais tu vas avoir des références circulaires

Bonjour,

Ou alors :

Sub Test()
Dim i As Integer
    For i = 1 To 45
        Cells(i, "H") = Cells(i, "H") + Worksheets("Import").Cells(i, "H")
    Next i
End Sub

A+

Merci ça fonctionne