OVH Cloud OVH Cloud

Sélection de plusieurs lignes

21 réponses
Avatar
Archi
Quel expression placer dans une instruction de sélection de lignes
consécutives par leur numéro.
Autrement dit, dans une instruction du type
Rows(StartNoLine ??? EndNoline).Select
où StartNoLine et EndNoline sont des Integer, par quoi faut-il remplacer
les "???", à moins que cela ne soit pas possible... ?

Merci d'avance

10 réponses

1 2 3
Avatar
ru-th
Salut

essaies
rows(debut & ":" & fin).select

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Archi" a écrit dans le message de news:

Quel expression placer dans une instruction de sélection de lignes
consécutives par leur numéro.
Autrement dit, dans une instruction du type
Rows(StartNoLine ??? EndNoline).Select
où StartNoLine et EndNoline sont des Integer, par quoi faut-il remplacer
les "???", à moins que cela ne soit pas possible... ?

Merci d'avance



Avatar
Michel Gaboly
Bonjour,

Tu ne précises pas ce que représentent StartNoLine et EndNoline.

Non numériques, mais encore ? ;-))

Si ce sont des Range, voici une solution :

Sub SelLignes()
Dim StartNoLine As Range, EndNoLine As Range
Set StartNoLine = Range("Start")
Set EndNoLine = Range("End")
Rows(StartNoLine.Row & ":" & EndNoLine.Row).Select
End Sub


Quel expression placer dans une instruction de sélection de lignes
consécutives par leur numéro.
Autrement dit, dans une instruction du type
Rows(StartNoLine ??? EndNoline).Select
où StartNoLine et EndNoline sont des Integer, par quoi faut-il remplacer
les "???", à moins que cela ne soit pas possible... ?

Merci d'avance


--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Avatar
ru-th
heu, il me semble qu'il a dit
où StartNoLine et EndNoline sont des Integer
Il m'a semblé avoir ouï dire qu'integer c'était plus ou moins numérique !


;-))
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Michel Gaboly" a écrit dans le message de news:

Bonjour,

Tu ne précises pas ce que représentent StartNoLine et EndNoline.

Non numériques, mais encore ? ;-))

Si ce sont des Range, voici une solution :

Sub SelLignes()
Dim StartNoLine As Range, EndNoLine As Range
Set StartNoLine = Range("Start")
Set EndNoLine = Range("End")
Rows(StartNoLine.Row & ":" & EndNoLine.Row).Select
End Sub


Quel expression placer dans une instruction de sélection de lignes
consécutives par leur numéro.
Autrement dit, dans une instruction du type
Rows(StartNoLine ??? EndNoline).Select
où StartNoLine et EndNoline sont des Integer, par quoi faut-il remplacer
les "???", à moins que cela ne soit pas possible... ?

Merci d'avance


--
Cordialement,

Michel Gaboly
http://www.gaboly.com





Avatar
AV
...
heu, il me semble qu'il a dit
où StartNoLine et EndNoline sont des Integer
Il m'a semblé avoir ouï dire qu'integer c'était plus ou moins numérique !




Et que même que si j'étais lui que j'éviterais le Integer pour les lignes !
Dim ...Double ou rien du tout car après la ligne 32 767...plouf !
....Dépassement de capacité

AV



Avatar
Michel Gaboly
Mea culpa, monsieur le juge ;-))

lu trop vite, le "ne" final de EndNoline qui précède immédiatement "sont"
m'a fait mal interpréter. J'ai cru à une négation, le tout me semblant logique
car avec des Integer, c'était trop simple, et naïvement selon moi, la question
ne se posait même pas ;-)))



heu, il me semble qu'il a dit
où StartNoLine et EndNoline sont des Integer
Il m'a semblé avoir ouï dire qu'integer c'était plus ou moins numérique !


;-))
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Michel Gaboly" a écrit dans le message de news:

Bonjour,

Tu ne précises pas ce que représentent StartNoLine et EndNoline.

Non numériques, mais encore ? ;-))

Si ce sont des Range, voici une solution :

Sub SelLignes()
Dim StartNoLine As Range, EndNoLine As Range
Set StartNoLine = Range("Start")
Set EndNoLine = Range("End")
Rows(StartNoLine.Row & ":" & EndNoLine.Row).Select
End Sub


