XL 2013 Macro Sélection toutes cellules

cp4

XLDnaute Barbatruc

• 8 Juin 2017

• #2

Bonjour,
Comme ceci

VB:

Sub selection()
    Dim dl As Long
    With Sheets(1)
        dl = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A2:F" & dl).Select
    End With
End Sub

 

Vote positif 0 Vote négatif

BRUNO28

XLDnaute Nouveau

• 8 Juin 2017

• #3

Je teste et je reviens. Merci

 

Vote positif 0 Vote négatif

BRUNO28

XLDnaute Nouveau

• 8 Juin 2017

• #4

Testé et approuvé.
Grand Merci à vous.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 8 Juin 2017

• #5

Bonjour

A noter que CRTL * à partir d'une cellule non vide quelconque de la colonne A et un clic sur le bouton AZ fait la même chose sans VBA...

 

Vote positif 0 Vote négatif

BRUNO28

XLDnaute Nouveau

• 8 Juin 2017

• #6

Merci pour ce conseil.
Bonne Journée

 

Vote positif 0 Vote négatif