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]

J'ai oublié d'inclure le fichier en question. Peut-on, aussi, à partir du modèle fourni ci-joint mettre des critères. Par exemple, loop until... tel numéro corresponde à tel autre ou que la somme d'une ligne égale telle ligne ou qu'un cycle de recherche soit atteint.

 

[CHALET53]

Bonjour,
Pour réduire le code et intégrer une pause de 5 secondes à chaque ligne

Sub Macro2()
For i = 18 To 77
Range("E" & i & "" & i).Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Attendre 5 secondes
Application.Wait Time + TimeSerial(0, 0, 5)
' Continuer après la pause
Next i

End Sub


a+

 

[Lucko]

Bonjour Chalet35,

J'aime l'idée. Toutefois, on dirait que la fonction saute parfois de une à deux lignes. Cela dit, je ne vais pas m'en plaindre puisque cette macro correspond à mes attentes. Après une pause volontaire avec ESC, peut-on reprendre là où on s'est arrêté? Merci.

 

[JCGL]

Bonjour à tous,

Merci d'utiliser la mise en page prévue pour les codes :

a++

 

[mapomme]

Bonsoir Lucko, CHALET53, JCGL,

Un essai avec défilement qu'on peut stopper puis reprendre. La durée de l'intervalle entre deux affichages est définie par une constante nommée Tempo en début du code au sein de module1. Le code est un peu commenté.

Il y a aussi deux instructions dans la procédure évènementielle Private Sub Workbook_Open() au sein du module de ThisWorkbook.

à noter: le bouton a été renommé "Bouton".

edit: on doit pouvoir ajouter des conditions pour le défilement mais il faudrait énoncer des conditions précises. Dans le fichier fourni, le défilement s'arrête quand on a affiché la ligne n° 77.

 

[Lucko]

Bonjour ma pomme,

Je viens tout juste de prendre connaissance de ton fichier. Un travail exceptionnel. Est-il possible d'arrêter la recherche quand le plus grand nombre de numéros de A correspond à B, en respectant l'ordre dans la zone de recherche, alors la macro arrête.

 

[Lucko]

À partir du fichier, comment traduire en langage VBA

si les numéros contenus entre E16 à G16 = E15 à G16 sont semblables alors arrêt de la macro

J'ai essayé :

If ("e16:g16") = ("e15:g15") then
exit sub
End if

Mais cela ne fonctionne pas

 

[Lucko]

Bonjour à tous,

Je relance la discussion pour savoir si quelqu'un a une solution à mon problème...!

Merci

 

[Staple1600]

Bonjour à tous

Lucko
Pas une solution à ton problème
Mais une solution à une meilleure lisibilité de tes messages, déjà évoquée par JCGL que je salue au passage dans le message#5, mais que tu ne sembles pas avoir lue.

 

[Lucko]

Bonjour Staple1600,

Merci de me rappeler à l'ordre si gentiment... donc je dois entrer le code comme cela:

If ("e16:g16") = ("e15:g15") then
exit sub
End if

Et non plus en utilisant des fichiers à titre d'exemple?

 

[Staple1600]

Re

Tu peux faire les deux
Je disais juste que c'est plus lisible quand on distingue facilement le code VBA du reste du message.

Spoiler: Comme un rêve inaccessible

l'idéal à mon sens c'est :
1) un titre explicite
2) un message détaillé dans la discussion qui explique le problème à résoudre
(ce qui permet au lecteur de determiner si la question l'interesse et lui évite de télécharger un fichier pour rien si ce n'est pas le cas)
3) un fichier exemple joint par demandeur dès le premier message
(fichier allégé et anonymisé et sans fioritures: pas d'images de couleur etc..)

Mais çà c'est dans mon monde idéal et comme on le sait tous , ici, sur XLD, c'est le vrai monde

Au fait, il existe aussi un mode Edition qui permet de revenir sur les anciens messages.
Donc pour avoir une discussion tout propre et guillerette, tu peux rajouter des balises CODE partout où tu as du code VBA dans tes messages

Pour revenir à ta question, je laisse mapomme continuer sur le chemin de la résolution.
Car je m'en dois sortir dans le vrai monde pour aller rencontrer quelques vrais gens, dans un vrai champ, tout de chanvre vêtus (salon bio oblige).
Par contre c'est un monde qui n'a rien d'idéal, quand je vois le prix sur les étiquettes en papier recyclé.

 

[Lucko]

Staple1600,

C'est vrai que c'est plus lisible. Comme je m'y connais peu en VBA, je viens sur ce site de temps en temps pour trouver des réponses à mes problèmes avec Excel car il y a ici beaucoup de virtuoses du code VBA. Je ne suis pas au courant de tous les changements apportés à ce forum si exceptionnel. Honte à moi, en fait!

 

[mapomme]

Bonjour Lucko, Staple1600,

(...) Est-il possible d'arrêter la recherche quand le plus grand nombre de numéros de A correspond à B, en respectant l'ordre dans la zone de recherche, alors la macro arrête.

C'est quoi A et B ? C'est quoi quand le plus grand nombre de numéros de A correspond à B ?

nota: j'attends avec impatience le retour de Staple1600 pour qu'il nous apprenne comment coder BIO .

 

[Staple1600]

Bonjour maapom

me v'là divisé par 10, snif