bonsoir le forum
j ai fait une macro qui marche bien dans un but d 'exporter des données dans une autre feuille. mon problème actuel est de les exporter en valeur et format uniquement j'ai fait ca mais ca ne marche pas . Pouvez vous m'aider merci
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 ExportFaisanVersSauvegardeUG()
 
vReponse = MsgBox("Voulez vous sauvegardez l'UG?", vbYesNo + vbQuestion)
 
If vReponse = vbYes Then
 
Dim DerLigFaisan As Long, DerLigSauvegarde As Long
DerLigFaisan = Sheets("Faisan").Range("C65536").End(xlUp).Row
DerLigSauvegarde = Sheets("SauvegardeUG").Range("C65536").End(xlUp).Row + 1
 
Sheets("Faisan").Range("A15:AF" & DerLigFaisan).Select
Selection.Copy
Sheets("SauvegardeUG").Range("A" & DerLigSauvegarde).Select
Selection.PasteSpecial xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
End If
End Sub