Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
Repose en paix
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 :



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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…