pascal21
XLDnaute Barbatruc
bonjour le forum et bon dimanche
j'ai trouvé ce bout de code pour avoir une liste des onglets afin de selectionner les onglets grace à une zone de liste
j'ai mis cela dans workbook/change sheets
mais il y a un problème
1er la recherche des onglets est longue, bon là à la limite ça peut aller
2eme le pc est considerablement ralenti voir bloqué
je pense que cela est du au fait que ça refait le calcul à chaque changement de feuille (d'où le blocage)
il faut pourtant que ça se remette à jour car le nom des onglets peut être ammené à changé
comment faire
le nom des onglets est lié à la cellule b1 de chaque feuille (ça reprends le contenu de b1) est-il possible de déclencher la macro sur le clic en b1?
merci
Code:
[FONT=[arial]][SIZE=3]Sub ListeOnglets()
Range("A1").Select
ActiveCell.Value = "Liste des onglets"
For i = 1 To Worksheets.Count
[a1].Offset(i, 0).Value = Worksheets(i).Name
Next i
End Sub[/SIZE][/FONT]
j'ai mis cela dans workbook/change sheets
mais il y a un problème
1er la recherche des onglets est longue, bon là à la limite ça peut aller
2eme le pc est considerablement ralenti voir bloqué
je pense que cela est du au fait que ça refait le calcul à chaque changement de feuille (d'où le blocage)
il faut pourtant que ça se remette à jour car le nom des onglets peut être ammené à changé
comment faire
le nom des onglets est lié à la cellule b1 de chaque feuille (ça reprends le contenu de b1) est-il possible de déclencher la macro sur le clic en b1?
merci