Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Format données importées

  • Initiateur de la discussion Initiateur de la discussion KIM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

KIM

XLDnaute Accro
Bonjour le Forum,
Il y a des fois où tout se passe bien et d'autres on s'arrache les cheveux. Et là j'ai besoin de vous et vous en remercie.
J'importe des fichiers texte régulièrement contenant des données financières. J'ouvre le fichier texte, je fais manuellement un copier-coller vers le fichier import1 sans probleme. Je peux lancer toutes les opérations de calcul.
J'essaye alors d'automatiser l'importation de ce fichier text. Une semaine sans resultat. J'ai toujours les données inexploitables et je n'arrive pas à récupérer correctement les colonnes chiffres. Ces colonnes se transforment en données texte et je n'arrive pas à les formater. Merci de m'aider à trouver le moyen d'importer automatiquement le(s) fichiers texte, de formater correctement les données chiffres pour les exploiter normalement.
Ci-joint un extrait de mes données text et la macro d'importation.
Merci d'avance
Amicalement [file name=EXT_KIM.zip size=18446]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EXT_KIM.zip[/file]
 

Pièces jointes

re KIM

une autre formulation pour la colonne (K ici)

For n = 5 To Range('K65536').End(xlUp).Row
Cells(n, 11) = CDbl(Cells(n, 11))
Next n

apres test la formulation a base de for each est la suivante

For Each cel In Range('L1:L' & Range('L65536').End(xlUp).Row)
On Error Resume Next
cel.Value = CDbl(cel.Value)
Next cel
On Error GoTo 0

Si tu es sur de ne pas avoir de texte dans la colonne la 1ere est preferable sinon opte pour la second et tiens nous au courant

par contre, il ne s'agit toujours que de palliatifs

esperons en la venue d'un de nos Grands Maitres !!!!

je les ais invoqués dernierement avec succès

pourquoi pas ici !!

Message édité par: pierrejean, à: 19/04/2006 08:49
 
Re JeanMarie, Pierrejean et le forum,
La proposition de Pierrejean fonctionne.
Y-a-t-il moyen de regrouper toutes les colonnes à transformer dans une seule boucle? ou y-a-t-il moyen de definir une zone de plusieurs colonnes à partir de la ligne 5?
Pour avancer je vais recopier ce code pour chaque colonne necessaire en attendant de trouver une solution de formatage globale.
Merci d'avance
Amicalement
KIM
 
re KIM

voila une boucle qui traite les colonnes
CDEF K à N et U à AB

For x = 3 To 28
If x = 7 Then x = 11
If x = 15 Then x = 21
For n = 5 To Range(Cells(65536, x).Address).End(xlUp).Row
Cells(n, x) = CDbl(Cells(n, x))
Next n
Next x

je n'ais fait qu'un test rapide
mais je continue

tiens nous au courant
 
Bonjour PierrJean, JeanMarie et le forum,
Pour la suite j'ai lancé un autre fil qui englobe la première phase de mon application en intégrant vos modifs. Merci d'avance pour votre aide et votre contribution et au forum aussi.
Suite sur le fil
Lien supprimé

Bien amicalement
KIM
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Réponses
9
Affichages
1 K
Capteur44
C
S
Réponses
38
Affichages
4 K
Q
Réponses
0
Affichages
776
quicktibong
Q
K
Réponses
2
Affichages
17 K
kev29180
K
B
Réponses
2
Affichages
980
K
Réponses
3
Affichages
2 K
Kuro_Neko
K
F
Réponses
12
Affichages
8 K
F
T
Réponses
3
Affichages
4 K
H
Réponses
2
Affichages
904
G
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…