Sélection de rangées évolutive

[ggeo]

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]

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]

 

[ggeo]

Merci Thierry,

Cela me convient parfaitement.

Cordialement.