Adapter un code

Salut à toi

quelque chose comme ceci :

Private Sub Worksheet_Activate()
For i = 18 To ThisWorkbook.Worksheets.Count
If Worksheets(i).Name Like "10_*" Then
K = K + 1
Me.Cells(K, 9) = Worksheets(i).Name
Me.Cells(K, 10) = Worksheets(i).[A4]
End If
Next i
End Sub

Celà devrait convenir
Dis moi !!!!

Salut,

Une suggestion :

Private Sub Worksheet_Activate()
Dim n As Integer
Dim i As Integer, k As Integer
Dim F As Worksheet
n = ThisWorkbook.Worksheets.Count
Range("I1:J" & n).ClearContents
For i = 1 To n
Set F = Worksheets(i)
If Left(F.Name, 3) = "10_" Then
k = k + 1
Cells(k, 9) = F.Name
Cells(k, 10) = F.[A4]
End If
Next i
End Sub

Serge


"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de news:
01A79536-34C2-4E04-BCED-663DD025EC45@microsoft.com...

Bonjour,
comment puis-je adapter ce code, en nommant mes onglets voulu.
par exemple, je veux les onglets qui commencent par "10_" dans tout mon
classeur.
Merci de votre aide.
YANN
---
'pour créer la liste des onglets de mon classeur
Private Sub Worksheet_Activate()
For i = 18 To ThisWorkbook.Worksheets.Count
K = K + 1
Me.Cells(K, 9) = Worksheets(i).Name
Me.Cells(K, 10) = Worksheets(i).[A4]
Next i
End Sub
----

Impecable, ça me va rès très bien.
YANN

"FFO" a écrit :

Salut à toi

quelque chose comme ceci :

Private Sub Worksheet_Activate()
For i = 18 To ThisWorkbook.Worksheets.Count
If Worksheets(i).Name Like "10_*" Then
K = K + 1
Me.Cells(K, 9) = Worksheets(i).Name
Me.Cells(K, 10) = Worksheets(i).[A4]
End If
Next i
End Sub

Celà devrait convenir
Dis moi !!!!