Bonjour la communauté
Je souhaite actuellement mettre en palce un outil qui me permettrait de consolider différentes fiches dans un seul tableau. Je travaille dessus depuis ce matin et je suis bien avancé. Le seul ajout que j'ai envie de faire c'est sélectionner uniquement les feuilles commençant par "Fiche" Je me demande s'il existe pas une fonction startwith ou un truc du genre je suppose qu'il faudra l'intégrer en utilisant une boucle for each seulement je ne sais pas comment faire pouvez me donner un coup de pouce merci bien
ci dessous mon code en vous remerciant
Je souhaite actuellement mettre en palce un outil qui me permettrait de consolider différentes fiches dans un seul tableau. Je travaille dessus depuis ce matin et je suis bien avancé. Le seul ajout que j'ai envie de faire c'est sélectionner uniquement les feuilles commençant par "Fiche" Je me demande s'il existe pas une fonction startwith ou un truc du genre je suppose qu'il faudra l'intégrer en utilisant une boucle for each seulement je ne sais pas comment faire pouvez me donner un coup de pouce merci bien
ci dessous mon code en vous remerciant
Code:
Sub MaMacro()
Application.ScreenUpdating = False
Dim I As Integer
ActiveWorkbook.Worksheets(1).Select
ActiveSheet.Range("A2").CurrentRegion.ClearContents
For I = 2 To ActiveWorkbook.Worksheets.Count
ActiveSheet.Range("A" & I).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:="'" & Worksheets(I).Name & "'!A1", _
TextToDisplay:=Worksheets(I).Name
ActiveSheet.Range("B" & I) = Worksheets(I).Range("C4")
ActiveSheet.Range("C" & I) = Worksheets(I).Range("F4")
ActiveSheet.Range("D" & I) = Worksheets(I).Range("C5")
ActiveSheet.Range("E" & I) = Worksheets(I).Range("F5")
ActiveSheet.Range("F" & I) = Worksheets(I).Range("C6")
ActiveSheet.Range("G" & I) = Worksheets(I).Range("C7")
ActiveSheet.Range("H" & I) = Worksheets(I).Range("C8")
ActiveSheet.Range("I" & I) = Worksheets(I).Range("k18")
ActiveSheet.Range("J" & I) = Worksheets(I).Range("k38")
ActiveSheet.Range("K" & I) = Worksheets(I).Range("k76")
Next
Cancel = True
' copie des données dans la feuille synthèse
ActiveWorkbook.Worksheets(1).Select
Nb_Lignes = Range("A200").End(xlUp).Row
Range("A2:K" & Nb_Lignes).Copy
MsgBox Nb_Lignes
'Selection.Copy
Sheets("Synthèse").Select
'Selection.ClearContents
Range("B3").Select
ActiveSheet.Paste
End Sub