Problème copier/coller dans differentes feuilles

[rafou29]

Bonjour,

J'ai des problèmes avec un code simple qui me fait tourner en bourrique ...

Objectif:
Je souhaite copier les données de 3 colonnes dans "Sheet1" et les coller dans "Sheet3".

Problème:
Il me fait un copier/coller partiel car il ne transpose mes données qu'une fois sur deux!

Mon code:

Private Sub CommandButton58_Click()

For i = 0 To 30
i = i + 1

Dim r1 As Range, r2 As Range, r3 As Range, myMultiAreaRange As Range
Sheets("Sheet1").Select
Set r1 = Range("C" & i)
Set r2 = Range("D" & i)
Set r3 = Range("F" & i)
Set myMultiAreaRange = Union(r1, r2, r3)
myMultiAreaRange.Select
Selection.Copy

Sheets("Sheet3").Select
Range("B" & i).Select
ActiveSheet.Paste

Next
End Sub

Merci par avance de votre aide

 

[Staple1600]

Re : Problème copier/coller dans differentes feuilles

Bonsoir


Voici une autre approche

Sub copie_3_colonnes()
Dim i As Long, r As Range, a, b
i = 30
With Sheets(1)
    Set r = .Range("C1:D" & i & "," & "F" & i)
        a = .Range(r.Areas(1).Address)
        b = .Range("$F$1:" & r.Areas(2).Address)
End With
With Sheets(3)
    .[C1:D1].Resize(UBound(a)) = a
    .[F1].Resize(UBound(b)) = b
End With
Set r = Nothing
End Sub

 

[ROGER2327]

Re : Problème copier/coller dans differentes feuilles

Bonsoir

Peut-être :

[COLOR="DarkSlateGray"][B]Private Sub CommandButton58_Click()
   Sheets("Sheet1").Range("C1:D30,F1:F30").Copy Destination:=Sheets("Sheet3").Range("B1")
End Sub[/B][/COLOR]

ROGER2327
#2958

 

[Staple1600]

Re : Problème copier/coller dans differentes feuilles

Bonsoir ROGER2327

😱 faire compliqué quand ... 🙁

Désolé 😉

EDITION: merci grâce à vous, j'ai pu faire ce que je voulais proposer a départ

Private Sub CommandButton58_Click() 
Dim a: a = Sheets(1).[C1:F30]: Sheets(3).[B1:E1].Resize(UBound(a)) = a
End Sub

 

[rafou29]

Re : Problème copier/coller dans differentes feuilles

Dsl Staple1600 mais ton code ne fonctionne pas en revanche celui de ROGER2327 marche du tonnerre !
Un grand merci à vous deux 😀

Edit: En revanche, je ne sais pas comment on ferme ce sujet^^

 

[Staple1600]

Re : Problème copier/coller dans differentes feuilles

Bonsoir à tous

rafou29
C'est pas grave puisque mon code fonctionne très bien chez moi 😀

 

[ROGER2327]

Re : Problème copier/coller dans differentes feuilles

Re...

Bonsoir à tous

rafou29
C'est pas grave puisque mon code fonctionne très bien chez moi 😀

... et chez moi aussi...
Je crois que le problème est celui de la plage de destination que notre ami voudrait être dans les colonnes B à D.
Il lui est facile d'adapter :

[COLOR="DarkSlateGray"][B]Sub copie_3_colonnes()
Dim i As Long, r As Range, a, b
   i = 30
   With Sheets(2)
      Set r = .Range("C1:D" & i & "," & "F" & i)
      a = .Range(r.Areas(1).Address)
      b = .Range("$F$1:" & r.Areas(2).Address)
   End With
   With Sheets(3)
      .[[COLOR="DarkRed"]B1:C1[/COLOR]].Resize(UBound(a)) = a
      .[[COLOR="DarkRed"]D1[/COLOR]].Resize(UBound(b)) = b
      End With
   Set r = Nothing
End Sub[/B][/COLOR]

Bonne nuit.
ROGER2327
#2972