Premiere ligne vide entre .....

[gds35]

Bonjour , mes AMIS du forum ,

Je cherche a trouver la premiere ligne vide entre A18 et A31 d'une feuille excel pré formatée sachant que dans this workbook la ligne (Lig) est initialise a 18 , j'ai tente plusieurs combinaisons sans succes avec IF While Etc , la valeur de la ligne reste 18 voila mon p'tit bout de code :
' INITIALISATION DE LA PREMIERE LIGNE A COPIER LES VALEURS
'
Lig = 18
Do While Lig = 31
If Range("A" & Lig) <> "" Then
Lig = Lig + 1
End If
Loop
MsgBox Lig
Call SaiResidence

Merci de votre aide

cordialement GDS35
'

 

[Roland_M]

Re : Premiere ligne vide entre .....

bonjour

pour savoir si une ligne est vide

If Application.CountA(Rows(NoDeTaLig)) = 0 Then ' si ligne vide

 

[smotty]

Re : Premiere ligne vide entre .....

Bonjour,

vois avec ça:

l=[A18].End(xlDown).Row+1

A+

Smotty

PS je viens de modifier la lettre.

Ensuite tu peux tester avec:

if l>=31 then ...

A+

 

[gds35]

Re : Premiere ligne vide entre .....

Merci à tous les 2 , mais je n'arrive pas au resultat..... Je dévellope le parcours de mon code , l'utilisateur charge le prg les lignes 18 à 31 sont vierges. Puis il rentre des données dans chaque cellule de la ligne . A la fin je demande une sauvegarde la feuille est enregistrée sous un autre nom et le prg initial donc sauvegarde pour usage ultérieur , mais si l'utilisateur veut ajouter des données a sa feuille sauvegardee il me faut que la valeur initiale de ligne soit incrementée du nbre de ligne deja "occupées"; et la je coince même avec vos précieux conseils. Si vs aviez la gentillesse de me modifier en entier le p'tit bout de code envoyé ? cela serait sympa. Merci GDS35