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

macro recherche/écrit

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

titine06

Guest
Salut tout le monde,
je suis nouvelle sur ce forum, et je viens vous demander de l'aide car pour la première fois, je doit faire une macro accomplire une tache.

Je vous énnonce mon problème:

J'ai 2 feuilles.

J'aimerai que lorsque j'appui sur le bouton de la feuille 1, les informations rentrées sur le tableau aille s'inscrire sur la feuille 2 en fonction de la date inscrite (ligne) et en fonction du nom inscrit (collonne)

A savoir que: dans mon fichier complet,
-il y a une infinité (quand meme pas mais presque 😀) de nom dans la feuille 2 (tranche de collonne)
-il y a une infinité (ou presque 😛) de date (en ligne) dans la fueille 2.

Est ce que vous pouriez m'aider? ou il faut que je détail plus? ou que je fasse petit à petit?

Je vous dit merci d'avance!
 

Pièces jointes

Trier par date Trier par votes
Re : macro recherche/écrit

Salut,

Place ce code dans un module et lance le sur le clique de ton bouton

Code: 
Option Explicit

Sub ALOPouet()
    Dim CptLigSrc As Integer, LigDst As Integer
    Dim ColInitDst As Byte
    Dim Rech As Variant
    
    For CptLigSrc = 2 To Sheets("ALO").Range("D1").End(xlDown).Row
        Set Rech = Sheets("Pouet").Rows(1).Find(what:=Sheets("ALO").Range("E" & CptLigSrc).Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not Rech Is Nothing Then
            ColInitDst = Rech.Column - 3
            
            Set Rech = Sheets("Pouet").Columns(1).Find(what:=Sheets("ALO").Range("D" & CptLigSrc).Value, LookIn:=xlFormulas, lookat:=xlWhole)
            If Not Rech Is Nothing Then
                LigDst = Rech.Row
                Sheets("Pouet").Cells(LigDst, ColInitDst).Value = Sheets("ALO").Range("F" & CptLigSrc).Value
                Sheets("Pouet").Cells(LigDst, ColInitDst + 1).Value = Sheets("ALO").Range("G" & CptLigSrc).Value
                Sheets("Pouet").Cells(LigDst, ColInitDst + 2).Value = Sheets("ALO").Range("H" & CptLigSrc).Value
                Sheets("Pouet").Cells(LigDst, ColInitDst + 3).Value = Sheets("ALO").Range("I" & CptLigSrc).Value
                Sheets("Pouet").Cells(LigDst, ColInitDst + 5).Value = Sheets("ALO").Range("J" & CptLigSrc).Value
                Sheets("Pouet").Cells(LigDst, ColInitDst + 6).Value = Sheets("ALO").Range("K" & CptLigSrc).Value
            End If
        End If
    Next CptLigSrc
End Sub

++
Minick
 
Vote positif 0 Vote négatif
Re : macro recherche/écrit

Salut Minick,

c'est vraiment génial ce code, en plus je peux remplacer des valeurs précédemment rentrée. Et c'est plutôt clair j'arrive un peu à la comprendre, je le réutiliserai souvent!


je te remercie !! en plus si vite !

à bientot ! et bonne soirée!!
 
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

H
  • Question Question
Microsoft 365 nommer automatiquement les différentes feuilles d'un dossier
Réponses
2
Affichages
134
Hdv95
H
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
810
laurent950
A
  • Résolu(e)
Microsoft 365 Fonction double click
Réponses
5
Affichages
191
Alain 79
A
  • Résolu(e)
XL 2016 recherche par macro
Réponses
5
Affichages
163
eastwick
C
  • Résolu(e)
Microsoft 365 bouton pour un userform
Réponses
14
Affichages
599
C'est Génial
C
  • Question Question
Microsoft 365 Comment additionner le nombre de mois identique
Réponses
7
Affichages
257
Dennnisss
  • Question Question
XL 2019 Avec l'aide de l'IA j'ai exporter tous les onglets ayant un code, les modules, les USF, etc. Mais*... ?
Réponses
3
Affichages
644
anthoYS
G
  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
299
ALS35
A
  • Question Question
XL 2019 Recherche d'une cellule avec 2 produits
Réponses
4
Affichages
148
sylvanu
J
  • Question Question
Autres Planning
Réponses
8
Affichages
328
JFR
J
I
  • Résolu(e)
Microsoft 365 Gestion des échéances fournisseurs
Réponses
7
Affichages
322
Ines99
I
S
  • Question Question
Microsoft 365 Recherche formule pour planning journalier
Réponses
6
Affichages
243
CHRIS1945
C
R
  • Question Question
Microsoft 365 Suivi charge/capa
Réponses
10
Affichages
370
Dand87
D
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
292
AD74
A
C
  • Résolu(e)
XL 2021 Afficher une page d'un UserForm à partir des données collectées dans une autre feuille
Réponses
2
Affichages
244
Dan
E
  • Résolu(e)
Microsoft 365 Séparer une feuille Excel en deux partie complètement indépendantes ?
2
Réponses
20
Affichages
766
Elnono51
E
K
  • Question Question
Microsoft 365 Comment renvoyer une valeur pour plusieurs cellules de plusieurs fichiers Excel fermés en utilisant concatener ?
2 3
Réponses
41
Affichages
657
KUTTING France
K
D
  • Question Question
Microsoft 365 Filtrer sur la feuille 1 et que ce même filtre s'applique sur le feuil 2
Réponses
5
Affichages
365
desmonts
D
F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
245
finarobert
F
R
  • Résolu(e)
XL 2019 recherche dans plage
Réponses
10
Affichages
590
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…