Discussion :

[Abed_H]

Bonsoir Abed_H

Ok j'ai compris, mais j'ai oublié de préciser que l'adresse de la zone nommée "liste_noms" peut variée par ex. (adresse Feuil1!$A$5:$A$15) peut devenir (adresse Feuil1!$A$10:$A$25).

@ +

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each cell In Range("liste_noms")
'-------
'-------
'-------
Next

[modus57]

Re bonsoir Abed_H

Cela aussi semble fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Zone = Sheets("Feuil1").Range("liste_noms").Row
For i = Zone To Cells(Rows.Count, 1).End(xlUp).Row

Ton avis svp

Je teste ta proposition :

For Each cell In Range("liste_noms")
'-------
'-------
'-------
Next

[Abed_H]

Re,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Debut = Application.Index(Range("liste_noms"), 1, 1).Row
 Fin = Range("liste_noms").Rows.Count
     For i = Fin To Debut Step -1

Bonne soirée

Abed_H

[modus57]

Re

Debut = Application.Index(Range("liste_noms"), 1, 1).Row
Fin = Range("liste_noms").Rows.Count
For i = Fin To Debut Step -1

Chez moi çà fonctionne pas.


Par contre en utilisant l'une ou l'autre de ces lignes c'est tip top.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Zone = Sheets(1).Range("liste_noms").Row
For i = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row To Zone Step -1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Debut = Application.Index(Range("liste_noms"), 1, 1).Row
For i = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row To Debut Step -1

A demain

[fring]

Re,

oui cela fonctionne mais en supposant que tu as 300 lignes et que ta Plage "liste_noms" est de A5 à A25, ce que tu as écris correspond de A300 à A5

Ce que Abed t'a proposé est presque correcte, il y a juste un petit problème avec la variable Fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Debut = Application.Index(Range("liste_noms"), 1, 1).Row
Fin = Debut + Range("liste_noms").Rows.Count
For i = Fin To Debut Step -1

[modus57]

Bonjour fring, le forum

Désolé de ne pas avoir répondu plutôt car je me suis absenté quelques jours.

En effet en supposant que la colonne contienne 300 lignes et que ta Plage "liste_noms" est de A5 à A25, cela concerne effectivement les lignes A300 à A5.
Ta solution est intéressante pour les lignes correspondant à la plage "liste_noms".

Ma procédure concerne les lignes depuis la première ligne de la plage "liste_noms" jusqu'à la dernière ligne de la colonne, à condition qu’il n’y ait aucunes lignes vides.

Dans le cas de lignes vides, pourrait-on utiliser la fonction de recherche Range, Find et xlPrevious ou partir du bas : Cells(Rows.Count, 2).End(xlUp).Select qui sélectionne la dernière cellule occupée de la colonne.

Merci d’avance pour ta réponse @ +.

[fring]

Il faudrait commencer par être cohérent dans tes différentes questions !!!

Mais comment procéder pour limiter le comptage à une zone nommée "liste_noms" (adresse Feuil1!$A$5:$A$15) ?

Ma procédure concerne les lignes depuis la première ligne de la plage "liste_noms" jusqu'à la dernière ligne de la colonne

à condition qu’il n’y ait aucunes lignes vides

et si il y en a, il faut faire quoi ? les ignorer dans le comptage de ligne ? s'arrêter à la 1ère ligne vide ?

Il me semble que ça commence à partir un peu dans tout les sens par rapport à ta question initiale...!

[modus57]

Re

Pour être plus cohérent, mon application a évoluée depuis ma première question.

Aujourd'hui, je cherche à compter les lignes entre la première ligne de la plage "liste_noms" jusqu'à la dernière ligne contenant une cellule réellement non vide de la colonne, y compris les lignes vides.

J'espère que cela plus est explicite.

[fring]

Alors essaye ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
debut = Application.Index(Range("liste_noms"), 1, 1).Row
fin = Cells(Rows.Count, Range("liste_noms").Column).End(xlUp).Row
 
For i = fin to debut Step -1