Sélection de rangées évolutive

ggeo

XLDnaute Nouveau
Bonjour,

Pour sélectionner un nombre de rangées défini en A1 je peux utiliser la macro suivante:

If Range('A1') = 2 Then
Rows('5:6').Select
End If
If Range('A1') = 3 Then
Rows('5:7').Select
End If
etc....

Mais pour éviter la répétition je préfèrerais ce type de code:

For n = Range('A1').End.Row To Range('A1').End.Row
Rows('5:n').Select
Next

Pouvez-vous me dire ce qui nuit au bon fonctionnement de ce code ?

Remerciements anticipés et
Bonne journée.

Message édité par: ggeo, à: 18/02/2006 11:24
 

_Thierry

XLDnaute Barbatruc
Bonjour ggeo, le Forum

Sans vraiment avoir de certitude sur l'interprétation faite de ce que tu désires obtenir, voici ma vision VBA :

Sub RowSelector()
Dim NbRow As Byte
Dim Cell As Range

Set Cell = Range('A1')
If Not Cell = Empty And IsNumeric(Cell.Value) Then
    NbRow = Cell + 4
    Rows('5:' & NbRow).Select
End If
End Sub

Bon Samedi
[ol]@+Thierry[/ol]
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas