boucle For

[akramenergie]

Bonjour le forum

sur ma macro suivante je voudrais faire une boucle for sur l'alphabé "A" A prend la valeur A , B , C , D , E ..........X


For i = 4 To 93
Sheets("2010").Cells(l + 2, i).Value = Evaluate("sum(A7:A" & l & ")")
Next i
Merci pour votre aide

 

[akramenergie]

Re : boucle For

Aucune proposition sur ce probléme 😕

 

[freefer]

Re : boucle For

Je ne comprends pas ce que tu veux ???????

Freefer

 

[pierrejean]

Re : boucle For

Bonjour akramenergie

A tester

For i = 4 To 93
  Sheets("2010").Cells(l + 2, i).Value = Evaluate("Sum(" & lettre(i - 3) & "7:" & lettre(i - 3) & l & ")")
Next i

En ajoutant:

Function lettre(col)
  lettre = Replace(Cells(1, col).Address(0, 0), "1", "")
End Function

En effet je suppose que tu veux aller au dela de X (de 0 a 93 il y a plus de 25)

 

[akramenergie]

Re : boucle For

Merci beaucoup pierrejean ca marche comme une horloge 😉