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

chercher des données dans onglets VBA

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

Homer75

Guest
bonjour à tous !!

De retour pour de nouvelles aventures !!!

Cette fois ci c'est un soucis de prog...

J'ai un classeur avec un nombre enorme de feuille.

Dans une feuille j'ai une liste avec des noms.
une macro prends ces nom et creer une feuille pour chaque avec comme nom de feuille: un nom dans la liste: j'ai donc pour chaque nom de la liste, une feuille.

dans une autre feuille, appelons la resultat, je souhaite recuperer des données de toutes les feuilles dont le nom est dans la liste.

je pourrais faire une somme brute..mais comme j'ai 30 feuilles, je suis assez flemard....mais c'est surtout que j'ai une liste dynamique de nom..donc c'est pour eviter a chanque fois de tout refaire.

Voila un petit exemple dans le fichier joint.

Merci d avance !!!!
 
Trier par date Trier par votes
Re : chercher des données dans onglets VBA

bonjour Homer75

voici une macro à tester (par contre, elle pédale, faut être patient)

Code: 
Sub test()
Dim cellTotal As Range, cellVille As Range, somme As Double, cellFind As Range
Set cellTotal = ThisWorkbook.Sheets("Totaux").Range("D9")
While cellTotal.Text <> vbNullString
    somme = 0
    Set cellVille = ThisWorkbook.Sheets("Ville").Range("A4")
    While cellVille.Text <> vbNullString
        Set cellFind = ThisWorkbook.Sheets(cellVille.Text).Range("A7")
        While cellFind.Text <> vbNullString
            If cellFind.Value = cellTotal.Value Then somme = somme + cellFind.Offset(0, 1).Value
            Set cellFind = cellFind.Offset(1, 0)
        Wend
        Set cellVille = cellVille.Offset(1, 0)
    Wend
    If somme <> 0 Then cellTotal.Offset(0, 1).Value = somme
    Set cellTotal = cellTotal.Offset(1, 0)
Wend
End Sub

a+
 
Vote positif 0 Vote négatif
Re : chercher des données dans onglets VBA

ca me semble bien...ca amrche en tous les cas sur l'exemple.

Par contre j 'ai copier le code et l'ai modifié pour mon vrai classeur.

Il en fait une incompatibilité de type...ca signifie quoi ??
 
Vote positif 0 Vote négatif
Re : chercher des données dans onglets VBA

re salut,

difficile a dire comme ça...
exécute la macro "pas à pas" (en appuyant successivement sur F8) et dis a quelle ligne tu as cette erreur.

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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
  • Question Question
Power Query [Trucs et astuces] Créer le dictionnaire de données des requêtes
Réponses
0
Affichages
153
Guy_M
G
P
  • Question Question
Autres moyenne de plusieurs lignes et colonnes sous deux conditions
Réponses
8
Affichages
436
podarck
P
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
293
AD74
A
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
701
Phil69970
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
767
Dranreb
  • Question Question
XL 2019 Recopier Liste avec une valeur en Moins
Réponses
13
Affichages
447
Caninge
B
  • Question Question
XL 2021 Base de données
Réponses
5
Affichages
711
Cousinhub
B
  • Résolu(e)
XL 2021 Doublon à fusionner
2
Réponses
24
Affichages
693
job75
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
431
mapomme
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
375
Marie.
M
  • Résolu(e)
XL 2021 Une aide pour optimiser du code VBA
2
Réponses
16
Affichages
725
jeff1494
J
  • Résolu(e)
XL 2021 remplissage colonne avec noms composant une équipe selon choix dans menu déroulant
Réponses
14
Affichages
355
JiM08
J
  • Question Question
XL 2016 Fichier calcul de prix de revient
Réponses
13
Affichages
866
sousou
D
  • Question Question
Microsoft 365 TCD et onglets spécifiques selon les filtres à définir
Réponses
2
Affichages
204
Daniel200666
D
F
  • Question Question
Microsoft 365 Vba : copier certaines cellules suivant la valeur d'une autre
Réponses
2
Affichages
300
mapomme
  • Résolu(e)
XL 2021 Récupération de données sur une seconde feuille
Réponses
8
Affichages
521
fvr1
M
  • Résolu(e)
XL 2021 SommeProd
Réponses
2
Affichages
252
marc.as
M
D
  • Question Question
XL 2021 Problème de macro
Réponses
5
Affichages
255
Didierpasdoué
D
S
  • Question Question
XL 2021 Automatisation et synthèse données
Réponses
1
Affichages
348
Dand87
D
  • Question Question
XL 2019 Application.Run
Réponses
3
Affichages
266
Atiom
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…