programme selectionner lignes en fonction de cellules actives

myDearFriend!

XLDnaute Barbatruc

• 30 Octobre 2007

• #2

Re : programme selectionner lignes en fonction de cellules actives

Bonjour Stéphanie.dps,

Tout simplement :

Code:

[SIZE=2]    Selection.EntireRow.Copy[/SIZE]

Cordialement,

 

Vote positif 0 Vote négatif

S

Stéphanie.dps

Guest

• 30 Octobre 2007

• #3

Re : programme selectionner lignes en fonction de cellules actives

Ca ne marche pas a priori.

Si je selectionne par exemple c2 et c3 je voudrais qu'il me copie les lignes 2 et 3...Pour l'instant il ne me copie que ma ligne 2 (lignes de la 1ere cellule)

Est ce que vous avez une idée?

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 30 Octobre 2007

• #4

Re : programme selectionner lignes en fonction de cellules actives

Re,

Si Selection.EntireRow.Copy ne copie pas l'ensemble des lignes de la sélection dans le presse-papier alors, moi, j'arrête VBA 😱

Aucune idée, non.

Cordialement,

 

Vote positif 0 Vote négatif

S

Stéphanie.dps

Guest

• 30 Octobre 2007

• #5

Re : programme selectionner lignes en fonction de cellules actives

Alors vu ma connaissance très limitée dans VBA, et le nombre de message interressant que vous laisser, je vous fais entièrement confiance et je vous joins mon fichier avec la macro que j'ai ecrit si vous pouviez y jeter un coup d'oeil....

Par avance merci de votre aide!!!!
Stéphanie

Sub test()

Sheets("Feuil1").Select
Range(Cells(ActiveCell.Row, "a"), Cells(ActiveCell.Row, "a")).Select
x = ActiveCell.Address

'Selectionne les lignes à copier et les coller sur la feuille modèle "FICHE"
Range(Cells(ActiveCell.Row, "b"), Cells(ActiveCell.Row, "d")).Select

Selection.Copy
Sheets("Feuil2").Select
Range("a1").Select


Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Calculate



End Sub

 

Pièces jointes

• test.xls

  25 KB · Affichages: 69
• test.xls

  25 KB · Affichages: 68
• test.xls

  25 KB · Affichages: 69

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 30 Octobre 2007

• #6

Re : programme selectionner lignes en fonction de cellules actives

Re,

Je n'ai pas ouvert ton classeur mais j'ai beau regarder le code que tu présentes dans tous les sens, je n'y vois pas l'expression :

Code:

[SIZE=2]Selection.EntireRow.Copy[/SIZE]

J'imagine qu'en modifiant ta ligne :

Code:

[SIZE=2]Selection.Copy[/SIZE]

ça répondrait peut-être à ton interrogation... 😉

Cordialement,

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 30 Octobre 2007

• #7

Re : programme selectionner lignes en fonction de cellules actives

Re,

J'avoue aussi que je n'ai pas compris les "a", "b" et "d"... si tu m'en dis un peu plus, je peux surement te proposer un code un peu plus optimisé.

Cordialement,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2007

• #8

Re : programme selectionner lignes en fonction de cellules actives

Bonjour Stéphanie, myDearFriend!



Est-ce cela que tu veux faire?

Code:

Sub Macro1()
Selection.Resize(Selection.Rows.Count, _
Selection.Columns.Count).EntireRow.Copy
End Sub

Tes 256 colonnes contiennent toujours des données?

 

Dernière édition: 30 Octobre 2007

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 30 Octobre 2007

• #9

Re : programme selectionner lignes en fonction de cellules actives

Non, Didier, stp! n'arrêtes pas le vba! 😱

Stéphanie,

'Selectionne les lignes à copier et les coller sur la feuille modèle "FICHE"
Range(Cells(ActiveCell.Row, "b"), Cells(ActiveCell.Row, "d")).Select

Cliquez pour agrandir...

Avec ce code, si la cellule active et en ligne 1 tu sélectionne B1 : D1.

Toutes tes cellules sont sur la même ligne, c'est normal que tu ne copie que cette ligne.....
Parce que sinon, le code de Didier est ok. 🙂

 

Vote positif 0 Vote négatif

S

Stéphanie.dps

Guest

• 30 Octobre 2007

• #10

Re : programme selectionner lignes en fonction de cellules actives

1/ Effectivement j'ai collé le mauvais programme sur le forum donc maintenant ça colle bien la ligne entière mais ça ne fait pas ce que je voudrais : car j'ai beau selectionner 2cellules ça me colle que la ligne de la première cellule.

En fait je sais pas trop à quoi ça correspond car j'ai essayé d'adapter un code que j'ai trouvé : en gros je lui dit :
que le cellules actives (cellules selectionnées) sont dans la colonne A
Et qu'il faut qu'il colonne la ligne de la colonne b à d...

Bonjour Stapple,
Je ne comprends pas se que ça fait le programme proposé, désolée je ne suis aps très douée

 

Vote positif 0 Vote négatif

S

Stéphanie.dps

Guest

• 30 Octobre 2007

• #11

Re : programme selectionner lignes en fonction de cellules actives

🙂Eh merci stapple, j'ai compris, ça marche c'est gentil, merci beaucoup!!!!!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2007

• #12

Re : programme selectionner lignes en fonction de cellules actives

Re


La macro fait juste ce qu'on lui demande 😉

Sub Macro1()
Selection.Resize(Selection.Rows.Count, _
Selection.Columns.Count).EntireRow.Copy
End Sub
Ex : la selection est E7:E9

si tu appelles la macro

la plage de cellules A7:IV9 est sélectionnée et copiée
(ce qui correponds à copier les lignes 7, 8 et 9)

Ensuite il suffit de lsectionne la cellule (en colonne A) de destination et de faire coller.

J'espère que mes explications furent claires.

 

Vote positif 0 Vote négatif

S

Stéphanie.dps

Guest

• 30 Octobre 2007

• #13

Re : programme selectionner lignes en fonction de cellules actives

PARFAIT, merci beaucoup!!!!!

Ca me sauve la vie(ou presque)

Bonne soirée à tous mes sauveurs!

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 30 Octobre 2007

• #14

Re : programme selectionner lignes en fonction de cellules actives

Je suis content que tu aies trouvé réponse à ta question Stéphanie.dps 🙂

Cela dit, comme j'aime bien comprendre, je remercie Stapple1600 de bien vouloir m'expliquer l'intérêt du Resize dans :

Code:

 Selection.Resize(Selection.Rows.Count, _
Selection.Columns.Count).EntireRow.Copy

Faire un Resize pour redimensionner un range, ça je connais. Mais redimensionner un range à sa propre dimension d'origine, là, j'avoue que je reste perplexe quant à l'utilité d'un tel code... (quelle différence avec Selection.EntireRow.Copy ?)

Merci de tes éclaircissements Stapple.

Cordialement,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2007

• #15

Re : programme selectionner lignes en fonction de cellules actives

Re


La honte qui est sur moi m'oblige à répondre à myDearFriend! en MP. 😉

 

Vote positif 0 Vote négatif