Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
J'ai fait une modif rapide du code en renommant la feuil1 en test
For i = 2 To DLO2 'boucle 1 : sur toutes les lignes I de 2 a DL
DC = Sheets("test").Cells(i, Application.Columns.Count).End(xlToLeft).Column 'définit la dernière colonne éditée DC de la ligne I de l'onglet O1
For j = 1 To...
La boucle ne donne rien.
J'ai remplacé pour essayé DL02, là ca fait quelque chose. Par contre ca concatène les données de l'onglet Feuille 2 alors que je souhaiterais que ce soit celle de l'onglet Feuile 1 (01).
Du coup ca expliquerait que DL02 soit nul.
J'ai essayé de rajouter un Se01...
J'ai testé et ca coince à un endroit. Erreur d'execution "1004" :
J'ai remplacer le OD(Range) par OD.Range. Le code se lance au moins.
Par contre la boucle ne fonctionne pas super bien, ca fait pas encore ce que je souhaite. J'essaie de déquortiquer..
Qu'est -ce que la variable DL dans la...
En fait ca me gêne après car les données vides sont espacées de virgules et je me retrouve avec ces virgules qui polluent mes données.
Le AutoFill je le mets après la formule ?
Pas de soucis, je vais essayer de t'expliquer.
Dans mon fichier source d'origine, j'ai des données sur un certain nombre de lignes (variables selon le fichier) et un certain nombre de colonnes (variables selon le fichier). Ci joint un exemple
Dans mon traitement je souhaite concaténer, c'est à...
Oui c'est exactement ce que je sous-entendais par là.
Je t'embête encore...
ActiveSheet.Range("A4").AutoFill Destination:=Range("A4:A1738"), Type:=xlFillDefault
Pour cette partie je souhaiterais faire la même opération mais pas jusqu'à une cellule fixe (ici choisi arbitrairement à 1738 ) mais...
Ah d'accord j'avais peur que ca plante le code...
Ca marche presque ta solution sauf que ..En fait j'ai implémenté la macro dans un fichier Excel "import_tsv" avec un bouton qui lance cette macro. Du coup le fichier final porte le nom de import_tsv.csv et non pas le nom le nom de départ.csv
Merci c'est beaucoup mieux ainsi.
Quelle est la ligne de code pour supprimer les ScrollRow ?
Je vois encore 2 améliorations possibles :
1) Enregistrer le fichier dans le même chemin que le fichier source et avec le même nom sauf l'extension .csv qui changera
2) En fonction des fichiers, je ne...
Bonjour Robert,
Merci pour ton aide. Effectivement ca réduit bien le code. J'ai testé et ca a l'air de fonctionner.
Maintenant je bloque sur l'étape d'après où je souhaite :
1) Supprimer les onglets "Data" , "Feuille1"; "Feuille"2"..sans demander à l'utilisateur de faire "OK"
2) Dans l'onglet...
Bonjour,
Je vous contacte au sujet d'une macro qui devrait me permettre de convertir des fichiers tsv au format csv selon un formalisme donné afin d'utiliser ce fichier avec un logiciel spécifique.
J'ai longuement parcouru le forum sans trouver toujours ce que je souhaitais.
Pour plus de...
Bonjour à vous,
Je me présente Thomas je suis novice en VBA. J'ai tout à apprendre
J'utilise principalement les site pour avoir des conseils sur des problèmes similaires aux miens.
A bientôt.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.