Macro excel copy paste multirange

Version imprimable

Bonjour tout le monde et félicitations au forum, j'ai un problème avec cette macro, je ne peux pas assembler dans la feuille cible le format, pouvez-vous aider à résoudre?

Code:

1
2
 Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

##############################################################

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Macro1()
    Dim c       As Long
    Dim DstRng  As Range
    Dim Rng     As Range
    Dim RngEnd  As Range
    Dim RowCnt  As Long
 
        Set DstRng = Worksheets("Scheda").Range("A28:J28")
            DstRng.Resize(70 - DstRng.Row + 1).ClearContents
 
        With Worksheets("Preventivo")
            For c = 37 To 97 Step 12
                Set Rng = .Cells(15, c)
                If Not Rng.Value = "" Then
                    Set RngEnd = Rng.End(xlDown)
                    RowCnt = RngEnd.Row - Rng.Row + 1
                    Set Rng = Rng.Resize(RowCnt, 10)
                    Set DstRng = DstRng.Resize(RowCnt)
                    DstRng.Value = Rng.Value    ' // Same as pasting values
                    Set DstRng = DstRng.Offset(RowCnt, 0)
                End If
            Next c
        End With
End Sub

26/09/2018, 15h28
Invité

Bonjour Mioipe,

Ta demande n'est pas très claire. Tu n'expliques pas le lien entre le 1er et le 2ème code. Je suppose que tu souhaites le même résultat en travaillant avec l'objet Range que celui obtenu avec la méthode Selection.pasteSpecial Paste:=xlPasteValuesAndNumberFormats.

L'objet Range n'a pas de propriété qui embarque tous les formats d'un coup. Tu dois ajouter une ligne de code. En plus de Range1.value=Range2.Value, tu ajoutes Range1.NumberFormat=Range2.NumberFormat.

Cordialement,

Sophie
26/09/2018, 17h42
mioipe

1 pièce(s) jointe(s)

Citation:

Envoyé par Clochete

Bonjour Mioipe,

Ta demande n'est pas très claire. Tu n'expliques pas le lien entre le 1er et le 2ème code. Je suppose que tu souhaites le même résultat en travaillant avec l'objet Range que celui obtenu avec la méthode Selection.pasteSpecial Paste:=xlPasteValuesAndNumberFormats

L'objet Range n'a pas de propriété qui embarque tous les formats d'un coup. Tu dois ajouter une ligne de code. En plus de Range1.value=Range2.Value, tu ajoutes Range1.NumberFormat=Range2.NumberFormat.

Cordialement,

Sophie

Pièce jointe 415150