Selectionner des lignes par leur numéro

Résolu
simco -  
simco Messages postés 53 Statut Membre -
Bonjour à toutes et tous,

Je voudrais savoir comment il est possible de sélectionner plusieurs lignes non consécutives via leur numéro. Imaginons que je veuille sélectionner la ligne 2,6,8 et 11 sans devoir cliquer sur leur numéro à gauche.
Pour être plus clair, je dois sélectionner une série de lignes sur différentes feuilles excel mais au vu du nombre de ligne à sélectionner il serait très laborieux de devoir les sélectionner une par une en laissant enfoncé ctrl.
En espérant avoir été clair, j'attends vos réponses avec impatience.

Merci d'avance

A voir également:

3 réponses

ccm81 Messages postés 11033 Statut Membre 2 433
 
Bonjour

Il va falloir passer par une petite macro
http://www.cjoint.com/c/FKgtLaTssvn

Cdlmnt
1
simco Messages postés 53 Statut Membre
 
Merci beaucoup pour cette réponse rapide. C'est exactement ce qu'il me fallait :)
0
simco Messages postés 53 Statut Membre
 
J'ai un problème. La macro fonctionne très bien dans la feuille que vous m'avez fourni. Par contre lorsque j'essaie sur ma feuille, un message d'erreur 400 avec une croix blanche sur fond rouge apparaît. N'étant pas du tout familiarisé avec VBA, je ne sais pas du tout quoi faire.
Merci pour votre aide
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
tu as bien separé les n° de lignes pas un espace ?
0
simco Messages postés 53 Statut Membre
 
Oui. En farfouillant j'ai réussi à trouver quelque chose de potable.
Sur VBA, je suis allé sur ma feuille et puis clique droit pour copier coller ton code d'origine, puis je l'ai exécuté sur ma feuille depuis VBA.
J'obtiens un message d'erreur avec écrit :

Erreur d'exécution '13' Incompatibilité de type.

Mais lorsque je reviens sur ma feuille Excel, les lignes désirées sont sélectionnées. Je ne sais pas pourquoi me vient ce message d'erreur. Donc en gros je vais pouvoir faire comme ça je pense. Ce sera moins vite fait que juste ctrl + k mais c'est déjà ça :)

Peut-être parce que mon classeur Excel est enregistré comme .xlxs ?
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
Il te faut l'enregistrer au format xlsm

Une version pour nettoyer la liste
Public Sub OK()
Dim s, ts, k, plage As Range
s = Selection.Value
s = Trim(s)
While InStr(1, s, " ")
s = Replace(s, " ", " ")
Wend
ts = Split(s, " ")
Set plage = Rows(ts(0))
For k = 1 To UBound(ts)
Set plage = Union(plage, Rows(ts(k)))
Next k
plage.Select
End Sub
Cdlmnt
0
simco Messages postés 53 Statut Membre
 
Tip top. Tout marche à merveille. Merci beaucoup :)
0