RecherchV avec VBA dans plusieurs onglets
Résolu
senecartour
Messages postés
324
Date d'inscription
Statut
Membre
Dernière intervention
-
senecartour Messages postés 324 Date d'inscription Statut Membre Dernière intervention -
senecartour Messages postés 324 Date d'inscription Statut Membre Dernière intervention -
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
- Regrouper plusieurs onglets excel en un seul - Guide
- Mkdir vba ✓ - Forum VB / VBA
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
