Bonjour

tu peux utiliser : Cells(1, 1).Resize(ActiveCell.Row - 1, 30).Select
Le savoir est la seule matière qui s'accroît quand on la partage. (Socrate)

Ca ne marche pas comme je l'espérai (ca ne sélectionne qu'une ligne alors qu'il me faut toutes les lignes du dessus). Cependant j'ai fini par trouver la formule :


Range("A1").End(xlDown).Offset(1, 0).Select
Range("AD1:A" & ActiveCell.Offset(-1, 0)).Select


Merci quand même.

Bonjour

Ca ne marche pas comme je l'espérai (ca ne sélectionne qu'une ligne alors qu'il me faut toutes les lignes du dessus).

C'est certainement que tu n'as pas utilisé la formule car en commençant à cells(1,1) pas facile de laisser des lignes au-dessus !

Range("A1").End(xlDown).Offset(1, 0).Select
Range("AD1:A" & ActiveCell.Offset(-1, 0)).Select

Autant pour moi, j'avais mal recopié ta formule. Tu avais raison, désolé. (ca m'apprendra à ne pas utiliser Ctrl C et V)

Ceci dit, elle reste inadéquate par rapport à mes besoins : il me fallait sélectionner toutes une plage de cellules situées au dessus de la cellule active, cellule active définie par une détection macro. Sa place devait donc être défine par autre chose que ma sélection manuelle de cellule active.

C'est pourquoi mes 2 lignes me permettent de trouver automatiquement la cellule active adéquate, puis de sélectionner toute la plage de cellules qui m'intéressait.

Merci quand même de t'être penché sur mon problème ;)

Je garde ta formule de coté car elle pourra m'être utile dans un futur proche.