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

Macro : Recherche

Créer une discussion

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
R

roidurif

XLDnaute Occasionnel
Bonjour,

J'essaye de faire une rechercheV sans utiliser la fonction recherchev, mais plutôt une macro.

Pour cela, j'ai la macro suivante, mais je n'arrive pas à obtenir le resultat à droite de la valeur recherchée.

Je vous remercie de votre aide


Code: 
Sub Test()
Set d = Worksheets("Data").Range("b2")
For Each c In Worksheets("Resultat").Range("b2:b10")
If c.Value = d.Value Then d.Offset(0, 1).Copy c
Set d = d.Offset(1, 0)
Next c
End Sub
 

Pièces jointes

Trier par date Trier par votes
Re : Macro : Recherche

Bonsoir roidurif,

Regardes si celà te convient.

Code: 
Sub TI()

Set d = Worksheets("Data").Range("b2")
For Each c In Worksheets("Resultat").Range("b2:b10")
If c.Value = d Then Sheet1.Range(d.Address).Offset(0, 1).Copy Sheet2.Range(c.Address).Offset(0, 1)
Set d = d.Offset(1, 0)
Next c

End Sub

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

Merci Papou-net,

Cela me convient presque, seulement, je me retrouve avec 2 problématiques :
Lorsque la valeur recherchée est vide, il copie la celulle vide trouvée quand même.
Lorsque la valeur recherchée est en double (Car il ne fait qu'une boucle dans l'onglet "DATA"), il ne copie pas la 2eme valeur trouvée .

Comment faire pour y remedier à tout ca ?

ci-joint fichier d'exemple

Merci de l'aide



Code: 
Sub Test()

Set d = Worksheets("Data").Range("b2")
For Each c In Worksheets("Resultat").Range("b2:b10")
If c.Value = d Then Sheet1.Range(d.Address).Offset(0, 1).Copy Sheet2.Range(c.Address).Offset(0, 1)
Set d = d.Offset(1, 0)
Next c

End Sub

Cordialement
 

Pièces jointes

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

Lorsque la valeur recherchée est vide, il copie la celulle vide trouvée quand même.
Lorsque la valeur recherchée est en double (Car il ne fait qu'une boucle dans l'onglet "DATA"), il ne copie pas la 2eme valeur trouvée .

Bonjour roidurif,

N'étant pas chez moi en ce moment, et n'ayant pas Excel sur cet ordi, je te propose de modifier ton code pour répondre au premier point :

Code: 
Sub Test()

Set d = Worksheets("Data").Range("b2")
For Each c In Worksheets("Resultat").Range("b2:b10")
If c.Value = d  And Not c.Value = "" Then
  Sheet1.Range(d.Address).Offset(0, 1).Copy Sheet2.Range(c.Address).Offset(0, 1)
  Set d = d.Offset(1, 0)
End If
Next c

End Sub

Quand au deuxième point que tu signales, je suis surpris car il me semble que lors de l'essai sur mon poste, les valeurs en double s'affichaient.

Je vérifierai lorsque je serai rentré.

En attendant, cordiales salutations.
 
Vote positif 0 Vote négatif
Re : Macro : Recherche

Bonjour roidurif,

Je suis rentré et j'ai réexaminé le problème.

Essaies ce nouveau code et dis-moi si c'est ce que tu attendais ?

Cordialement.

Code: 
Sub Test()
For Each d In Sheet1.Range("B2:B10")
  For Each c In Worksheets("Resultat").Range("b2:b10")
  If c.Value = d.Value And Not c.Value = "" Then
    Sheet1.Range(d.Address).Offset(0, 1).Copy Sheet2.Range(c.Address).Offset(0, 1)
  End If
  Next c
Next d
End Sub
 
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

Discussions similaires

M
  • Question Question
Microsoft 365 Récupération des plages nommées des fichiers dans un répertoire
Réponses
8
Affichages
367
dysorthographie
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
245
pascal21
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
623
anthoYS
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
C
  • Question Question
Microsoft 365 Supprimer ligne selon contenu cellule (résolu)
Réponses
7
Affichages
448
job75
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
U
  • Question Question
Autres [RÉSOLU] Peut-on faire une macro qui met une seule macro en commentaires puis le contraire!!!
2 3
Réponses
30
Affichages
2 K
un internaute
U
C
  • Résolu(e)
Autres Copier des données vers une nouvelle feuille excel VBA
2
Réponses
25
Affichages
1 K
Carolinebd
C
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
446
Lau01150
L
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
418
KTM
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
269
un internaute
U
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
511
job75
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
735
kiki29
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
914
TooFatBoy
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
732
job75
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
534
spike29
S
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
345
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…