Bonjour tout le monde,
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....
Ci joint mon fichier pour ma facturaton.
Merci d'avance de votre aide.
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
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....
Ci joint mon fichier pour ma facturaton.
Merci d'avance de votre aide.
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
