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

RechercheV

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
A

akramenergie

XLDnaute Occasionnel
Bonjour amis du forums

je voudrais appliquer une rechercheV sur un fichier par le billet d'une macro je vous joint mon fichier.

je voudrais que ma macro fait la recherche dans la feuil2 et renseigne les valeurs dans la feuil1. (les valeur rechercher sont : C, E , G)
 

Pièces jointes

Trier par date Trier par votes
Re : RechercheV

Bonjour akramenergie,

Je ne vois pas trop l'intérêt du VBA pour ce problème, mais enfin :

Code: 
Private Sub CommandButton1_Click()
Dim plage As Range, cel As Range
Set plage = Sheets("Feuil2").Range("B2:C" & Sheets("Feuil2").Range("B65536").End(xlUp).Row)
Range("B2:B65536").ClearContents 'précaution...
For Each cel In Range("A2", Range("A65536").End(xlUp))
  cel.Offset(, 1) = Application.VLookup(cel, plage, 2, 0)
Next
End Sub

A+
 
Vote positif 0 Vote négatif
Re : RechercheV

Bonjour Akramenergie, bonjour le forum,

Essaie comme ça :
Code: 
Private Sub CommandButton1_Click()
With Sheets("Feuil1")
.Range("B2").Value = WorksheetFunction.VLookup(.Range("A2"), Sheets("Feuil2").[COLOR=red]Range("B2:C11")[/COLOR], 2, False)
End With
End Sub

Édition :

Bonjour Job on s'est croisé.
 
Vote positif 0 Vote négatif
Re : RechercheV

Bonjour Job75

ton code marche bien sauf si je me demande est ce que il ya un moynen pour fair un controle sur la valeur rechercher.
cad si il trouve pas la valeur rechercher dans la plage de recherche, il mais le mot "valeur non disponible" dans la cellule.

NB: par défaut ton code met une "#N/A" si il trouve pas la valeur.

merci
 
Vote positif 0 Vote négatif
Re : RechercheV

RE,

akramenergie à dit:
NB: par défaut ton code met une "#N/A" si il trouve pas la valeur.
Cliquez pour agrandir...

Bien sûr, exactement comme la fonction RECHERCHEV dans la feuille de calcul.

Code: 
Private Sub CommandButton1_Click()
Dim plage As Range, cel As Range, [COLOR="Red"]v As Variant[/COLOR]
Set plage = Sheets("Feuil2").Range("B2:C" & Sheets("Feuil2").Range("B65536").End(xlUp).Row)
Range("B2:B65536").ClearContents 'précaution...
For Each cel In Range("A2", Range("A65536").End(xlUp))
  v = Application.VLookup(cel, plage, 2, 0)
  [COLOR="Red"]cel.Offset(, 1) = IIf(IsError(v), "valeur non disponible", v)[/COLOR]
Next
End Sub

A+
 
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

S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
421
safranien
S
D
  • Résolu(e)
XL 2019 plusieurs critères
Réponses
5
Affichages
242
Dand87
D
E
  • Question Question
Microsoft 365 Règle de surbrillance d'une cellule qui dépasse une valeur selon l'intitulé d'une colonne.
Réponses
2
Affichages
276
Emeline20
E
  • Question Question
XL 2019 Gestion de 4 sources de revenu (A, B, C et D). Et rajout du jour en cours et MEFC qui doit varier selon le mois en cours...
Réponses
8
Affichages
261
sylvanu
  • Question Question
XL 2021 (RESOLU) XL 2024 LTSC Problèmes de remplissage automatique en colonne
Réponses
6
Affichages
219
kdet
P
  • Résolu(e)
XL 2021 Insertion de formules
Réponses
10
Affichages
239
Saboh12617
S
P
  • Résolu(e)
XL 2021 Insertion de formules
Réponses
4
Affichages
159
Lolote83
L
B
  • Question Question
XL 2021 trouver date anniversaire dans calendrier pour recopie
Réponses
12
Affichages
328
dysorthographie
  • Question Question
Microsoft 365 Graphique avec valeur sur différentes feuilles
Réponses
3
Affichages
190
sousou
D
  • Question Question
XL 2021 calculer nombre de cellules contant 1 dans colonnes non contigües
Réponses
13
Affichages
351
laurent950
E
  • Question Question
Microsoft 365 agrandir la liste
2
Réponses
21
Affichages
642
ebe
E
G
  • Résolu(e)
XL 2016 mettre en surbrillance selon critère
Réponses
3
Affichages
261
Gilles Carl
G
P
  • Question Question
Microsoft 365 Mettre en surbrillance les trois cellules avec les plus grandes valeurs
Réponses
4
Affichages
292
Perceval973
P
C
  • Résolu(e)
XL 2016 Macro permettant d'automatiser le tri d'un tableau Excel et de différencier les lignes
Réponses
5
Affichages
245
Chris1263
C
J
  • Question Question
Microsoft 365 recherchev associé à NB.SI
Réponses
9
Affichages
620
jebbayou34
J
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
414
KTM
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
276
PR.
P
A
  • Résolu(e)
XL 2021 Création de tableau
2
Réponses
29
Affichages
991
Alamyr
A
A
  • Question Question
XL 2010 Surligner texte en fonction d'une valeur en cellule K
Réponses
7
Affichages
404
ascal44
A
U
  • Question Question
Autres [RÉSOLU] Macro qui bug et je ne sais pas la corriger!!!
Réponses
7
Affichages
449
un internaute
U
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…