Quel expression placer dans une instruction de sélection de lignes
consécutives par leur numéro.
Autrement dit, dans une instruction du type
Rows(StartNoLine ??? EndNoline).Select
où StartNoLine et EndNoline sont des Integer, par quoi faut-il remplacer
les "???", à moins que cela ne soit pas possible... ?

Merci d'avance


--
Cordialement,

Michel Gaboly
http://www.gaboly.com





--
Cordialement,

Michel Gaboly
http://www.gaboly.com



Avatar
Archi
Cela ne peut pas marcher puisque cela concatène des numériques et du
caractère. J'ai essayé la solution très inélégante Rows(Str(debut) & ":"
& Str(fin)) mais je reçois une erreur de type.

Je m'en remet donc à la solution de Michel même si je reste sur ma faim
parce que cela révèle une lacune de la fonction Rows.

ru-th a écrit:
Salut

essaies
rows(debut & ":" & fin).select

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Archi" a écrit dans le message de news:


Quel expression placer dans une instruction de sélection de lignes
consécutives par leur numéro.
Autrement dit, dans une instruction du type
Rows(StartNoLine ??? EndNoline).Select
où StartNoLine et EndNoline sont des Integer, par quoi faut-il remplacer
les "???", à moins que cela ne soit pas possible... ?

Merci d'avance








Avatar
AV
Cela ne peut pas marcher puisque cela concatène des numériques et du
caractère.


Mais non, mais non...
A toi cow-boy !

AV

Avatar
Archi
Ouais OK, c'est parce que je sais que mon appli ne dépasse pas la ligne
fatidique.

Il n'en reste pas moins que cela reste un problème ridicule d'écriture
et de déclaration de variables.

A propos Michel, si tu me lis, comment déclares-tu "Start" et "End" et
pourquoi mets-tu Start en End entre "" dans Range() ?

Bon Salut, je vais dîner avec ma Mie, je reviendrai plus tard sur cet
échange convivial.

AV a écrit:
...

heu, il me semble qu'il a dit

où StartNoLine et EndNoline sont des Integer


Il m'a semblé avoir ouï dire qu'integer c'était plus ou moins numérique !




Et que même que si j'étais lui que j'éviterais le Integer pour les lignes !
Dim ...Double ou rien du tout car après la ligne 32 767...plouf !
....Dépassement de capacité

AV







Avatar
ru-th
A toi cow-boy !
Merci, Monsieur le Président


pour selectionner des lignes, nous faisons classiquement
rows("3:5").select
"3:5" est du texte, une string (pas un string, sinon, JPS va rappliquer !)
supposons StartNoLine =3 et
EndNoline=5
si nous concaténons StartNoLine &":" &EndNoline (& concatène du texte, ),
nous avons 1 numérique 1 chaine texte 1 numérique liés ensemble
bilan : une chaine texte "3:5" qui correspond à notre besoin
Testes et tu devrais obtenir le résultat souhaité

rows(StartNoLine & ":" & EndNoline).select

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"AV" a écrit dans le message de news:
e$
Cela ne peut pas marcher puisque cela concatène des numériques et du
caractère.


Mais non, mais non...
A toi cow-boy !

AV





Avatar
Denis Michon
Bonjour,


Il y a aussi un truc du genre :

La cellule de son choix et dans la parenthèse de resize(), le nombre de lignes que l'on veut ajouter à la sélection
incluant la ligne de la cellule de départ. Cependant, cette valeur ne peut être négative !

[D10].Resize(5).EntireRow.Select

Range("A5").Resize(5).EntireRow.Select


Salutations!




"ru-th" a écrit dans le message de news:u%
A toi cow-boy !
Merci, Monsieur le Président


pour selectionner des lignes, nous faisons classiquement
rows("3:5").select
"3:5" est du texte, une string (pas un string, sinon, JPS va rappliquer !)
supposons StartNoLine =3 et
EndNoline=5
si nous concaténons StartNoLine &":" &EndNoline (& concatène du texte, ),
nous avons 1 numérique 1 chaine texte 1 numérique liés ensemble
bilan : une chaine texte "3:5" qui correspond à notre besoin
Testes et tu devrais obtenir le résultat souhaité

rows(StartNoLine & ":" & EndNoline).select

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"AV" a écrit dans le message de news:
e$
Cela ne peut pas marcher puisque cela concatène des numériques et du
caractère.


Mais non, mais non...
A toi cow-boy !

AV





1 2 3