Formule "=" tableau recapitulatif !

[kikim]

Re Forum,

Apres coversion du fichier txt en xls, je doit collecter des données dispersés et les classer dans un tableau suivant formule "="

Possible par macro?
Crdt

 

[JCGL]

Re : Formule "=" tableau recapitulatif !

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit
Sub Transpose()
    Range("C6:C12").Copy
    Range("B2").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Range("E11:E12").Copy
    Range("I2").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Range("D13").Copy
    Range("K2").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Range("A53").Copy
    Range("B4").PasteSpecial Paste:=xlPasteValues
    Range("A45").Copy
    Range("C4").PasteSpecial Paste:=xlPasteValues
    Range("A41").Copy
    Range("D4").PasteSpecial Paste:=xlPasteValues
    Range("A43").Copy
    Range("E4").PasteSpecial Paste:=xlPasteValues
    Range("A45").Copy
    Range("F4").PasteSpecial Paste:=xlPasteValues
    Range("A49").Copy
    Range("I4").PasteSpecial Paste:=xlPasteValues
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

A + à tous

 

[kikim]

Re : Formule "=" tableau recapitulatif !

Re forum,

Impecable JCGL !

Sinceres remerciements