VBA---recherche et inscription de numéros de lignes

néné06

XLDnaute Accro

• 14 Janvier 2012

• #2

Re : VBA---recherche et inscription de numéros de lignes

Bonjour JJ1

Un petit UP, avec une proposition simple qui doit être arrangée.
Donc une petite piste.

A+

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 15 Janvier 2012

• #3

Re : VBA---recherche et inscription de numéros de lignes

Bonjour Néné06,
Merci pour ton code, je viens de l'installer, il fonctionne (on voit bien le défilement de la recherche)
Je vais tester sur un nombre important de lignes en H:K, je pense que le processeur va s'affoler et chauffer un tantinet....(je dirai le temps, mais à mon avis plusieurs heures pour 200000 tests)
Bonne soirée
A bientôt

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 15 Janvier 2012

• #4

Re : VBA---recherche et inscription de numéros de lignes

Enlève le select qui ralenti l'execution
Cells(num_lig_tabA + fhm, fhj).Select

A+

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 15 Janvier 2012

• #5

Re : VBA---recherche et inscription de numéros de lignes

Re bonsoir,
Effectivement le select ralentit beaucoup.
J'ai vérifié le résultat, il est faux quand les 4 nombres sont sur 2 lignes, il note la ligne du dessus non concernée?
J'ai noté en rouge 2 exemples (ligne 110 notamment)
Si tu as un moment pour me dire où je dois corriger.
Merci encore
Bonne soirée

ps: j'ai mis > à 15 (au lieu de 18) car 5 colonnes A:E au lieu de 6.

 

Pièces jointes

• exemple.xlsm

  20.4 KB · Affichages: 52
• exemple.xlsm

  20.4 KB · Affichages: 50
• exemple.xlsm

  20.4 KB · Affichages: 51

Dernière modification par un modérateur: 15 Janvier 2012

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 15 Janvier 2012

• #6

Re : VBA---recherche et inscription de numéros de lignes

J'ai regardé les (erreurs)
Il n'y en à pas!!
En lignes 110-111-112, tu as vraiment les chiffres recherchés.
Vérifie bien et dis moi??

A+

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 15 Janvier 2012

• #7

Re : VBA---recherche et inscription de numéros de lignes

Re,
Merci de ta réponse, en ligne 110, il y a : 44 29 11 7 13 et la recherche se fait sur 1 2 4 9 ? la première ligne où commence la série de 4 est donc 111 (où 1 2 4 9 se groupent sur 2 lignes 111 et 112 ) et pas 110?
Dis moi si problème?
merci

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 15 Janvier 2012

• #8

Re : VBA---recherche et inscription de numéros de lignes

J'ai considéré que ta recherche de quatre chiffres doit être présente dans une suite de trois lignes.
Sur les trois lignes 110-111-112 je trouve bien 1 2 4 9 ( en ligne 111 et 112) .
Il faudrait modifier le programme pour qu'il ne prennent pas une suite de trois lignes , mais que à partir d'une ligne où existe un des quatre chiffres cherchés, il vérifie que dans cette ligne et les deux suivante , il trouve les trois chiffres suivants.
Est-ce exact ???

A+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 15 Janvier 2012

• #9

Re : VBA---recherche et inscription de numéros de lignes

Do Until jw > 18
If jw < 7 And trouve = 0 Then Exit Do ' en rajoutant cette ligne, si ne trouve pas un des chiffres ,passe à la ligne suivante
If NB_cherche(iw) = NB_existe(jw) Then
trouve = 1
Exit Do
End If
jw = jw + 1
trouve = 0
Loop

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 15 Janvier 2012

• #10

Re : VBA---recherche et inscription de numéros de lignes

Re,
Les 4 nombres doivent se situer au maximum sur 3 lignes consécutives pour que la macro renvoie la 1ère ligne.
Mais les 4 nombres peuvent être sur 1 ou 2 lignes.(pas dispersés sur 4 ou plus) et la macro donne toujours la première ligne.

Est -ce difficile de rectifier juste cette condition?
merci


Bing, on s'est croisés, je modifie avec la ligne que tu as ajoutée.
Je te dis.
merci

 

Dernière modification par un modérateur: 15 Janvier 2012

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 15 Janvier 2012

• #11

Re : VBA---recherche et inscription de numéros de lignes

je pense avoir envoyé la réponse après ton mail?

A+

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 15 Janvier 2012

• #12

Re : VBA---recherche et inscription de numéros de lignes

Oui on s'est croisé!
J'ai ajouté la ligne, il ne trouve plus rien?
je pense que <7 ne doit pas correspondre avec mon >15 (3 lignes maximum de 5 nombres).
Qu'en penses tu?
merci

Si trop compliqué, ne t'embête pas, je ferai avec le premier code.

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 15 Janvier 2012

• #13

Re : VBA---recherche et inscription de numéros de lignes

j'ai fais une erreur !
ce n'est pas <7 mais =7 ou 6 pour ton nouveau prog.

A+

 

Dernière édition: 15 Janvier 2012

Vote positif 0 Vote négatif

J

JJ1

Guest

• 15 Janvier 2012

• #14

Re : VBA---recherche et inscription de numéros de lignes

Idem avec = 6 (j'a essayé 5 aussi) mais aucun résultat, à mon avis Exit Do doit l'empêcher de trouver.

T'embête pas, je fais avec le premier code qui fonctionne avec juste ce problème de 2 lignes.
Encore merci à toi.
A+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 15 Janvier 2012

• #15

Re : VBA---recherche et inscription de numéros de lignes

Je ne lâche pas !!

Un petit instant et je renvoie le nouveau rectifié avec 5 colonnes.

A+

 

Vote positif 0 Vote négatif