macro pour copier coller des selections multiples

je n'arrive pas à copier et coller la sélection des lignes et colonne visible de mon tableur car excel me dit qu'il y a des sélections multiples, est t'il possible de remédier à ce problème?
Que puis indiquer à ma macro?

Salut bedoch et le forum
tester les cellules visibles de ta sélection et ne les copier qu'une à une
A+

je ne suis pas très en programmation, comment demande t'ont le test des sélections visibles du document?

Si les cellules que tu veux copier sont toujours les-mêmes :

Code:

---

1 2 3 4 5 6 7

Range("A1:A2").Select 'zone à copier Selection.Copy 'copie   Range("B1").Select 'la case à partir de laquelle ton coller va se faire Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False 'colle Application.CutCopyMode = False 'tu remets ta copie à 0

---

Je ne sais pas si j'ai répondu à ta question. Si non, développe un peu plus ton problème pour que l'on puisse te donner les bonnes réponses.

Ps: Si tu veux copier/coller différentes sélections, il suffit de répéter l'opération.

Je travail dans un bureau de maîtrise d'oeuvre et j'ai donc créé une base d'article, en gros un énorme devis+ descriptions des différents articles.

Si j'ai besoins pour un projet de tel et tel élément, je remplis les quantités et ensuite grâce à une macro je masque les quantités =0.

Maintenant je cherche à exporter juste les articles visibles du ftableur sur un autre onglet, mais pour chaque projet les zones de sélections sont toujours différente.

Est ce que je suis plus clair dans mes explications?

Bonjour,

une possibilité ;)

Code:

---

1 2 3 4 5 6 7 8

Sub CopyPlagesMultiples() Dim objPartofselect As Range   Selection.Name = "toto" For Each objPartofselect In Range("toto").Areas objPartofselect.Copy Destination:=Worksheets("Feuil2").Range(objPartofselect.Address) 'selon désirs... Next objPartofselect End Sub

---

vois dans l'aide les mots clefs employés ainsi que Union, Intersect, Areas et leurs "voir aussi"...

cordialement,

Didier

il aime pas du tout : "excel ne peut pas terminer cette tâche avec les ressources disponibles.sélectionnez moins de données ou fermez des applications"

le copier coller marche, mais les lignes visibles sont copié vers la meme référence de ligne donc j'ai plein de trous

Bonjour,

Citation:

---

le copier coller marche, mais les lignes visibles sont copié vers la meme référence de ligne donc j'ai plein de trous

---

en commentaire en fin de ligne, il y a :

Citation:

---

'selon désirs...

---

ça on ne peut pas les deviner ;)

Sinon le message d’erreur te donne pas mal d’éléments, notamment que la macro n’est pas le problème, mais soit ta config au niveau équipement, soit on atteint certaines limites d’Excel ou du vba. Comme souvent, on n’est pas devin et on ne peut en dire plus sans autres éléments… c’est aussi pourquoi il est demandé et devenu coutumier, entre autres, d’indiquer sa version d’ Excel dans son titre de message…;)

Donc il faut aller pas à pas pour voir où ça bloque, est-ce la sélection trop grande, est-ce un de ses sous-ensemble etc.. ?

D’autre part, tu en donnes un peu plus sur ton projet, mais pas trop, la méthode employée n'est par forcément la plus adaptée, dans un autre cas de figure une copie de la feuille, puis la supression des zones vides peut mieux convenir... va savoir ?

Bref pour le moment, pas assez d'éléments pour répondre plus loin...

cordialement,

Didier

merci de toutes ces explication et de votre indulgence envers un humble petit bidouilleur^^.

pour info la macro actuelle sur mon tableau est la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub EditDE() ' EditDE Macro Cells.Select Selection.EntireRow.Hidden = False Selection.EntireColumn.Hidden = False Dim i As Integer For i = 1 To Range("E65536").End(xlUp).Row Step 2 Rows(i).Hidden = True Next For i = 1 To 10000 If Range("E" & i).Value = "0" Then Range("E" & i).EntireRow.Hidden = True End If Next ActiveSheet.Columns("D:D").EntireColumn.Hidden = True End Sub

---

Mais c'est vrai que je me suis formaté dans l'export des cellule visible : je pourrais tout simplement recopier toute la base, puis la copier dans un nouvel onglet, remettre ensuite la macro précédente en changant :

EntireRow.Hidden = True "par" Range("E" & i).delete = True


PS: je travaille sur office 2007

Bonjour,

pour une meilleure lisibilité :
Tu dois pouvoir mettre 2007 dans les baises de ton titre

Vois comment mettre ton code dans des balises codes, en éditant ton message, c'est simpliste, tu coupes ton code, tu cliques sur la balise code en haut et tu copies..;)

cordialement,

Didier