Sélectionner une ligne

Salut, j'ai un petit, il s'agit d'un truc tout simple mais je n'y arrive pas.

J'aimerai sélectionner la ligne entière, c'est à dire de A1 à D1 mais ça ne me sélectionne que une case à chaque fois, par exemple ça va me sélectionner B1 mais pas toute la ligne en entière.

J'ai essayé avec "Rows" mais ça n'a pas marché.

Merci

Voici le code en question :

Sub CelluleAuHasard()

Dim fermer As Long

Sheets("Données").Select

Range("A2:A15").Select

End Sub

peux-tu essayer avec

activate

au lieu de

select

Bonjour,

Range("A2:A15").EntireRow.Select

P.

patrick1957 a écrit :

Bonjour,

Range("A2:A15").EntireRow.Select

P.

Oui mais là je sélectionne la première ligne alors que moi j'ai un code qui sélectionne une ligne au hasard (mais qui ne sélectionne que une case pour le moment)

papyx a écrit :

peux-tu essayer avec

activate

au lieu de

select

Je vais essayer

re,

Sub CelluleAuHasard()

Dim fermer As Long

Last = [A65000].End(xlUp).Row

alea = Application.RandBetween(2, Last)

Sheets("Données").Select

Range("A" & alea).EntireRow.Select

End Sub

Je viens d'essayer et ça ne me sélectionne pas toute la ligne comme j'aimerais bien.

ha bon?

Ceci fonctionne chez moi ...

P.

En fait cela marche, mais cela me sélectionne toute la ligne et moi j'aimerai que cela sélectionne de A à la colonne E par exemple.

J'ai du mal m'exprimer toute à l'heure.

Sub CelluleAuHasard()

Dim fermer As Long

Last = [A65000].End(xlUp).Row

alea = Application.RandBetween(2, Last)

Sheets("Données").Select

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

End Sub

Bonsoir,

Et ainsi...

Cdlt.

Option Explicit

Public Sub DEMO()
Dim lastCol As Long, lastRow As Long
Dim x As Long

    With ActiveSheet
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        x = CLng(Application.RandBetween(2, lastRow))
        lastCol = .Cells(x, Columns.Count).End(xlToLeft).Column
        .Range(.Cells(x, 1), .Cells(x, lastCol)).Select
    End With

End Sub

Merci beaucoup à toi pour le temps que tu prends pour moi.

Par contre tu vas me détester, mais là ça me prend bien mes lignes mais j'aurais bien voulu limiter la zone par exemple ne pas sélectionner de ligne après la ligne numéroté 20 sur Excel.