comment selectionner des lignes aléatoirem

[jodocast]

je souhaite sélectionner plusieurs lignes à partir d une sélection de cellule (sélection différente à chaque fois)

genre je prends à la souris les cellules A2:A6
je lance la macro
cela doit selectionner les lignes 2:6 genre rows(2:6).select en vba

j ai le code que pour une cellule +++++++++++++++++++++++
Rows(ActiveCell.Row & ':' & ActiveCell.Row).Select

je cherche qqch comme
Rows(ActiveCell.Row & ':' & ActiveCell.Row + Selection.Cells.Count).Select

Bien sur 'Selection.Cells.Count' MARCHE PAS, au passage si qq connait comment on fait un comptage de cellule dans une selection en une ligne sans boucle je prends

Merci

 

[Abel]

Bonjour jodocast,

As-tu essayé avec :

selection.rows.count
et
selection.columns.count


Abel.

 

[Abel]

Re,

Heu ... on va dire que c'est un début de piste que je vais compléter (revoir) avant d'aller au ZOP.

Abel.

 

[GIBI]

bonjour,,


pour dénombrer les lignes ou les colonnes dans une selection voici le code

NbrLig = Selection.Rows.Count
NbrCol = Selection.Columns.Count

pour selectionner une plage de cellules ou des lignes (avec EntireRow)

Range(Cells(1, 1), Cells(5, 1)).EntireRow.Select


restons simple

 

[Abel]

Re,

Ah ben là c'est mieux. Hi hi !

Dim MaPlage As Range
Set MaPlage = Application.InputBox(prompt:='Sélectionnez une plage', Title:='', Type:=8)
If MaPlage Is Nothing Then Exit Sub
MaPlage.EntireRow.Select

En espérant que cela te dépanne.

Abel.

 

[Abel]

Re,

Oups ! Pardon GIBI. Pas rafraichi.

Abel.

 

[Hervé]

bonjour jodocast, abel;, gibi

Une syntaxe possible :

    Rows(Selection(1).Row & ':' & Selection(Selection.Count).Row).Select

salut

 

[Abel]

Re,

Ah ben, vé !

Je découvre un truc, là : selection()

Merci Hervé.

Abel.

 

[PascalXLD]

Bonjour

Pour reprendre plusieurs idées peut-être comme ceci au cas où la selection ne soit pas contigue

Option Explicit

Sub selectligne()
Selection.EntireRow.Select
End Sub

Bon courage