XL 2013 Problème pour copier/coller une sélection aléatoire

Halffy · 15 Mars 2022

Bonsoir à tous,

J'ai passé mon après-midi à essayer de trouver la solution.... mais cela dépasse vraisemblablement mes faibles connaissances en VBA malheureusement
En effet je cherche à copier une "plage de cellules" de longueur aléatoire, et à transposer cela en VBA.
J'ai ainsi fait la moitié du chemin final (puisque j'arrive à coller sous la forme de l'image réalisée), avec ce code:

Sheets("Feuil1").Range("B2:O46").CopyPicture xlScreen, xlBitmap
Sheets("Feuil1").Paste Destination:=Range("Q2")

.... mais il me manque le plus important: Comment copier une "plage de cellules" de longueur aléatoire, et l'intégrer à ce code?
Si vous aviez un peu de temps à me consacrer s'il vous plait.... avec tous mes remerciements par avance.
Ci-joint le fichier où vous trouverez toutes les explications.

Halffy · 15 Mars 2022

Re,

"C'est ce que fait mon code du message#4, Il suffisait d'adapter"
==> Trop complexe pour moi malheureusement

"Sub test_C()
CopierPlage Selection, Range("Q2"), xlScreen, xlBitmap
End Sub"
Maintenant, effectivement, c'est exactement ce que je me suis enquis à rechercher toute la journée, et ça marche parfaitement

Personnellement, j'étais parti sur ce code (avec l'aide en ligne):
Range("B2").CurrentRegion.CopyPicture xlScreen, xlBitmap
Sheets("Feuil1").Paste Destination:=Range("Q2")
Et en utilisant de fait un subterfuge qui consistait à occuper tous les espaces libres de façon invisible / Voir pour ce le fichier-Joint.

Toutefois je reconnais que ta procédure répond en...

Halffy · 15 Mars 2022

PS:

Je regarde, ça pourrait être intéressant.
Résultat: Non, ça ne marche pas.

Correction.
Le code fonctionne. Il ne plante pas.
Deux plages distinctes sont copiés en image.

Effectivement, mais lorsque je disais que cela ne fonctionnait pas, je voulais simplement dire que cela ne répondait pas réellement et complètement à ma requête
C'est plutôt quelque chose comme cela que je cherchais à obtenir:

Sur ce, Merci beaucoup de ton dévouement, et Bonne nuit

Staple1600 · 15 Mars 2022

Halffy à dit:
Re,
"C'est ce que fait mon code du message#4, Il suffisait d'adapter"
==> Trop complexe pour moi malheureusement

Alors heureusement nous avons le K.I.S.S

VB:

Dim F As Worksheet
Sub The_Kiss_Principle()
Set F = ActiveSheet
With Application
.ScreenUpdating = 0: Selection.CopyPicture 1, -4147: [Q2].Select: F.Paste: .CutCopyMode = 0: [Q2].Select
End With
End Sub

Si besoin
Pour l'esprit curieux...ou pas

XL 2013 Problème pour copier/coller une sélection aléatoire

Halffy

XLDnaute Occasionnel

Pièces jointes

Halffy

Halffy

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires