OVH Cloud OVH Cloud

[VBA] Boucle sur cellules non vides

7 réponses
Avatar
Marc
Bonjour,

Comment parcourir toutes les lignes non vides a partir de la ligne 6 ?

En fait, j'ai des donnees entre les lignes 6 et 250 et je veux afficher
certaines cellules des lignes que je parcours.

Par exemple, la cellule de la colonne A de la ligne courante et celle de la
colonne D si elle n'est pas vide.

D'avance merci,

Un debutant dans le noir ...

7 réponses

Avatar
Michel HOLDERITH
Salut,
Pourquoi ne pas passer par un tri automatique, puis tu choisis cellules non
vide pareils pour la colonne D ?
@+
Michel.
P.S. : ou alors une macro qui te supprime les lignes si A et D etant
vide.....


"Marc" <fun.x@#nospam#caramail.com> wrote in message
news:3fa645a1$0$10415$
Bonjour,

Comment parcourir toutes les lignes non vides a partir de la ligne 6 ?

En fait, j'ai des donnees entre les lignes 6 et 250 et je veux afficher
certaines cellules des lignes que je parcours.

Par exemple, la cellule de la colonne A de la ligne courante et celle de
la

colonne D si elle n'est pas vide.

D'avance merci,

Un debutant dans le noir ...





Avatar
Marc
Parcequ'un parcours est plus utile surtout qd on veut conserver la structure
de la feuille et l'ordre des donnees ...

"Michel HOLDERITH" wrote in message
news:%
Salut,
Pourquoi ne pas passer par un tri automatique, puis tu choisis cellules
non

vide pareils pour la colonne D ?
@+
Michel.
P.S. : ou alors une macro qui te supprime les lignes si A et D etant
vide.....


"Marc" <fun.x@#nospam#caramail.com> wrote in message
news:3fa645a1$0$10415$
Bonjour,

Comment parcourir toutes les lignes non vides a partir de la ligne 6 ?

En fait, j'ai des donnees entre les lignes 6 et 250 et je veux afficher
certaines cellules des lignes que je parcours.

Par exemple, la cellule de la colonne A de la ligne courante et celle de
la

colonne D si elle n'est pas vide.

D'avance merci,

Un debutant dans le noir ...









Avatar
Marc
J'ai realise cela avec le code suivant ....
Est-il possible de l'ameliorer ?

'#CURRENT CODE

Dim firstRow As Integer
Dim lastRow As Integer
Dim i As Integer

firstRow = pCells.Range("A6").Row
lastRow = Cells([A65536].End(xlUp).Row, 1).Row

For i = firstRow To lastRow
Print #fOutputNum, Cells(i, 1).value & vbTab & Cells(i, 4).value
Next

'# END OF CODE

Apparemment Cells(i, "A") marche aussi.

question subsidiaire : existe-t-il une constante elegante pour A65536 genre
vbMaxRow ou apparente ?

"Marc" <fun.x@#nospam#caramail.com> wrote in message
news:3fa645a1$0$10415$
Bonjour,

Comment parcourir toutes les lignes non vides a partir de la ligne 6 ?

En fait, j'ai des donnees entre les lignes 6 et 250 et je veux afficher
certaines cellules des lignes que je parcours.

Par exemple, la cellule de la colonne A de la ligne courante et celle de
la

colonne D si elle n'est pas vide.

D'avance merci,

Un debutant dans le noir ...





Avatar
Michel HOLDERITH
OK, mais pourrais-tu etre un tout petit peux plus precis concernant
l'affichage souhaite de tes cellules ?
J'ai bien une petite boucle en reserve, mais je ne vois pas trop comment tu
veux faire (niveau pratique...)
@+
Michel.

"Marc" <fun.x@#nospam#caramail.com> wrote in message
news:3fa64cdd$0$10427$
Parcequ'un parcours est plus utile surtout qd on veut conserver la
structure

de la feuille et l'ordre des donnees ...

"Michel HOLDERITH" wrote in message
news:%
Salut,
Pourquoi ne pas passer par un tri automatique, puis tu choisis cellules
non

vide pareils pour la colonne D ?
@+
Michel.
P.S. : ou alors une macro qui te supprime les lignes si A et D etant
vide.....


"Marc" <fun.x@#nospam#caramail.com> wrote in message
news:3fa645a1$0$10415$
Bonjour,

Comment parcourir toutes les lignes non vides a partir de la ligne 6 ?

En fait, j'ai des donnees entre les lignes 6 et 250 et je veux
afficher



certaines cellules des lignes que je parcours.

Par exemple, la cellule de la colonne A de la ligne courante et celle
de



la
colonne D si elle n'est pas vide.

D'avance merci,

Un debutant dans le noir ...













Avatar
Michel HOLDERITH
Salut,
ca te prend toutes tes donnees ca non ?
@+
Michel.

