Discussion :

[mioipe]

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 :

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

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

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

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
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

[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

[mioipe]

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

PROVA_TEST.xlsm