Boucle calcul colonne
Bonjour,
Comment je pourrai faire une boucle qui se déplace vers la conne suivante après avoir fini le calcul dans cette Colonne
Sub calcul_mom()
Dim DernLigne As Long
DernLigne = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet1").Range("D26").AutoFill Destination:=Range("D26:D" & DernLigne) 'glisse la formule jusqu'à la dernière ligne
Merci pour votre aide
Bonsoir,
ce serait mieux si vous pouvez un fichier excel tout en précisant ce que vous voulez faire....
je pense que ça pourra mieux aider à se situer par rapport à ton problème..
Merci!
Salut,
Voici une solution qui étend la formule en ligne 26 sur les colonnes D à F
Par contre, à voir selon ton cas, mais en utilisant la fonction "mettre sous forme de tableau", tes formules seraient étendues automatiquement.
Sub calcul_mom()
Dim DernLigne As Long
Dim i As Integer
Sheets("Sheet1").Select
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To 6 'de la colonne D à F
Cells(26, i).Select
Selection.AutoFill Destination:=Range(Cells(26, i), Cells(DernLigne, i))
Next i
End SubA+