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

2 réponses

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
Ç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 !!
Messages postés
29
Date d'inscription
mercredi 5 août 2020
Statut
Membre
Dernière intervention
4 septembre 2020

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.
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 !