Mettre données plusieurs feuilles sur une feuille déterminée [Résolu]

Signaler
-
Messages postés
29
Date d'inscription
mercredi 5 août 2020
Statut
Membre
Dernière intervention
4 septembre 2020
 -
Bonjour,
je suis novice, et voilà où je bute !
J'ai un tableau avec une 1ere feuille (Index) et plusieurs autres feuilles.
Dans ces dernières, je voudrais extraire la valeur qu'il y a en M6 (par exemple) et la placer dans la feuille (Index) en A1 pour la première, puis en A2 pour la seconde, etc...
Merci d'avance !!



Configuration: Macintosh / Safari 13.1.2
Afficher la suite

2 réponses

Réponse 1 / 2
Messages postés
12213
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 septembre 2020
 688
bonjour,
un exemple: 
Sub bernie15()
Dim fl As Worksheet, nlig As Long
nlig = 1
For Each fl In ThisWorkbook.Worksheets
    If fl.Name <> "index" Then
        ThisWorkbook.Sheets("index").Cells(nlig, 1) = fl.[m6]
        nlig = nlig + 1
    End If
Next fl
End Sub
Signaler

Ça ne marche pas comme prévu, certainement me suis mal exprimé et que j'ai déplacé des feuilles manuellement, mais en tout cas, merci pour ta réponse rapide !!
Signaler
Messages postés
29
Date d'inscription
mercredi 5 août 2020
Statut
Membre
Dernière intervention
4 septembre 2020
Signaler
Messages postés
12213
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 septembre 2020
 688 >
Messages postés
29
Date d'inscription
mercredi 5 août 2020
Statut
Membre
Dernière intervention
4 septembre 2020
et tu n'as pas de message d'erreur?
dans le code, remplace index par Index.
Réponse 2 / 2
Messages postés
29
Date d'inscription
mercredi 5 août 2020
Statut
Membre
Dernière intervention
4 septembre 2020
problème résolu, merci à tous !
Répondre Posez votre question