passer à la "range" d'en dessous (simplement)

Bonjour,

il existe dans l'objet Range, une propriété bien sympathique qui s'appelle "next"
et qui permet de passer à la case suivante, vers la droite...
je cherche la même chose, mais vers le bas.

la seule chose à laquelle je pense, c'est

Code:

---

set range_down = Cells(maRange.row+1, maRange.column)

---

personne n'a plus "élégant" ?

bon, quand je l'écris, je me dis que c'est déjà pas mal ...

Mais quand on a des cellules fusionnées, il faut faire :

Code:

---

1 2 3 4 5

If maRange.MergeCells Then Set range_down = maRange.MergeArea.End(xlDown) Else Set range_down = Cells(maRange.Row + 1, maRange.Column) End

---

et comme on le voit, c'est tout de suite moins sympa. voilà pourquoi je cherchais une propriété du genre "maRange.down"

Bonsoir

Code:

---

1 2	set range_down = maRange(2)

---

Plus élégant? ;)

Bonne soirée

allons au fond des choses

Citation:

---

Envoyé par thierryyyyyyy

il existe dans l'objet Range, une propriété bien sympathique qui s'appelle "next"
et qui permet de passer à la case suivante, vers la droite...

---

et si tu essayais ça

Code:

---

1 2	Range("a1").Next(6, 0)

---

mais du coup c'est pareil que offset comme utilisation

Salut.

Juste pour la précision du fond des choses... ;).

Il y a quelques différences entre Next, Offset, et le "décalage direct".

Code:

---

1 2 3

range("a1").offset(1,0) ' => A2 range("A1")(2,1) ' => A2

---

On voit donc qu'il y a une différence d'indice. Si le déplacement est uniquement vertical, on peut omettre le paramètre de colonne.

Code:

---

1 2 3

range("a1").offset(1) ' => A2 range("A1")(2) ' => A2

---

car les paramètres ont 0 par défaut. Mais, à la différence de Offset, le décalage direct demande au moins un paramètre

Code:

---

1 2 3

range("a1").offset() ' correct quoique inutile car => A1 range("a1")(1) ' correct quoique inutile (sauf dans une boucle) car => A1 range("a1")() ' incorrect et renvoie une erreur

---

Avec Next, c'est un peu plus tordu. Le paramètre de ligne est 1 par défaut et celui de la colonne est 1 par défaut, mais!!!, 1 pour le paramètre de ligne veut dire "même ligne" et 1 pour le paramètre de colonne veut dire "une colonne à droite"...:!: Donc si on omet le paramètre de colonne, on décale d'une colonne...

Code:

---

1 2 3 4

range("a1").next ' => B1 range("a1").next() ' => B1 range("a1").next(1) ' => B1 !! range("a1").next(2,1) ' => B2... tordu, non?

---

La moquette de Redmond n'est pas meilleure que la nôtre :mrgreen:

Et ça ? Ca donnerais quoi ?

Code:

---

1 2 3 4 5 6

range("a1").next ' => B1 range("a1").next() ' => B1 range("a1").next(1) ' => B1 !! range("a1").next(2,1) ' => B2... tordu, non? range("a1").next(2,0) ' => ?

---

Code:

---

1 2	range("a1").next(2,0) ' => ?

---

Une ligne en dessous même colonne, donc A2.

Lorsque je dis que c'est différent de Offset, c'est parce qu'avec Offset, tu n'utilises pas les mêmes paramètres.
Pour pointer vers A2, on peut utiliser

Code:

---

1 2 3 4

Range("a1").Next(2, 0).Select Range("a1").Offset(1, 0).Select Range("a1")(2, 1).Select

---

On remarque que les paramètres sont à chaque fois différents.
Ok?

Ouais, c'est très bien expliqué, ca m'a été d'une grande aide, mais tiens voir si tu es aussi fort que cela ^^

Connaitrais-tu une instruction qui se baladerait mais dans une selection qui est filtrée ? Parce que Offset, Next etc... se déplace sur toutes les lignes de la feuille et même celles cachées.

J'attends la réponse avec impatience, si tu y réponds je deviendrais ton exclave :mouarf:

Ouuuaaahhhhhh !!!!
je suis impressionné par les réponses, de plus en plus précise, merci 1000 fois.
je me demande pourquoi le Next(r,c) n'est pas documenté dans l'aide en ligne d'Excel ou peut-être mon étonnement vient du "pourquoi je ne l'ai pas trouvé"

en revanche le Range("a1")(2, 1), je comprends pourquoi j'ai pas trouvé.

Pour Swiper qui joue au plus malin, j'ai le début d'une solution :
si tu protège une feuille sauf les champs où les utilisateurs sont sensé remplir par leur valeurs, tu peux utiliser Next : il passera au champ modifiable suivant.
Ca, c'est pour la méthode qui (dans le cas idéal) est la plus élégante.

