XL 2013 Facturation

themyse1

XLDnaute Nouveau
Bonjour,

Alors voila, je vous sollicite afin de trouver une solution à mon problème du moment.
J'aimerais extraire certaine données d'une factures sous excel, et les transposer en liste. j'ai fait une petite Macro mais elle en fonctionne pas.... qu'est ce que je fait mal?
voici ma macro :
Sub transpose_dans_tableau()
'Atteidre le formulaire et memoriser les données'
With Sheets("Factures")
Range("B13").Select
.Range("B13:J34").Copy
'Test pour déterminer la ligne où coller les infos dans le tableau
With Sheets("liste")
If .Range("B2") = "" Then
.Range("B2").PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, skipblanks:=False, Transpose:=True
Else
.Range("B65535").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, skipblanks:=False, Transpose:=True
End If
End With

Application.CutCopyMode = False
.Range("B13:J34").ClearContents
Range("c13").Select

End With

End Sub
 

Discussions similaires

Réponses
2
Affichages
183
Réponses
5
Affichages
212

Statistiques des forums

Discussions
312 843
Messages
2 092 752
Membres
105 520
dernier inscrit
Inconnuto