Maude,
comme la colonne résultat du classeur joint du post#3 contient des formules de calculs,
j'étais parti sur cette base et pourtant j'avais testé mais peut-être après un test
ai-je commis l'erreur de copier les cellules de la colonne C vers la colonne A …
Voici une correction pour un résultat avec une formule de calculs dans chaque cellule :
1 2 3 4 5 6 7
| Sub Demo1()
With Cells(5, 1)
.FormulaR1C1 = "=R[-1]C+0.1"
.AutoFill .Resize(.End(xlDown).Value / 0.1), xlFillCopy
.Offset(-1).Value = 0
End With
End Sub |
S'il faut conserver le format des cellules mais sans formule, insérer alors en ligne n°6 cette ligne de code :
With .Resize(.End(xlDown).Row - 4): .Value = .Value: End With …
Alternative s'il n'est pas nécessaire de conserver le format des cellules et toujours par formule (vis à vis du n° de ligne) :
1 2 3
| Sub Demo2()
Cells(4, 1).Resize(Cells(4, 1).End(xlDown).Value / 0.1 + 1).Formula = "=(ROW()-4)*0.1"
End Sub |
Et s'il ne faut pas de formule, toujours sans conserver le format des cellules :
1 2 3 4 5 6
| Sub Demo3()
With Cells(4, 1).Resize(Cells(4, 1).End(xlDown).Value / 0.1 + 1)
.Formula = "=(ROW()-4)*0.1"
.Value = .Value
End With
End Sub |
__________________________________________________________________________________________
Merci de cliquer sur
pour chaque message ayant aidé puis sur
pour clore cette discussion …
Partager