RecherchV avec VBA dans plusieurs onglets
Résolu
senecartour
Messages postés
391
Statut
Membre
-
senecartour Messages postés 391 Statut Membre -
senecartour Messages postés 391 Statut Membre -
Bonjour,
J'ai un fichier excel avec plusieurs onglets (resultat, Base1, Base2, Base3)
Je souhaiterais avec une macro faire une recherchV des données de l'onglet resultat dans les trois bases.
Autrement dit, lorsque, la valeur n'est pas dans la base1, la macro doit continuer sa recherche dans la base2, ainsi de suite jusqu'au dernier onglet.
Au cas ou la valeur recherchée n'est présente dans aucun onglet, je dois avoir le message "valeur absente".
Je vous donne le lien de mon fichier: https://www.cjoint.com/?DICcd4KXdyJ
Merci pour votre aide!!
J'ai un fichier excel avec plusieurs onglets (resultat, Base1, Base2, Base3)
Je souhaiterais avec une macro faire une recherchV des données de l'onglet resultat dans les trois bases.
Autrement dit, lorsque, la valeur n'est pas dans la base1, la macro doit continuer sa recherche dans la base2, ainsi de suite jusqu'au dernier onglet.
Au cas ou la valeur recherchée n'est présente dans aucun onglet, je dois avoir le message "valeur absente".
Je vous donne le lien de mon fichier: https://www.cjoint.com/?DICcd4KXdyJ
Merci pour votre aide!!
A voir également:
- RecherchV avec VBA dans plusieurs onglets
- Restaurer les onglets chrome - Guide
- Ouvrir plusieurs onglets en même temps - Guide
- Excel compter cellule couleur sans vba - Guide
- Fusionner plusieurs onglets excel - Guide
- Find vba - Astuces et Solutions
4 réponses
Salut le Forum
Merci de rester sur la même demande initiale.
https://forums.commentcamarche.net/forum/affich-30807015-recherchev-sur-plusieurs-onglets
Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »
Merci de rester sur la même demande initiale.
https://forums.commentcamarche.net/forum/affich-30807015-recherchev-sur-plusieurs-onglets
Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »
Bonjour,
La première demande était avec des formules. Je constate qu'avec plus de 20 onglets cela ne fonctionne.
Cette fois-ci la demande concerne le même sujet mais avec des Macros.
Ainsi, on ne peut pas dire que c'est la même demande.
Merci pour votre aide!!
La première demande était avec des formules. Je constate qu'avec plus de 20 onglets cela ne fonctionne.
Cette fois-ci la demande concerne le même sujet mais avec des Macros.
Ainsi, on ne peut pas dire que c'est la même demande.
Merci pour votre aide!!
Bonjour senecartour
Essaie cette macro :
Cdlmnt
Essaie cette macro :
Sub recherchemulti()
Dim DernLigne As Long
Dim DernLignebase As Long
'derniere ligne non vide de Resultat
DernLigne = Sheets("Resultat").Range("A" & Rows.Count).End(xlUp).Row
' boucle sur les lignes de Resultat
For n = 2 To DernLigne
' produit à rechercher
produit = Sheets("Resultat").Range("A" & n).Value
' boucle sur tous les onglets du 2eme au dernier
For t = 2 To Sheets.Count
'dernière ligne non vide de l'onglet
DernLignebase = Sheets(t).Range("A" & Rows.Count).End(xlUp).Row
'recherchev sur l'ongley
resultat = Application.VLookup(produit, Sheets(t).Range("A2:B" & DernLignebase), 2, False)
' si la recherchev aboutit placement du resultat trouvé dans Resultat et sortie de boucle
If Not (IsError(resultat)) Then Sheets("Resultat").Range("B" & n) = resultat: Exit For
Next t
Next n
End Sub
Cdlmnt