"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
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
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
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
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
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" <pgjignorez@wanadoo.fr> a écrit dans le message de groupe de
discussion : 4b3b1ec7$0$17486$ba4acef3@news.orange.fr...
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" <pgjignorez@wanadoo.fr> a écrit dans le message de groupe de
discussion : 4b3b0db3$0$17504$ba4acef3@news.orange.fr...
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
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
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
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" <pgjignorez@wanadoo.fr> a écrit dans le message de groupe de
discussion : 4b3b0db3$0$17504$ba4acef3@news.orange.fr...
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