Adapter un code

Le
Sunburn
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
-
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #18385561
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 !!!!
garnote
Le #18386511
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"
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
----


Sunburn
Le #18395221
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 !!!!



Publicité
Poster une réponse
Anonyme