Discussion :

[Wushugringo]

Bonjour à tous,

Je suis un noob en VBA et je bloque sur un truc je pense tout bête.
Dans la macro que je suis en train de confectionner, je sélectionne une plage de cellules discontinues d'une même ligne, genre (A1, B1, F1, G1), je les copie et j'aimerais les coller dans une colonne (B1 à B10) dans un autre classeur et là je ne vois pas comment faire.
Il doit y avoir une formule toute bête associée au PasteSpecial mais là je coince et je n'ai rien trouvé sur le web de concluant.
Merci d'avance pour votre aide.


Après moult recherches, j'ai trouvé la solution

[Kimy_Ire]

Bonjour Wushugringo,

Il y a plusieurs manière de répondre à ton problème.
Tout d'abord, tu peux passer par un tableau :

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
Option Explicit
 
Sub Wushugringo()
Dim table(1 To 10) As String
Dim oRng As Range
Dim i As Integer
 
With Worksheets("Wushugringo_origine")
    table(1) = .Range("A1")
    table(2) = .Range("B1")
    table(3) = .Range("C1")
    table(4) = .Range("F1")
    table(5) = .Range("G1")
    table(6) = .Range("H1")
    table(7) = .Range("L1")
    table(8) = .Range("O1")
    table(9) = .Range("P1")
    table(10) = .Range("Q1")
End With
 
With Worksheets("Wushugringo_final")
    Set oRng = .Range("B1")
    For i = 0 To 9
        oRng.Offset(i, 0) = table(i + 1)
    Next i
End With
 
End Sub

Tu enregistres les valeurs que tu veux et par un offset décalant simplement les cellules de destination, tu "déposes" tes valeurs.

Ensuite, tu peux, comme tu l'as remarqué, passer par un PasteSpecial.

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 Wushugringo2()
Dim oRng_ori As Range
Dim oRng_fin As Range
Dim i As Integer
 
With Worksheets("Wushugringo_origine")
    Set oRng_ori = Union(.Range("A1:C1"), .Range("F1:H1"), .Range("L1"), .Range("O1:Q1"))
End With
 
With Worksheets("Wushugringo_final")
    Set oRng_fin = .Range("C1")
    oRng_ori.Copy
    oRng_fin.PasteSpecial Paste:=xlPasteAll, Transpose:=True
End With
 
End Sub

Personnellement, je n'aime pas du tout le .Copy et .Paste ou .PasteSpecial.

Mais après, c'est à toi de faire ton choix !

On te proposera surement d'autres méthodes, ton problème restant simple !

Cordialement,
Kimy

[Wushugringo]

Bonjour,

Merci beaucoup pour tous ces conseils. Le coup du tableau je n'y avais pas du tout pensé. Moi tout bêtement, j'ai trouvé une solution en copiant cellules par cellules d'un classeur à l'autre, ça fonctionne mais je vais essayer ta technique qui est plus propre.