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
personne n'a plus "élégant" ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part set range_down = Cells(maRange.row+1, maRange.column)
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 :
et comme on le voit, c'est tout de suite moins sympa. voilà pourquoi je cherchais une propriété du genre "maRange.down"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager