VBA recherche texte dans fichiers
aucun souci.
je comprend parfaitement.
un très grand merci !!
Le mieux est d'apprendre à lire le programme, tu devrais pouvoir corriger/amender ceci
If ContenuLigne Like "*M106*" Or ContenuLigne Like "*M06*" Or ContenuLigne Like "*M6*" Then
Cells(ligne, 1) = fichier
Cells(ligne, 2) = ContenuLigne
ligne = Range("A" & Rows.Count).End(xlUp).Row + 1
End Ifqui constitue la sélection des lignes affichées.
J'ai séparé commentaires et outils pour que ce soit pas trop complexe et maintenable.
J'ai ajouté le numéro de la ligne du programme si tu veux faire un rapprochement.
Pour les outils, il y a l'onglet paramètres qui te permet d'ajuster au mieux la sélection (il vaut mieux ne pas mettre trop d'exclusion au début) et une formule (modifiable par toi) qui extrait le n° d'outil.
et dieu créa Steelson
franchement génial !!
j'ai retouché un tout petit peu le code pour les M0 et M00 pour élargir un peu la recherche avec des "or" .
après ça ne me sort pas tous les commentaires mais ça doit être du a des espaces ou des sauts de lignes dans les pgm eux mêmes
j'ai essaye de modifier la aussi un peu le code mais ça na pas été concluant.
quoi qu'il en soit MERCI !!!!
pour les espaces c'est bon.
me reste a trouver la solution pour les sauts de lignes avant et ou après le M00
Si tu as la solution je suis bien sur preneur.
je viens de penser mais je ne sait pas si ça existe ....mais on pourrait pas mettre une condition : "ignore les lignes vides" en début de code ??
comme ça , ça réglerai le problème ....
je t'ai fait 4 lignes test avec des M00 ....
tu va très facilement comprendre
Nickel !!
je comparerai tes deux codes pour voir et apprendre ce que tu as modifié.
là, je croit vraiment que le sujet est clos grâce à tout ce que tu as fait.
je t'en remercie beaucoup.