"Marc" <fun.x@#nospam#caramail.com> wrote in message
news:3fa652f0$0$10404$
J'ai realise cela avec le code suivant ....
Est-il possible de l'ameliorer ?

'#CURRENT CODE

Dim firstRow As Integer
Dim lastRow As Integer
Dim i As Integer

firstRow = pCells.Range("A6").Row
lastRow = Cells([A65536].End(xlUp).Row, 1).Row

For i = firstRow To lastRow
Print #fOutputNum, Cells(i, 1).value & vbTab & Cells(i, 4).value
Next

'# END OF CODE

Apparemment Cells(i, "A") marche aussi.

question subsidiaire : existe-t-il une constante elegante pour A65536
genre

vbMaxRow ou apparente ?

"Marc" <fun.x@#nospam#caramail.com> wrote in message
news:3fa645a1$0$10415$
Bonjour,

Comment parcourir toutes les lignes non vides a partir de la ligne 6 ?

En fait, j'ai des donnees entre les lignes 6 et 250 et je veux afficher
certaines cellules des lignes que je parcours.

Par exemple, la cellule de la colonne A de la ligne courante et celle de
la

colonne D si elle n'est pas vide.

D'avance merci,

Un debutant dans le noir ...









Avatar
Marc
Oui...

ca te prend toutes tes donnees ca non ?
Disons que c'etait la version alpha :D


Dans la bonne (?) version, j'ai juste ajoute un test pour verifier que la
cellule 4 est > "" et ca realise ce que je voulais

Merci

Marc

"Michel HOLDERITH" wrote in message
news:%
Salut,
ca te prend toutes tes donnees ca non ?
@+
Michel.

"Marc" <fun.x@#nospam#caramail.com> wrote in message
news:3fa652f0$0$10404$
J'ai realise cela avec le code suivant ....
Est-il possible de l'ameliorer ?

'#CURRENT CODE

Dim firstRow As Integer
Dim lastRow As Integer
Dim i As Integer

firstRow = pCells.Range("A6").Row
lastRow = Cells([A65536].End(xlUp).Row, 1).Row

For i = firstRow To lastRow
Print #fOutputNum, Cells(i, 1).value & vbTab & Cells(i, 4).value
Next

'# END OF CODE

Apparemment Cells(i, "A") marche aussi.

question subsidiaire : existe-t-il une constante elegante pour A65536
genre

vbMaxRow ou apparente ?

"Marc" <fun.x@#nospam#caramail.com> wrote in message
news:3fa645a1$0$10415$
Bonjour,

Comment parcourir toutes les lignes non vides a partir de la ligne 6 ?

En fait, j'ai des donnees entre les lignes 6 et 250 et je veux
afficher



certaines cellules des lignes que je parcours.

Par exemple, la cellule de la colonne A de la ligne courante et celle
de



la
colonne D si elle n'est pas vide.

D'avance merci,

Un debutant dans le noir ...













Avatar
Michel HOLDERITH
Range("A6", Range("d65536").End(xlUp)).Select
For i = firstRow To lastRow
Print #fOutputNum, Cells(i, 1).value & vbTab & Cells(i, 4).value
Next

"Marc" <fun.x@#nospam#caramail.com> wrote in message
news:3fa6622e$0$10439$
Oui...

ca te prend toutes tes donnees ca non ?
Disons que c'etait la version alpha :D


Dans la bonne (?) version, j'ai juste ajoute un test pour verifier que la
cellule 4 est > "" et ca realise ce que je voulais

Merci

Marc

"Michel HOLDERITH" wrote in message
news:%
Salut,
ca te prend toutes tes donnees ca non ?
@+
Michel.

"Marc" <fun.x@#nospam#caramail.com> wrote in message
news:3fa652f0$0$10404$
J'ai realise cela avec le code suivant ....
Est-il possible de l'ameliorer ?

'#CURRENT CODE

Dim firstRow As Integer
Dim lastRow As Integer
Dim i As Integer

firstRow = pCells.Range("A6").Row
lastRow = Cells([A65536].End(xlUp).Row, 1).Row

For i = firstRow To lastRow
Print #fOutputNum, Cells(i, 1).value & vbTab & Cells(i,
4).value



Next

'# END OF CODE

Apparemment Cells(i, "A") marche aussi.

question subsidiaire : existe-t-il une constante elegante pour A65536
genre

vbMaxRow ou apparente ?

"Marc" <fun.x@#nospam#caramail.com> wrote in message
news:3fa645a1$0$10415$
Bonjour,

Comment parcourir toutes les lignes non vides a partir de la ligne 6
?





En fait, j'ai des donnees entre les lignes 6 et 250 et je veux
afficher



certaines cellules des lignes que je parcours.

Par exemple, la cellule de la colonne A de la ligne courante et
celle




de
la
colonne D si elle n'est pas vide.

D'avance merci,

Un debutant dans le noir ...