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
Partager