XL 2016 Recherche ligne par ligne

[Lucko]

Bonjour,

Voilà mon problème. J'ai 60 lignes (de E18 à E77). Chaque ligne contient 12 numéros. Je veux copier une à la suite de l'autre les 60 lignes sur la rangée E88 afin de pouvoir les comparer à un autre numéro. En utilisant la fonction enregistrement, j'ai obtenu ce code. Lorsque j'arrête, je peux pouvoir recommencer non pas au début de la ligne mais à la ligne suivant l'arrêt. Comme je suis nul en macro, est-ce que l'on peut réduire ce code à quelques lignes? Merci

Sub Rechercheligneparligne()

Range("E1818").Select
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1919").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2020").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2121").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Range("R8").Select
End Sub

 

[Lucko]

Bonjour mapomme,

Comme dans le fichier Excel ci-joint plus haut, j'essaie à partir de ton code VBA de faire arrêter la recherche de la macro si le plus grand nombre de numéros se trouvant sur la ligne nommé arbitrairement A: 1-2-3-4-5-6-7-8-9-10-11-12 égal ceux se trouvant sur la ligne nommé arbitrairement B: 1-2-3-4-6-8-11-13-15-16-17-20.

Dans l'exemple ci-haut, il y a 4 numéros sur la ligne B (1-2-3-4) dans le même ordre que la ligne A. Ça pourrait être plus ou ça pourrait être moins de numéros. Dans tous les cas, j'aimerais que la macro arrête lorsqu'elle trouve le plus grand nombre de numéro en ordre parmi les deux lignes.

 

[mapomme]

Bonsoir Lucko ,

C'est sans doute parce que j'ai un rhume carabiné, que suis entouré par une montagne de boite de mouchoirs à ma gauche, par une grande tasse de grog à ma droite, une montagne d'aspirine et de paracétamol au centre et un thermomètre dans le c.. que je ne comprends rien.

Donc je te joins un fichier sans macro avec ce que j'ai compris... A toi de me dire ce qu'il en est.

 

[mapomme]

Bonsoir Staple1600

Bonjour maapom
me v'là divisé par 10, snif

0+0 la tête à toto, je l'ai retrouvé le zéro, je te l'échange contre un sac en papier recyclé rempli d'endives BIO.

 

[Staple1600]

Re à tous, mapomme

T'as retrouvé le zéro, mais tu m'as laissé avec deux pets.
(oui je sais c'est de l'humour qui fait honte à l'humour)

Comme il fait frisquet par ici, et que j'ai la cuisse fragile, j'ai reporté ma visite chez les bio-mens à demain.

Sinon, moi non plus, au plutôt, moi aussi, j'ai du mal à comprendre la question de Lucko.
mais comme tu fais un "travail exceptionnel" avec les sinus en vrac, de surcroît pendant le week-end, je peux pas rivaliser

Je te laisse donc œuvrer seul avec ton clavier, tes mouchoirs et ta force de travail à peine amoindrie par tes maux nasaux

NB: Quant à ta température, il est des moyens plus modernes pour la prendre qui ne nécessite pas de devoir baisser pantalon devant ton Excel qui ne mérite pas cela.

 

[Lucko]

mapomme,

Il ne faut pas trop se plaindre, ce n'est pas tout le monde qui a la chance d'avoir une thermomètre dans le c... Lol!

Blague de mauvais goût à part, j'ai répondu à tes questions et inclus du code VBA dans le fichier pour ta compréhension. Je ne sais pas si je suis plus compréhensible dans mes explications dans le...fichier?

 

[mapomme]

Bonsoir Lucko,

Je pense avoir bien compris. Je regarderai sans doute cela demain matin...

 

[Staple1600]

Bonsoir mapomme

Apparemment; la fièvre a baissé
Bonne nuit.

PS: Il parait que même enrhumé, il faut dormir avec la fenêtre entreouverte

 

[Lucko]

Alors il me reste à vous dire bonne nuit à tous les deux. Et merci encore mapomme.

 

[mapomme]

Bonsoir Lucko, Staple1600,

Voir l'essai dans le fichier joint. Le défilement ralentit forcément l'exécution.
On interrompt l'exécution à la première solution trouvée.
En fait, l'élément dico contient les numéros de lignes de toutes les solutions.

 

[Staple1600]

Bonjour à tous

Juste de passage pour prendre des nouvelles de mapomme.
Alors ce gros rhume?

 

[mapomme]

Bonsoir Staple1600,

Juste de passage pour prendre des nouvelles de mapomme.
Alors ce gros rhume?

Le rhume, je l'ai noyé dans le rhum des grogs, mais c'est un rhume du genre sournois et perfide, il a migré vers la gorge le scélérat ! Mais je l'aurai un jour...

 

[Lucko]

Bonjour mapomme

Chapeau! Je ne veux pas abuser de ton génie en matière de code VBA, surtout avec un aussi mauvais rhume, mais je ne sais pas si tu peux ajouter quelques fonctionnalités supplémentaires. Ci-joint le fichier avec les demandes.

 

[mapomme]

Re,

(...) je ne sais pas si tu peux ajouter quelques fonctionnalités supplémentaires. Ci-joint le fichier avec les demandes.

On va examiner cela, ça demande quelque réflexion . Mais pas ce soir.

Bonne-nuit

 

[Lucko]

Oui, bien sûr. Merci et bonne nuit.