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

Macro "Recherche V"

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

benloco

Guest
Bonjour,

je souhaiterais faire une macro qui pourrait me traduire une RechercheV automatic pour retrouver mes donnees sans avoir aucune formule.

Mon fichier est composé de 2 onlgets
1. Data1
2. 1CB0 test

Il faudrait que je puisse avoir les donnees de la colonne D de l’onglet data1 dans l onglet 1CB0 test dans la ligne 5, selon mes criteres de la ligne 3. ( donnees qui sont aussi sur l’onglet Data1 en colonne A)

Aussi, le nombre de lignes peut changer, il faudrait donc que je puisse aller chercher l information jusqu’a la derniere ligne.


Merci pour votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : Macro "Recherche V"

Bonjour benloco,

Vois si ton fichier modifié correspond à ton souhait.

J'ai écrit une macro événementielle qui s'exécute automatiquement lors d'un changement intervenu dans une des cellules de la ligne 3 de la feuille '1CB0 test'.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Row = 3 Then Exit Sub
Application.EnableEvents = False
For Each cel In Range("3:3").SpecialCells(xlCellTypeConstants)
  Set trouve = Sheets("DATA1").Range("A:A").Find(cel.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not trouve Is Nothing Then
    Cells(5, cel.Column) = Sheets("DATA1").Range("D" & trouve.Row)
  End If
Next
Application.EnableEvents = True
End Sub

Espérant avoir répondu.

Cordialement.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro "Recherche V"

Merci pour ta reponse,

Comment je peux faire tourner la macro pour avoir les donnees,

il ny a pas de nom quand je souhaite la faire tourner

Merci
 
Vote positif 0 Vote négatif
Re : Macro "Recherche V"

Comment je peux faire tourner la macro pour avoir les donnees,

il ny a pas de nom quand je souhaite la faire tourner
Cliquez pour agrandir...



Comme je te le disais, la macro se déclenche automatiquement dès que tu modifies une cellule de la ligne N°3.

Si tu désires la lancer sur ordre, alors il faut que tu recopies le code suivant dans un module standard :

Code: 
Sub MiseAJour()
For Each cel In Range("3:3").SpecialCells(xlCellTypeConstants)
  Set trouve = Sheets("DATA1").Range("A:A").Find(cel.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not trouve Is Nothing Then
    Cells(5, cel.Column) = Sheets("DATA1").Range("D" & trouve.Row)
  End If
Next
End Sub

et que tu supprimes la macro événementielle.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Macro "Recherche V"

je reviens avec une question ,
car quand je lance la macro sur mon fichier, il faut que je soit sur la feuille 1CB0 test, sinon cela ne marche pas.
javais enlever des onglets, mon fichier est composer de plusieur onglets.

Comment puis-je faire ??

Merci bien
 
Vote positif 0 Vote négatif
Re : Macro "Recherche V"


Il suffit de rajouter une référence à la feuille '1CB0 test', comme ceci par exemple :

Code: 
Sub MiseAJour()
With Sheets("1CB0 test")
  For Each cel In .Range("3:3").SpecialCells(xlCellTypeConstants)
    Set trouve = Sheets("DATA1").Range("A:A").Find(cel.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not trouve Is Nothing Then
      .Cells(5, cel.Column) = Sheets("DATA1").Range("D" & trouve.Row)
    End If
  Next
End With
End Sub

Cordialement.
 
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
XL 2016 rajouter une colonne en macro
Réponses
0
Affichages
254
richardlion
  • Question Question
XL 2016 colonnes automatique
Réponses
0
Affichages
390
richardlion
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
681
Jaykerz
J
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
610
Raziel abel
D
  • Question Question
XL 2016 macro pour copier coller des cellules d'une feuille dans une autre feuille avec condition
Réponses
2
Affichages
578
Phil69970
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
S
  • Question Question
Microsoft 365 Macro pour addition dynamique de donnees
Réponses
8
Affichages
1 K
AtTheOne
  • Question Question
Microsoft 365 Macro pour renvoyer la valeur par rapport à un intervalle
Réponses
6
Affichages
616
sylvanu
L
  • Question Question
Microsoft 365 création de fichier .txt par ligne non vide en VBA
Réponses
3
Affichages
657
max.lander
M
C
  • Question Question
Microsoft 365 Macro pour créer boite de dialogue
2
Réponses
21
Affichages
2 K
Dudu2
M
  • Question Question
Microsoft 365 Convertir données cellules en lignes
2 3
Réponses
38
Affichages
2 K
matmac
M
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
1 K
fanch55
J
  • Question Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
788
casualexcel
C
R
  • Question Question
Microsoft 365 Faire correspondre une cellule à une autre
Réponses
9
Affichages
944
Hasco
Y
  • Question Question
XL 2019 macro de recherche par mot et déplacement de la ligne dans un autre onglet
Réponses
2
Affichages
931
yenakisoncon
Y
J
  • Résolu(e)
Microsoft 365 macro effacement sélection cellules
2 3 4
Réponses
55
Affichages
4 K
Phil69970
V
  • Résolu(e)
XL 2021 Complétion d'un tableau automatisée
Réponses
9
Affichages
1 K
VincentH.DR
V
K
  • Question Question
Microsoft 365 écriture via code vba
Réponses
10
Affichages
1 K
soan
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…