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
----
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
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 à 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
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
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" a écrit dans le message de news:
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 ----
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
----
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" a écrit dans le message de news:
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
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 !!!!
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
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