Discussion :

[Quiro]

Bonjour Messieurs, dames

C'est ma première fois sur ce forum. Après plusieurs recherches je n'arrive toujours pas à trouver de solution.

Pouvez-vous svp me donner un coup de main là-dessus.

Je souhaite effectuer un copier coller sans mise en page.
Le copier coller s'effectue correctement. Seul Hic la mise en page que je ne veux pas garder est toujours là.
Voici le code que j'utilise mais je n'arrive pas à trouver la fonction adéquate.

Code :

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

1
2
3
4
5
6
7
8
Dim DL As Long
Dim LigVide As Long
 
    DL = Cells(Application.Rows.Count, 5).End(xlUp).Row
    LigVide = Sheets("Planning").Range("A" & Rows.Count).End(xlUp).Row + 1
 
    Worksheets("Request Form").Range("E3:AJ" & DL).Copy (Worksheets("Planning").Cells(LigVide, 1))
    Worksheets("Request Form").Range("AV3:AV" & DL).Copy (Worksheets("Planning").Cells(LigVide, 33))

Merci d'avance pour votre aide

[Theze]

Bonjour,

Il te suffit, dans ce cas, d'affecter seulement les valeurs :

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
 
Sub Test()
 
    Dim DL As Long
    Dim LigVide As Long
 
    DL = Cells(Rows.Count, 5).End(xlUp).Row
    LigVide = Sheets("Planning").Range("A" & Rows.Count).End(xlUp).Row + 1
 
    With Worksheets("Request Form")
 
        Worksheets("Planning").Cells(LigVide, 1).Resize(.Range("E3:AJ" & DL).Rows.Count, .Range("E3:AJ" & DL).Columns.Count).Value = .Range("E3:AJ" & DL).Value
        Worksheets("Planning").Cells(LigVide, 33).Resize(.Range("AV3:AV" & DL).Rows.Count, .Range("AV3:AV" & DL).Columns.Count).Value = .Range("AV3:AV" & DL).Value
 
    End With
 
End Sub

[Quiro]

J'essaie de trouver une solution depuis des jours bordel.
Et la je viens d'essayer et c'est exactement le résultat que je voulais.

Enorme merci pour ton aide

[Theze]

Bonjour,

Content de t'avoir aidé