Re : Créer un sommaire de tous mes onglets d'un même classeur
Grand Merci,
C'est parfait!!!
Je vais me permettre une autre question dans la même lignée...
Avec le code fourni plus haut, j'ai créé une matrice, pour qu'elle aille me chercher et me renvoyer des données contenues dans les différents onglets,mais les données ne remontent que si je laisse les erreurs , voici le code :
Private Sub Worksheet_Activate()
[A1:A100].ClearContents
For i = 5 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 2, 1), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
Next i
End Sub
Sub finder()
For i = 5 To Sheets.Count
On Error Resume Next
Sheets(Sheets("Conso_Intern").Range("A" & i).Value).Select
With Sheets(Sheets("Conso_Intern").Range("A" & i).Value).Range("C:C")
A = .Find("Nombre de OK", LookIn:=xlValues).Address
B = .Find("Nombre de KO", LookIn:=xlValues).Address
C = .Find("Nombre de AB", LookIn:=xlValues).Address
D = .Find("Nombre de EC", LookIn:=xlValues).Address
E = .Find("Nombre de cas non passés", LookIn:=xlValues).Address
Sheets("Conso_Intern").Range("B" & i).Value = Sheets(Sheets("Conso_Intern").Range("A" & i).Value).Range(A).Offset(0, 1).Value
Sheets("Conso_Intern").Range("C" & i).Value = Sheets(Sheets("Conso_Intern").Range("A" & i).Value).Range(B).Offset(0, 1).Value
Sheets("Conso_Intern").Range("D" & i).Value = Sheets(Sheets("Conso_Intern").Range("A" & i).Value).Range(C).Offset(0, 1).Value
Sheets("Conso_Intern").Range("E" & i).Value = Sheets(Sheets("Conso_Intern").Range("A" & i).Value).Range(D).Offset(0, 1).Value
Sheets("Conso_Intern").Range("F" & i).Value = Sheets(Sheets("Conso_Intern").Range("A" & i).Value).Range(E).Offset(0, 1).Value
End With
Next i
End Sub
Merci!!!