importer fichier texte dans exel

[niko51]

j'aimerai importé un fichier texte de cette forme :



le mieux que je réussisse a faire c'est :



alors que j'aimerai l'avoir sous cette forme :



merci d'avance,
niko51

 

[job75]

Re : importer fichier texte dans exel

Rebonjour niko51,

Si les données sont en colonne A B C exécuter cette petite macro :

Sub Transfert()
Dim cel As Range
For Each cel In [A:A].SpecialCells(xlCellTypeConstants)
If cel.Offset(, 2) = "" Then cel.Offset(, 1).Cut cel.Offset(, 2)
Next
End Sub

A+

 

[niko51]

Re : importer fichier texte dans exel

pourrais tu me dire comment on applique la macro ? (j'ai excel 2007)

 

[job75]

Re : importer fichier texte dans exel

Re,

Copier la macro.

Alt+F11 pour aller dans VBA puis menu Insertion => Module et y coller la macro.

Pour l'exécuter depuis VBA : menu Exécution-Exécuter. Depuis la feuille de calcul : Alt+F8.

Edit : il est souhaitable que l'onglet Développeur soit affiché. Voir le Bouton Office pour cette option.

A+

 

[niko51]

Re : importer fichier texte dans exel

merci à toi ! 🙂

 

[niko51]

Re : importer fichier texte dans exel

la macro que tu m'a fourni fonctionne avec le petit exemple que j'avais mis ds mon 1er post mais ne marche pas avec la version final de mon fichier texte...

je mets en pièce jointe le fichier texte et le fichier excel.

ps : le fichier exel est raccourci par rapport au fichier texte

 

[job75]

Re : importer fichier texte dans exel

Bonjour niko51, le forum,

Le problème vient qu'en colonne C se trouvent des valeurs d'erreur renvoyées par des formules (en ligne 991 par exemple).

Voici la macro modifiée :

Sub Transfert()
Dim cel As Range
For Each cel In [A:A].SpecialCells(xlCellTypeConstants)
If cel.Offset(, 2)[COLOR="Red"].Text[/COLOR] = "" Then cel.Offset(, 1).Cut cel.Offset(, 2)
Next
End Sub

Edit : si vous désirez supprimer les valeurs d'erreur en colonne C, vous pouvez utiliser :

Sub Transfert()
Dim cel As Range
For Each cel In [A:A].SpecialCells(xlCellTypeConstants)
If cel.Offset(, 2)[COLOR="Red"].Text[/COLOR] = "" Or [COLOR="Red"]IsError(cel.Offset(, 2))[/COLOR] Then cel.Offset(, 1).Cut cel.Offset(, 2)
Next
End Sub

A+