Bonjour, bonjour !
Pourquoi une boucle ?! Une formule de calculs est tellement plus efficace !
Comme demandé dans la pièce jointe, résultat en colonne F (la vider auparavant) :
1 2 3 4 5 6 7 8 9
| Sub Demo()
With Feuil1.Cells(1).CurrentRegion.Rows
VA = .Item("2:" & .Count).Columns(3).Address
End With
With Application
VA = .Transpose(Filter(.Transpose(Evaluate("IF(" & VA & ">""""," & VA & ")")), False, False))
End With
Feuil1.[F2].Resize(UBound(VA)).Value = VA
End Sub |
_____________________________________________________________________________________________________
Merci de cliquer sur
pour chaque message ayant aidé puis sur
pour clore cette discussion …
_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
Partager