macro sur feuille visible uniquement

[Michael78]

Bonjour,

Je suis en train de finaliser mon fichier, grâce à votre aide!! mais il me reste encore quelques Bug.
J'ai une macro qui me permet de créer une liste de mes onglets (environ 100), puis d'afficher des données de chacune de ces feuilles...., sauf que je souhaite que la macro ne fonctionne que sur les feuilles visible, pas compliqué je sais... mais à chaque fois que je l'écris... ca bloque, voici mon code :

Sub Numéro_téléphone()

Dim wk As Worksheet

For Each wk In workseets
If wk.Visible = True Then
Worksheets("03.Numéro de téléphone").Range("A5:F100").ClearContents

Dim i As Integer

Range("B5").Select

For i = 1 To Sheets.Count
ActiveCell.Value = Sheets(i).Name
ActiveCell.Offset(1, 0).Select
Next i
End If

End Sub

 

[cathodique]

Bonjour,
Je suis en train de finaliser mon fichier, grâce à votre aide!! mais il me reste encore quelques Bug.
J'ai une macro qui me permet de créer une liste de mes onglets (environ 100), puis d'afficher des données de chacune de ces feuilles...., sauf que je souhaite que la macro ne fonctionne que sur les feuilles visible, pas compliqué je sais... mais à chaque fois que je l'écris... ca bloque, voici mon code :

Bonjour,
Tu veux de l'aide mais toi, tu ne nous aides pas du tout pour t'aider.
ça bloque, mais où exactement sur quelle ligne.
un petit fichier faciliterait de t'aider.
Bonne journée.

 

[Michael78]

Je comprends, du coup j'ai "nettoyé" mon fichier des données et je le met à disposition....

Merci encore

 

[cathodique]

Je comprends, du coup j'ai "nettoyé" mon fichier des données et je le met à disposition....

Merci encore

Je te remercie pour tous ceux et celles qui trouveront une solution avec ton fichier.
Bonne soirée.