Macro pour feuille de récapitulation

Bonjour,
Je suis nouveau sur le forum et très novice en VBA.
Pour mon job je souhaite faire un classeur de « suivi de commande ».
Le principe du classeur et le suivant :
J’ai un onglet « matrice » et un onglet « Recap »
J ai déjà une macro qui me copie la « matrice » pour créer les feuilles de commande et me renumérote l’ongle 01,02.03 et ainsi de suite.
Dans ma feuille de « récap » je souhaite récupérer certaines cellules de mes feuilles 01, 02,03
Exemple feuille 01 cellule A5, B42, C36
Et les récupérer ces valeurs dans ma récap. en A2,B2,C2(pour la feuille01).et en A3,B3,C3 (pour la feuille02)

En gros les valeurs suivantes des onglets s’inscrivent par ligne et les suivantes en-dessous.
Le nombre de feuille de commande n’est pas définit.
J aimerai faire une macro qui récupère les valeurs et met à jour la récap.

Auriez-vous une piste ?

Bonjour Edward 1977,

Voici une solution.
J’ai supposé que tes feuilles de commandes sont ordonnées comme suit :
Feuille 1 : matrice
Feuille 2 : Recap
Feuille 3 : 01
Feuille 4 : 02
Feuille 5 : etc.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Test() Dim NbFeuilles As Long Dim sh As Worksheet NbFeuilles = Sheets.Count Set sh = Worksheets("Recap") For i = 3 To NbFeuilles With Sheets(i) sh.Range("A" & i - 1) = .Range("A5") sh.Range("B" & i - 1) = .Range("B42") sh.Range("C" & i - 1) = .Range("C36") End With Next i Set sh = Nothing End Sub

---

Cordialement.

Merci gFZT82,
Le code est tout simplement parfait.
J'aurais encore 2 questions.

1) J'aimerai récuperer le numero d'onglet dans ma "récap" pour améliorer la lisibilité entre la récap et les feuille01,02,03 etc. de commande dans la colone D par exemple.
ou alors faut-il que je prévois une cellule dans les feuilles de commande ???
Voici ma macro pour la création des feuilles:

Code:

---

1 2 3 4 5 6

Sub matrice()   Sheets("Matrice").Copy Before:=Sheets("Matrice") ActiveSheet.Name = "0" & ActiveWorkbook.Sheets.Count - 2   End Sub

---

2) Je souhaiterai lier l'activation de la macro àl'onglet"insérer une nouvelle feuille de calcul.

Re-bonjour,

Voici pour ajouter l’identifiant de la feuille en colonne D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Test() Dim NbFeuilles As Long Dim sh As Worksheet NbFeuilles = Sheets.Count Set sh = Worksheets("Recap") For i = 3 To NbFeuilles With Sheets(i) sh.Range("A" & i - 1) = .Range("A5") sh.Range("B" & i - 1) = .Range("B42") sh.Range("C" & i - 1) = .Range("C36") sh.Range("D" & i - 1) = "Onglet " & Sheets(i).Name End With Next i Set sh = Nothing End Sub

---

Pour respecter l’ordre des feuilles lors de l’ajout d’une feuille de commande, j’aurais plutôt codé

Code:

---

1 2 3 4

Sub matrice() Sheets("Matrice").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = "0" & ActiveWorkbook.Sheets.Count - 2 End Sub

---

Concernant ta question relative à l’activation de la procédure « matrice », je n’ai pas compris ce que tu souhaites faire.
S’il s’agit simplement de disposer d’un contrôle pour commander l’ajout d’une feuille de commande, tu peux utiliser un CommandButton, à placer dans ta feuille « Recap » par exemple.

Cordialement.

Super un grand merci gFZT82,:ccool:

J'ai modifier en

Code:

---

sh.Range("D" & i - 1) = Sheets(i).Name

---

pour gardé uniquement le n° de l'onglet.

Concernant l'activation de la procédure "matrice".
Ce classeur sera utilisé par plusieur personnes(pas en même temps).

Dans un nouveau classeur excel, tu as 3 feuilles et un petit onglet"inserer une nouvelle feuille de calcul Maj+F11" qui te permet de créer une nouvelle feuille vierge.

Je voudrais que l'utilisateur lamba en cliquant sur cet onglet lance la macro " matrice" et non la création d'une nouvelle feuille.

Désolé Edward 1977,

j'ignore s'il est possible d'associer une macro à cet onglet.

Cordialement.