Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Dernière cellule non vide

Dernière cellule non vide

5 réponses
Avatar
PST
Bonjour

Soit des tableaux s=E9par=E9 par des lignes vides

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


comment faire pour la prochaine non vide de ce m=EAme tableau

merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Youky
Bonjour PST,
peut être . . .
MsgBox Cells([C1].End(xlDown).Row + 2, 3).End(xlDown) '.row+1 pour avoir
N°ligne vide

A+

"PST" a écrit dans le message de groupe de
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



Avatar
Jacky
Bonjour,

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

--
Salutations
JJ


"PST" a écrit dans le message de news:
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
Avatar
FFO
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
Avatar
Youky
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" a écrit dans le message de groupe de
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" a écrit dans le message de groupe de
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












Avatar
PST
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" a écrit dans le message de groupe de
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