Macro en VBA sous Excel

Bonjour,

Je suis en train de travailler sur la création d'une base de donnée sur Excel à partir de questionnaires remplis sous Excel. Le principe est relativement simple puisque je dois rassembler toutes les réponses sous forme de tableau. Je cherche donc, dans un soucis d'économie de temps à créer une macro qui répetteras mon "copie/colle" dans mon tableau. Je suis toutefois confronté à un problème puisque les données à extraires sont systématiquement dans les mêmes cases mais dans des onglets différents.

Voici un extrait de la macro que j'ai obtenu après enregistrement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sheets("ALLEMAGNE").Select Range("S5").Select Selection.Copy Sheets("Feuil1").Select Range("A2").Select ActiveSheet.Paste Sheets("ALLEMAGNE").Select Range("F5").Select Application.CutCopyMode = True Selection.Copy Sheets("Feuil1").Select Range("B2").Select ActiveSheet.Paste Sheets("ALLEMAGNE").Select Range("M5").Select Application.CutCopyMode = True Selection.Copy Sheets("Feuil1").Select Range("C2").Select ActiveSheet.Paste Sheets("ALLEMAGNE").Select Range("D8").Select Application.CutCopyMode = True Selection.Copy Sheets("Feuil1").Select Range("D2").Select ActiveSheet.Paste

---

Pouvez vous donc me dire comment adapter ce modèle à tous mes onglets en même temps. On peut prendre "AUTRICHE" et "BENELUX" comme intitulé d'onglet suivant.

Merci d'avance.

Bonjour et bienvenu sur le forum,


pour boucler sur toutes les feuilles de ton classeur :

Code:

---

1 2 3 4 5 6 7 8 9

Dim Fl As Worksheet, i as long   For Each Fl In Worksheets If Fl.NAME <> "Feuil1" ' pour ne pas passer sur la feuille 1 ' Ici ton code par exemple : i = i + 1 Fl.Range("S5").Copy destination:=WorkSheets("Feuil1").cells(i,1) end if Next Fl

---

Edit : ça y est corrigé, voilà ce que c'est que de vouloir modifier le code directement sur le forum :langue:

Désolé mais peut tu décrires plus ton projet?

Tu as combien de feuille? quelle est celle de référence (tu copie les données de ALLEMAGNE, BRUXELLE etc. vers une seule et unique feuille?)
Et quel forme aura par la suite ton tableau? (colonne ligne etc.)

Pke le générateur de macro c'est bien... Mais pas pratique à comprendre vu que c'est pas structuré

Tout d'abord merci aalex_38. Toutefois ton petit bout de programme ne fonctionne pas puisque lorsque je l'introduit dans mon algorithme, le débogage s'arrête sur la ligne : If F1.Name <> "Feuil1" Then
Qu'est ce qui ne va pas ?

Ensuite, pour toi Many31, mon fichier Excel de base est composé de 26 onglets avec des questionnaires remplis (les informations sont tout simplement entrées dans une cellule à chaque fois). Je dois rassembler l'ensemble des données dans un seul tableau (qui se trouve sur "Feuil1") avec un onglet par ligne.

Merci d'avance et bonne journée !

Citation:

---

le débogage s'arrête sur la ligne : If F1.Name <> "Feuil1" Then
Qu'est ce qui ne va pas ?

---

Oups, désolé, je boucle sur FL et je test F1, une erreur de syntaxe :bug:
Je corrige dans le post précédent.