Sinon, tu peux boucler avec des tests sur les range parcourues :
if maRange.Hidden then ...
:yaisse2: tu veux bien devenir mon esclave ?

Pour itérer sur les cellule visibles d'une plage

Code:

---

1 2 3 4 5 6

Dim Cellule As Range   For Each Cellule In Range("a1:a4").SpecialCells(xlCellTypeVisible) MsgBox Cellule Next Cellule

---

Sinon, je pense qu'il faut passer par une fonction perso

WWouaouhhhh
vous êtes tous trop fort,
merci à tous grace à vos explication j'ai pu écrire de pus jolies macros.

;)

Le deal était passé avec Pierre, dommage ^^

Ta réponse est très bien réfléchis et excellente, mais juste pour savoir(car j'avais un problème qui demandais cette solution), comment partir d'en bas de la selection filtrée et remonter de 50 lignes, ou plutot de 50x une cellule. Pour en fait selectionner les 50 dernières valeurs des données filtrées.

Alors là, si tu réussis je danse la makhareinna...

PS : Moi, je suis complétement ahuri devant ses réponses, mais comment fais-tu pour savoir tout ça ? ^^

Code:

---

1 2 3

maRange.End(xlDown).select ' sélectionne la dernière cellule ayant une valeur Range(Selection.offset(-50,0),Selection).select ' sélection les 50 dernières ligne

---

code non testé, directement écrit dans le forum donc potentiellement plein de bugs

si tu veux encore une fois ne sélectionner que les visibles (et les invisibles qui se cachent entre les visibles), il faut encore une fois faire une boucle avec le if range.Hidden .

C'est vrai qu'il est balaise, le Pierre. Mais bon, à 40 ans, si en plus c'est son métier, je comprends que ca soit assez facile pour lui

Désolé, mon cher thierry, mais l'offset ne marche pas, l'offset fonctionne comme s'il n'y avait pas de filtre, il va donc remonter de 50 lignes, oui, mais pas 50 lignes filtrées.

Ce n'est pas aussi simple que cela en à l'air... ;)

bonjour,
discussion tres interessante on apprend plein de chose!!!
c est ce qui fait la force du forum .
chacun avec ses questions et les reponses qui lui sont apportées
contribue a l apprentissage du langage.

Citation:

---

Envoyé par thierryyyyyyy

si tu veux encore une fois ne sélectionner que les visibles (et les invisibles qui se cachent entre les visibles), il faut encore une fois faire une boucle avec le if range.Hidden .

---

Donc, si tu appliques cette petite phrase :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

maRange.End(xlDown).Select ' sélectionne la dernière cellule ayant une valeur   i = 0 initialRow = Selection.row While i < 50 Selection.Offset(-1,0).Select If Not Selection.Hidden Then i = i+1 Wend   Range(Selection,activeSheet.Cells(initialRow,Selection.column)).select ' sélection les 50 dernières ligne

---

et toujours :

code non testé, directement écrit dans le forum donc potentiellement plein de fautes de syntaxe

bonjour a tous

et pourquoi pas

Code:

---

sendkey "{down}"

---

Bonne journée

J'avoue que wilfried tu m'épates....

Je restes sans voie... Bravo mais c'est un peu barbare...

Pour Thierry, ca peut marcher faudrais que j'essaie mais là je rentre à la maison, fin du boulot et c'est tant mieux !!

j'ai voulu utiliser le select de l'aide :

Citation:

---

Envoyé par Dans l'aide il y

Syntaxe

expression.Select(Replace)

expression Obligatoire Expression qui renvoie un des objets répertoriés dans la liste « S'applique à ».

Replace Argument de type Variant facultatif (utilisé seulement avec les feuilles). Affectez-lui la valeur True pour remplacer la sélection en cours par l'objet spécifié. Affectez-lui la valeur False pour étendre la sélection en cours afin d'inclure tous les objets précédemment sélectionnés et l'objet spécifié.

---

mais ça n'a pas l'ai de fonctionner.

Citation:

---

Envoyé par ce sacré wilfried

bonjour a tous

et pourquoi pas
Code :

sendkey "{down}"

Bonne journée
__________________
Wilfried

---

je capte pas du tout ce que c'est que çà. et dans la syntaxe, e dans le text, et dans la forme. peut etre une explication?

Bonjour alsimbad

les filtres automatiques meme s'ils masquent les lignes, ne modifient en rien la proprieté hidden des lignes, si tu verifies hidden reste à false

dans une macro, pour passer d'une ligne à l'autre ca devient compliqué

alors en te positionnant sur ta barre de titre et en simulant l'appui de la touche fleche en bas, tu passes en revue seulement les lignes restantes

exemple :

Code:

---

1 2 3 4 5 6

Range("A1").select sendkeys "{DOWN}",true While activecell.row<=Range("A65535").end(xlup).row ' tu effectues ton traitement sur la ligne de Activecell sendkeys "{DOWN}",true wend

---

bonne soirée