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

Suite Macro de recherche

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion papoow
  • 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
P

papoow

Guest
Bonjour à la communauté, 🙂

Merci à tous pour le partage de vos connaissances.

Je rebondis sur les réponses d'une question précédante sur 'les macros de recherche'.
Lien supprimé

J'ai un besoin de recherche très proche.
Je souhaite sélectionner des lignes à partir d'une date et copier celles-ci en totalité.
- I1 contient ma date

Public Sub test11()
Dim C As Range
For Each C In Range('b2:b' & Range('b65536').End(xlUp).Row)
If C.Value = Range('i1') Then
C.EntireRow.Select

Application.CutCopyMode = False
Selection.Copy
Range('A20').Select
ActiveSheet.Paste

End If
Next C
End Sub

Cette macro me permet juste de selectionner et copier la 1ere ligne identifiée, je voudrais étendre la selection aux 20 lignes suivantes (dessous) et les copier.

Merci à tous 😉

Cordialement Papoow
 
Trier par date Trier par votes
Bonjour papoow, et le Forum

si j'ai bien compris ta demande tu veux coller chaque correspondance trouvées sur la colonne 'B' par rapport a la cellue 'I1' et coller l'ensemble sur la colonne 'A' a prtir de la ligne 20.

Code: 
Option Explicit

Sub CopiePlage()
Dim Cel As Range, MaPlage As Range, L&, Cpteur%
    L = Range('B65536').End(xlUp).Row
    Set MaPlage = Range(Cells(2, 2), Cells(L, 2))

    For Each Cel In MaPlage
        If Cel.Value = Range('I1').Value Then
            Cpteur = Cpteur + 1
            Cel.Copy Cells(19 + Cpteur, 1)
        End If
    Next Cel
End Sub

il existe surement des façons plus élégantes et efficaces d'y parvenir mais bon ma petite bidouille devrait fonctionner 😛

salim
 
Vote positif 0 Vote négatif
Bonjour Salim, 🙂

ça ne correspond pas à ce que je souhaitais, pour faciliter la compréhension de ma demande, je joins un fichier.

Désolé :sick: il est préférable de commencer par cela... 😱

Merci pour ta réponse.

A++

Papoow 😉 [file name=demande001.zip size=6149]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/demande001.zip[/file]
 

Pièces jointes

Vote positif 0 Vote négatif
Re papoow.

y'a pas de mal on va finir par y arrivé 😉 .

je te joint ton fichier modifié qui devrait répondre a tes attentes sinon on continuera :lol: .

salim [file name=Pour_papoow.zip size=12324]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Pour_papoow.zip[/file]
 

Pièces jointes

Vote positif 0 Vote négatif
Salim, 🙂

Comme tu dis si bien nous allons y arriver, c'est bien cela que je trouve formidable dans cette communauté, nous ne sommes jamais seul.

Concernant ma formule, elle n'est pas fause, pour quelle soit opérationnelle sur ton poste il est nécessaire d'activer une 'fonction' dans 'Outils/Macros Complémentaire/Analys Toolpack ou Analys Toolpack - VBA. 😉

Pour mon application, il me faut faire la recherche par le N° de semaine, donc je teste mes connaissances sur ta proposition, ça va bientôt marcher comme je le souhaite.

Merci pour ton aide,

Cordialement, Papoow 😉
 
Vote positif 0 Vote négatif
Salim, 🙂

C'est gagné ! B)

Quelques modifs de rien, juste le temps de regarder et hop !

Ta macro me convient, c'est tout bon !

Pour la tester il te faut paramétrer ton poste.

Merci, A ton service

Papoow 😉
[file name=demande003.zip size=11668]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/demande003.zip[/file]
 

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

  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
105
Eric 888
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
1 K
Corentin26270
C
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
657
AtTheOne
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
742
Pimpon974
P
  • Question Question
Microsoft 365 Macro recherche numéro de colonne avec numéro de ligne variable
Réponses
5
Affichages
917
chris6999
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
866
HANN
H
C
  • Question Question
Microsoft 365 Arret macro si condition est fausse
Réponses
4
Affichages
791
Chounoé
C
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
  • Question Question
XL 2019 modifier une macro
Réponses
2
Affichages
1 K
Ferbank
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
1 K
fanfan38
G
  • Question Question
XL 2019 VBA / Macro Impression avec nombre de copies variables par feuille à imprimer
Réponses
5
Affichages
2 K
Gasner
G
A
  • Résolu(e)
XL 2013 Utilisation de plusieurs conditions
Réponses
7
Affichages
1 K
AnjyD
A
J
  • Question Question
Microsoft 365 Macro excel : Copier-Coller cellules vers des cellules vides à la suite
Réponses
6
Affichages
1 K
Julien91
J
V
  • Résolu(e)
Microsoft 365 Macro pour sélectionner une plage de cellules selon une couleur de remplissage donnée
Réponses
2
Affichages
1 K
vash966
V
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
A
  • Question Question
Microsoft 365 Copier/coller en boucle avec un nb variable de ligne
Réponses
4
Affichages
1 K
A-F
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…