Dernière cellule non vide

Le
PST
Bonjour

Soit des tableaux séparé par des lignes vides

[C1].End(xlDown) me done la première ligne non vide du premier tableau=


comment faire pour la prochaine non vide de ce même tableau

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Youky
Le #20857981
Bonjour PST,
peut être . . .
MsgBox Cells([C1].End(xlDown).Row + 2, 3).End(xlDown) '.row+1 pour avoir
N°ligne vide

A+

"PST" discussion : 4b3b0db3$0$17504$
Bonjour

Soit des tableaux séparé par des lignes vides

[C1].End(xlDown) me done la première ligne non vide du premier tableau

comment faire pour la prochaine non vide de ce même tableau

merci



Jacky
Le #20858291
Bonjour,

MsgBox Cells(Rows.Count, "C").End(3).Row + 1
ou
MsgBox Cells(Rows.Count, 3).End(3).Row + 1

--
Salutations
JJ


"PST" 4b3b0db3$0$17504$
Bonjour

Soit des tableaux séparé par des lignes vides

[C1].End(xlDown) me done la première ligne non vide du premier tableau

comment faire pour la prochaine non vide de ce même tableau

merci
FFO
Le #20858471
Salut à toi
En supposant que le 2° tableau est à partir de la ligne 10 par exemple
If [C1].End(xlDown).Offset(1, 0) = "" Then
If [C1].End(xlDown).End(xlDown).Row < 10 Then
Ligne = [C1].End(xlDown).End(xlDown).Row
End If
Else
If [C1].End(xlDown).Offset(1, 0).Row < 10 Then
Ligne = [C1].End(xlDown).Offset(1, 0).Row
End If
End If

Adaptes la partie "<10" en fonction de la ligne de ton 2° tableau

Celà devrait faire

Dit moi
Youky
Le #20859061
Re;
MsgBox Cells([C1].End(xlDown).Row + 2, 3).End(xlDown) '.row+1
explication
pour trouver la 1ere ligne vide
[C1].End(xlDown).Row +1
pour trouver la 2eme ligne vide, il faut se mettre sur la 1ere ligne du 2eme
tableau donc row+2
row est la derniere ligne du tabeau, row+1 la ligne vide et row+2 la
nouvelle ligne remplie
pour ....,3) le 3 est le N°colonne exemple cells(N°ligne,N°colonne)
voili voilou pour les explications.
A+

"PST" discussion : 4b3b1ec7$0$17486$
Merci impeccable

Row + 2, 3).End(xlDown)

explication svp


Le 30/12/2009 09:46, Youky a écrit :
Bonjour PST,
peut être . . .
MsgBox Cells([C1].End(xlDown).Row + 2, 3).End(xlDown) '.row+1 pour avoir
N°ligne vide

A+

"PST" discussion : 4b3b0db3$0$17504$
Bonjour

Soit des tableaux séparé par des lignes vides

[C1].End(xlDown) me done la première ligne non vide du premier tableau

comment faire pour la prochaine non vide de ce même tableau

merci












PST
Le #20858281
Merci impeccable

Row + 2, 3).End(xlDown)

explication svp


Le 30/12/2009 09:46, Youky a écrit :
Bonjour PST,
peut être . . .
MsgBox Cells([C1].End(xlDown).Row + 2, 3).End(xlDown) '.row+1 pour avoi r
N°ligne vide

A+

"PST" discussion : 4b3b0db3$0$17504$
Bonjour

Soit des tableaux séparé par des lignes vides

[C1].End(xlDown) me done la première ligne non vide du premier table au

comment faire pour la prochaine non vide de ce même tableau

merci





Publicité
Poster une réponse
Anonyme