rechercher chaine de caractère dans fichier txt

F

fleet21

XLDnaute Junior

• 26 Octobre 2016

• #16

D9 est un bout de code que j'utilisais au début pour vérifier l'incrémentation de la chaine recherchée. Il ne sert pas à grand chose dans ce cas mais je pense le réutiliser plus tard pour afficher le début et la fin de ma chaine de caractère recherchée.

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 26 Octobre 2016

• #17

Pour le fun
une solution plus globale qui 't'inspireras peut-être?

 

Pièces jointes

• txt1.xlsm

  28.7 KB · Affichages: 49

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 27 Octobre 2016

• #18

elle ne m'inspire pas désolé et affiche la valeur saisie je ne vois pas l'intêret ou j'ai raté quelquechose 🙂

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Octobre 2016

• #19

Ne peux pas répondre actuellementmais devrait faire la même chose avec plus de possibilités

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 28 Octobre 2016

• #20

J’ai testé avec une détection plus longue mais la macro ne fonctionne pas lorsque la chaine dépasse une certaine valeur.

Le but est de vérifier la présence de la chaine MM1234R8xxxx ou les ’’xxxx’’ sont incrémentés par pas de 1 jusqu’à une valeur max de 1035 en sachant qu’il est possible que la chaine soit arrêtée aléatoirement sur MM1234R80652 ou MM1234R81028 par exemple mais que la vérification doit aller jusqu’à 1035. Chaque chaine si elle est présente dans le txt y est deux fois peut être pour cette raison que ça beug.

 

Pièces jointes

• Recherche_chaine.xlsm

  20.1 KB · Affichages: 47
• essai_2.txt

  652 bytes · Affichages: 61

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 28 Octobre 2016

• #21

L’incrémentation de la chaine ne fonctionne plus dés qu’on dépasse 9 le code agit sur le dernier caractère alors qu’on devrait agir sur les 4 derniers, comment modifier le code pour l’adapter ?

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Octobre 2016

• #22

Bonsoir
Désolé mais il me semble que ma dernière version fonctionne regarde le résultat obtenu

 

Pièces jointes

• Copie de txt1.xlsm

  29.3 KB · Affichages: 56
• im1.jpg

  155.8 KB · Affichages: 29

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 31 Octobre 2016

• #23

Elle fonctionne seulement dans la case incrément je saisissais 1 mais il s'agit du nombre max à rechercher l'incompréhension venait d'ici

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 4 Novembre 2016

• #24

J’ai ajouté des titres ligne 1 et maintenant le titre se déplace en même temps que les chaines affichées. Je veux figer définitivement cette ligne 1 car le problème apparaitra lorsque des caractères seront affichées dans les colonnes suivantes.

Autre problème également le bouton de la macro s'aplati et à peine visible dés le lancement à quoi est ce dû ?

 

Pièces jointes

• essai_2.txt

  652 bytes · Affichages: 32
• Recherche_user.xlsm

  25 KB · Affichages: 37

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 4 Novembre 2016

• #25

Bonjour
Il suffit insérer a2 au lieu de a1
J'ai modifié quelques lignes pour que si tu ne choisis pas de fichier la macro s’arrête
Pour le bouton.
Qu'il s’aplatisse c'est normal durant la macro il est en position appuyer.
Par contre dans ton fichier il disparait c'est l'effacement de toutes les lignes à partir de la ligne 2 qui provoque sa disparition
Soit tu positionnes le bouton en ligne 1 (fichier joint) soit du modifies l'effacement

 

Pièces jointes

• Recherche_user.xlsm

  26.8 KB · Affichages: 36

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 4 Novembre 2016

• #26

le problème vient depuis que j'ai modifié l'effacement de la colonne A par [Feuil1!2:65536].EntireRow.Delete, toutes les lignes sont effacées sauf la ligne 1 et c'est ça qui écrase le bouton de macro. Par quel code pourrais t'on le remplacer pour effacer la colonne A de 2 à 2000 (ça suffira).

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 4 Novembre 2016

• #27

Range("A2:A2000").ClearContents fait l'affaire.

 

Vote positif 0 Vote négatif