Discussion :

[bedoch]

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?

[Gorfael]

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

[bedoch]

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

[Jason T]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[bedoch]

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?

[Didier Gonard]

Bonjour,

une possibilité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bedoch]

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

[Didier Gonard]

Bonjour,

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 :

'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

[bedoch]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Didier Gonard]

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