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

Résolu

Bernie15 -
Bernie15 Messages postés 31 Statut Membre - 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

Afficher la suite

2 réponses

Réponse 1 / 2
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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
1. 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
2. Bernie15 Messages postés 31 Statut Membre 1
  
  0
  1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > Bernie15 Messages postés 31 Statut Membre
    
    et tu n'as pas de message d'erreur?
    dans le code, remplace index par Index.
    
    0
Réponse 2 / 2
Bernie15 Messages postés 31 Statut Membre 1

problème résolu, merci à tous !
0

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

2 réponses

Discussions similaires

Newsletters