besoin d'aide visual basic

bonjour,

depuis quelque jours je fais un travail sous excel.

je m'explique :

J'ai 200 feuilles ouvertes sur lequel la presentation est la même, et j'ai une autre feuille qui se nomme "RECAP" sur celle ci je dois repertorier toutes les cellule B13, F6, B6, A18, I32 des 200 feuilles dans la feuille "RECAP" dans les cellule prévu a cette effet.

je n'y connais absolument rien en visual basic mais on ma dit de crée un bouton et de mettre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton1_Click() Dim i As Integer, j As Integer, ws As Worksheet Set wsRecap = Worksheets("recap") 'mettre le nom exact de la feuille récapitulative j = 0   For i = 1 To Sheets.Count If LCase(Worksheets(i).Name) <> LCase(wsRecap.Name) Then j = j + 1 'copier les noms des feuilles en colonne A wsRecap.Range("A1").Offset(j, 0).Value = Worksheets(i).Name 'copier les valeurs de C13 colonne B wsRecap.Range("B1").Offset(j, 0).Value = Worksheets(i).Range("A3").Value 'copier les valeurs de B4 colonne C wsRecap.Range("C1").Offset(j, 0).Value = Worksheets(i).Range("B4").Value ' etc End If Next i wsRecap = Nothing End Sub

---

Or je sais pas ou je dois mettre les cellules B13, F6, B6, A18, I32, ni l'endroit ou celle-ci doit etre copier dans ma feuille "RECAP" si quelqu'un pourrait m'aider ^^'

Merci d'avance :)

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

Private Sub CommandButton1_Click() Dim i As Integer, j As Integer, ws As Worksheet Set wsRecap = Worksheets("recap") 'mettre le nom exact de la feuille récapitulative j = 0   For i = 1 To Sheets.Count If LCase(Worksheets(i).Name) <> LCase(wsRecap.Name) Then j = j + 1 'copier les noms des feuilles en colonne A wsRecap.Range("A1").Offset(j, 0).Value = Worksheets(i).Name 'copier les valeurs de B13 colonne B wsRecap.Range("B1").Offset(j, 0).Value = Worksheets(i).Range("B13").Value 'copier les valeurs de F6 colonne C wsRecap.Range("C1").Offset(j, 0).Value = Worksheets(i).Range("F6").Value 'copier les valeurs de B6 colonne D wsRecap.Range("D1").Offset(j, 0).Value = Worksheets(i).Range("B6").Value 'copier les valeurs de A18 colonne E wsRecap.Range("E1").Offset(j, 0).Value = Worksheets(i).Range("A18").Value 'copier les valeurs de I32 colonne F wsRecap.Range("F1").Offset(j, 0).Value = Worksheets(i).Range("I32").Value End If Next i wsRecap = Nothing End Sub

---

Code:

---

1 2	Set wsRecap = Worksheets("recap") 'mettre le nom exact de la feuille récapitulative

---

Remplace "recap" par le nom exact de ta feuille, si c'est en majuscule met en masjuscule "RECAP"

wsrecap correspond à la feuille RECAP qui est selectionné.
Range est une methode pour selectionner tes cellules

donc j'ai jsute a copier et a coller et ensuite je fais quoi pour que celle fonctionne ?

Peux tu joindres aux messages ton fichier excel avec juste la feuille RECAP (n'envoye pas les 200 feuilles)?

Normalement sur la feuille RECAP tu as un bouton qui appelle cette macro.

Si ce n'est pas le cas le dit le et je t'expliquerai la démarche à faire.

je te l'envoie comment ?

Quand tu repond à un message en bas tu as joindre un fichier dans option supplemntaires

regarde en bas en repondant au messages

voici le fichier

problème résolu un grand merci à scully2501 pour son aide précieuse.