Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Recherche ligne par ligne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Lucko
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

Lucko

Guest
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 E8😛8 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("E18😛18").Select
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E19😛19").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E20😛20").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E21😛21").Select
Application.CutCopyMode = False
Selection.Copy
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Range("R8").Select
End Sub
 
Trier par date Trier par votes
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.
 
Vote positif 0 Vote négatif
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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.😉
 
Vote positif 0 Vote négatif
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?
 

Pièces jointes

Vote positif 0 Vote négatif
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
200
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
430
AtTheOne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
653
ph.vanne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
511
Nounours4173
N
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
137
eastwick
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
422
sylvanu
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
423
cdric78
C
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
345
MICHIS
M
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
552
micie1509
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
787
Phil69970
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
409
xavieralvaro
X
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
719
robpellan52
R
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
697
Valter
V
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
805
gwenn49
G
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
432
Francky79
F
O
  • Question Question
Autres Optimisation macro numérotation ligne
Réponses
11
Affichages
387
crocrocro
C
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
1 K
TooFatBoy
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
844
olivier388
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…