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

Résolu
Bernie15 -  
Bernie15 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   - 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
A voir également:

2 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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
Bernie15
 
Ç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   Statut Membre Dernière intervention   1
 
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Bernie15 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention   1
 
problème résolu, merci à tous !
0