Mettre données plusieurs feuilles sur une feuille déterminée

Résolu/Fermé
Bernie15 - 5 août 2020 à 13:09
Bernie15 Messages postés 31 Date d'inscription mercredi 5 août 2020 Statut Membre Dernière intervention 26 février 2021 - 12 août 2020 à 14:21
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

yg_be Messages postés 23335 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 Ambassadeur 1 551
5 août 2020 à 15:04
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
0
Ç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 !!
0
Bernie15 Messages postés 31 Date d'inscription mercredi 5 août 2020 Statut Membre Dernière intervention 26 février 2021 1
5 août 2020 à 20:57
0
yg_be Messages postés 23335 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 1 551 > Bernie15 Messages postés 31 Date d'inscription mercredi 5 août 2020 Statut Membre Dernière intervention 26 février 2021
5 août 2020 à 22:00
et tu n'as pas de message d'erreur?
dans le code, remplace index par Index.
0
Bernie15 Messages postés 31 Date d'inscription mercredi 5 août 2020 Statut Membre Dernière intervention 26 février 2021 1
12 août 2020 à 14:21
problème résolu, merci à tous !
0