[macro] Selection d'une certaine ligne...

[PoPay]

Bonjour je voudrais savoir comment on peut dire a une macro de selectionner toute la ligne dont le numéro correspond celui inscrit dans une certaine case.

En gros ce que je veux faire:
'regarde le numéro inscrit en i19 de la feuille1 puis va dans la feuille 2 copier la ligne qui porte ce numéro'

exemple:
'si 25 est écrit en i19, tu vas chercher la ligne 25 dans la feuille 2 et tu la colles dans la feuille 1'

Je remercie d'avance ceux qui vont m'aider !

 

[Popay]

Et si possible j'aimerai aussi savoir comment faire pour que l'execution de cette macro se fasse a chaque fois qu'on selectionne un mot dans une liste déroulante, svp

 

[Baside]

Bonsoir Popay le forum

Undébut de réponse

Cells(1,1) est à remplacer par cells(19,9) pour i19

Baside

[file name=SelectionLigneCellule.zip size=8181]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SelectionLigneCellule.zip[/file]

 

[popay]

Ok merci de ta réponse mec ! Je vais regarder ca tout de suite !

 

[Popay]

Baside j'ai regardé ta réponse qui m'a bien éclairé sur le fonctionnement du machin donc déjà merci, cependant j'arrive pas a determiner pourquoi ca marche pas:

J'ai crée une macro en m'aidant de la tienne et de l'enregistreur, mais ca bloque à la 2eme ligne je pige pas:

X = Sheets('Feuil1').Cells(19, 9)
Sheets('comptes sociaux du secteur 155').Rows(X).Copy
Sheets('Feuil1').Rows(X).Select
Range('E16').Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True


N.B.La cellule (19 ,9) contient une formule. J'ai fait un collage spécial pour mettre la ligne en colonne..

 

[Robert]

Bonsoir Popay, Baside, bonsoir le forum,

Tu y étais presque... essaie comme ça :

X = Sheets('Feuil1').Cells(19, 9)
Sheets('comptes sociaux du secteur 155').Rows(X).Copy
Sheets('Feuil1').Select
Range('E16').Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

si tu dois me remercier ne m'appelle pas 'mec' ça va me bouler...

 

[Baside]

Bonjour Popay, Robert le forum

WorkSheets('comptes sociaux du secteur 155').Celles(L,C)

Désigne la cellule qui à L comme n° de ligne et C comme n° de colonne de la feuille nommée 'comptes sociaux du secteur 155'

Mais si ta feuille est en deuxième position, le code

WorkSheets(2).Celles(L,C) convient car il désigne le deuxième objet de la collection Worksheets

J'ai remis le fichier avec la feuille nommée

Baside [file name=SelectionLigneCelluleExplications.zip size=8341]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SelectionLigneCelluleExplications.zip[/file]

 

[Popay]

Ouais ca marche !

Et maintenant comment on peut faire si on veut dire par exemple: 'ne selectionne que les 2 premieres case de la ligne X, puis la case 5 puis la case 7' ?

 

[Baside]

Bonjour Popay le fil le forum

Cette sélection de cellules est elle fixe ou soumise à condition's) ?

Baside

 

[Popay]

heu..Je vois pas ce que tu entends exactement par fixe ou soumise a condition mais d'aprés ce que je comprend, ca serai plutôt fixe, enfin le truc grosso modo c'est de faire pareil que tout à l'heure à l'exeption qu'au lieu de selectionner toute la ligne, de selectionner que certaines cellules(ou plutôt certains champs de cellules) au sein de la ligne, la seule condition est que ca soit la bonne ligne à savoir la X !

Je sais pas trop si je me fais comprendre sur ce coup là..

 

[Baside]

rebonjour Popay le fil le forum

Regarde le fichier joint

Baside [file name=SelectionLigneCelluleExplicationsCC.zip size=9302]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SelectionLigneCelluleExplicationsCC.zip[/file]

 

[PoPaY]

Baside, mais qu'est ce que je ferai sans toi ?

 

[popay]

J'y arrive pas: je veux lui faire prendre la plage de la ligne X allant de E a EA et ca marche pas...J'ai un truc dans ce genre là:

...
Sheets('feuill2').Select
sheets('feuill2').Range(Cells(X, 5), Cells(X, 213)).Copy
Sheets(1).Select
Sheets('Feuil1').Select
Range('E16').Select
Selection.PasteSpecial...
...

 

[Baside]

ReReRe Popay le forum

Envoie ton fichier avec des explications, on ira plus vite

Baside

 

[PoPaY]

J'aurais bien voulu, héhé, mais il fait plus de 30 Mo... :huh: