Ecriture automatique
bonjour à tous,
le fichier joint fonctionne très bien, je cherche juste à lui ajouter une fonctionnalité.
j'explique :
ce fichier me permet d'effectuer des recherches dans des fichiers texte.
les résultats sont généré dans le tableau.
lorsque qu'on double click sur une cellule de la colonne A le fichier txt s'ouvre dans un format exel, pile sur la ligne concernée par la recherche.
Je voudrais donc créer un nouveau bouton qui ouvrirai automatiquement chaque ligne du tableau les une après les autres et apporterai automatiquement des modifications sur cette ligne du fichier txt.
la modification a apporter serait : de rajouter à la fin de la ligne TXT le contenu de la colonne (i) nommer : texte a ajouter
je ne sait pas si c'est très clair....
par contre je n'arrive pas a déposer de fichier txt pour vous servir d'exemple
merci d'avance de votre aide.
voici un exemple du contenu des txt
%
(FRAISE 014 SPHERIQUE)
M106T183
M98P8027
(FRAISE 020 SPHERIQUE)
M106T13
M98P8027
(FRAISE 025 ISC PENTES)
M106T181
M98P8027
le resultat recherche serait
%
(FRAISE 014 SPHERIQUE)
M106T183(contenu de la cellule i du tableau de résultat)
M98P8027
(FRAISE 020 SPHERIQUE)
M106T13(contenu de la cellule i du tableau de résultat)
M98P8027
(FRAISE 025 ISC PENTES)
M106T181(contenu de la cellule i du tableau de résultat)
M98P8027
salut fg2b,
ça fonctionne très bien sauf que tu as mis une limite par rapport au nombre de ligne du tableau....
je ne sait pas comment modifié...
le nombre de ligne peut considérablement varier en fonction du nombre de fichiers a analyser
l'Ideal serait de prendre a partir de A2, comme tu l'a fait ,puis toutes les lignes non vide et faisant parti du tableau générer par la recherche.
merci d'avance de ton aide
For Each C In Range("A2:A4")Salut
J'ai fait ca pour tester et oublié de modifier
Remplace
For Each C In Range("A2:A4") par
For Each c In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
Cdlt
nickel !!!!!!!!!
merci mille fois fg2b