Selectionner plage de cellules

Bonjour,

Je cherche à selectionner une plage de cellule variable qui se trouve en colonne A.

La plage n'est jamais la même, elle peut débuter en A2 comme en A5.

Mon soucis, c'est que quand elle débute en A2, mon code englobe le titre de la colonne.

Pareil, si la plage ne contient qu'une cellule, le code englobe le titre.

Ci-dessus le code que j'utilise :

lg = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
Range("A" & lg, Range("A" & lg).End(xlUp)).Select

Ce que je cherche à faire, c'est de ne selectionner que les données en colonne exclusion faite du titre.

Merci pour votre aide,

21select-jw.zip (7.94 Ko)

bonjour,

une proposition à tester

Private Sub CommandButton1_Click()
pl = Range("A1").End(xlDown).Row
dl = Cells(Rows.Count, 1).End(xlUp).Row
If pl = dl Then pl = 2 Else pl = pl + 1 'fait l'hypothèse qu'il y a toujours une et une seule ligne de titre et que les lignes qui précèdent éventuellement le titre sont vides.
Range("A" & pl & ":A" & dl).Select
End Sub

un essai

Private Sub CommandButton1_Click()
fin = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
debut = Sheets("Feuil1").Range("A" & fin).End(xlUp).Row
MsgBox debut & "-" & fin
Range(("A" & debut + 1), Range("A" & fin)).Select
End Sub

il faudrait ensuite tester si le titre est seul !

Merci pour vos contributions?

J'ai opté pour la solution de h2so4.

Le problème qui se posait été le fait qu'à partir du moment où la ligne B était vide la selection était incomplète (-1 en fait)

J'ai supprimé le +1 et ça fonctionne parfaitement maintenant.

Merci encore,

Jeremy

Rechercher des sujets similaires à "selectionner plage"