Discussion :

[patmicro]

Bonjour à tous les lecteurs: N'état pas très connaisseur en matière de VBA une âme charitable pourrait'elle me corriger cette macro.

Dans une 1ere feuille je sélectionne la plage de cellules à copier (jusque la tout vas bien) puis je colle les valeurs dans une autre feuille de mon choix (Ouverture boite de dialogue me demandant dans quelle feuille je veux copier les valeurs.

Ci-joint le début de code qui est imparfait.

Par avance merci pour votre aide.

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
17
18
19
20
21
22
23
24
25
26
27
28
Sub Copier_selection_plage()
'
'
Dim plage As Range
Dim maplage As Variant
Set plage = Application.InputBox("Cette application permet de copier une plage de cellules sélectionnée ,_" & Chr(10) & "_dans une autre plage de cellules." & Chr(10) & " " & Chr(10) & "Sélectionnez une plage !", "Sélection de cellules", Type:=8)
For Each cel In plage
 
n = Application.WorksheetFunction.CountIf(plage, cel)                    'vérifier la conformité
If Application.WorksheetFunction.CountIf(plage, cel) > 1 And cel.Interior.Pattern = xlNone Then 'vérifier la conformité
 
MsgBox ("Dans quelle feuille désirez vous copier vos valeurs ?" & chr10 & " sélectionnez la feuille de votre choix")
 
  Dim feuil
  Dim Copier_selection_plage As Variant
  Set feuil = Application.InputBox("Selectionnez ici la feuille de votre choix")
 
'Jusqu'ici OK La fonction de collage ne fonctionne pas   
 
    'Selection.Copy ObjectsWithCells
    Sheets("Feuil2").Select
    Range("G3").Select
   Selection.CopyObjectsWithCells
 
     End If
Next
fin:
End Sub

[Jean-Philippe André]

Salut,

a premiere vue, il te manque le lien entre ta variable feuil que tu utilises pour le InputBox mais dont tu ne fais rien par la suite, hardcodant le Feuil2

remplacer le

Code :

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

Sheets("Feuil2").Select

en

Code :

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

Sheets(feuil).Select

est une premiere étape.

Je suis plus dubitatif sur ton ObjectsWithCells... Est-ce un essai ou une recopie d'un autre code ?

Si tu veux effectuer une copie et un collage par valeur tu utiliseras plutôt :

Code :

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

Sheets(feuil).Range("G3").PasteSpecial xlPasteValues

[patmicro]

Bonjour Jean-Philippe et merci d'avoir répondu à ma question. Pour être honnête ce sont des bouts de code que j'ai recopié pour les adapter à ce que je veux faire. Pour le "ObjectsWithCells" c'est plutôt un essais. Etant très mauvais en anglais c'est beaucoup plus difficile pour la compréhension de l'écriture et de la syntaxe.