J'ai reçu un fichier assez particulier (je pense PDF converti en XLS) et je souhaiterais extraire chaque données dans 1 ligne séparée.
Je m'explique :
dans la cellule A2, j'ai un certain nombre d'enregistrements que je souhaiterais avoir individuellement dans une cellule propre.
Je vous joins un fichier test qui sera plus explicite.
Merci de votre aide
Cdt
Bonjour CmzxNéné ,
Un petit code vite fait ,
il t'envoie le résultat dans la colonne de décalage que tu indiques dans Selection.Offset(I, 4) (soit ici 4 colonnes de décalage) en fonction de la cellule sélectionnée ...
Code:
Sub test()
Dim Temp, I As Integer
Temp = Split(Selection, Chr(10))
For I = LBound(Temp) To UBound(Temp)
Selection.Offset(I, 4).FormulaLocal = Temp(I)
Next I
End Sub
J'ai un tout petit problème sur la colonne A : il me remplace tous les derniers chiffres par des 0
ex : 4972 5601 3419 3084 est copié de la manière suivante 4972 5601 3419 3080
Le dernier 4 est remplacé par un 0