premiere ligne vide mais une sur trois

[pascal21]

bonjour le forum
pour finaliser mon "usine à gaz", je cherche comment faire pour atteindre la dernière cellule non vide (mais 1 sur 3)
je rentre des nouvelles references ligne 2 et elles vont se "ranger" dans la dernière cellule vide
ex: A5 VIDE A6 A7 formule
A8 VIDE A9 A10 formule
etc.....
lignes vides A5 A8 ETC.....
voir le fichier pour mieux comprendre
merci

 

[job75]

Re : premiere ligne vide mais une sur trois

Bonjour Pascal,

Que comprendre ?

Le titre du fil :

premiere ligne vide mais une sur trois

ou bien :

je cherche comment faire pour atteindre la dernière cellule non vide (mais 1 sur 3)

A+

 

[job75]

Re : premiere ligne vide mais une sur trois

Re,

A la réflexion, tu veux sans doute cette macro :

Sub Transfert()
Dim i As Long
i = 5
While Application.CountA(Cells(i, 1).Resize(, 4))
i = i + 3
Wend
Cells(i, 1).Resize(, 4) = Range("A2:D2").Value
End Sub

A lancer par un bouton.

Edit : si la plage A2:C2 doit être complète, mets ce test en début de macro :

If Application.CountA(Range("A2:C2")) < 3 Then MsgBox "Plage A2:C2 incomplète", 4: Exit Sub

A+

 

[pascal21]

Re : premiere ligne vide mais une sur trois

bonjour job
tu as parfaitement compris ce que je désirais
c'est vrai, premiere, derniere ligne je me suis emmelé les pinceaux
bon dimanche
merci