premiere ligne vide mais une sur trois

pascal21 · 24 Janvier 2010

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 · 24 Janvier 2010

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 :

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

A+

job75 · 24 Janvier 2010

Re : premiere ligne vide mais une sur trois

Re,

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

Code:

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 :

Code:

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

A+

pascal21 · 24 Janvier 2010

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

premiere ligne vide mais une sur trois

pascal21

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Discussions similaires