VBA Liste avec les onglets présents

[nicolase78]

Bonsoir tout le monde,

Je suis débutant sur VBA et prêt à apprendre mais là je galère pas mal. J'ai regardé sur internet et je suis un bloqué sur ce problème.

Je voudrais que dans une feuille nommé Appli, il y est une liste avec tous les onglets présents dans le classeur à un instant t (je veux que dans cette liste l'utilisateur est le choix entre tous onglets exceptés l'onglet "Appli" et l'onglet "Base" qui seront toujours dans le classeur).

Je vous joints un fichier Excel même si je pense pas que ça soit vraiment utile!
Je vous remercie par avance.

Merci par avance et bonne soirée.

 

[Softmama]

Re : VBA Liste avec les onglets présents

Bonjour,

comme ceci, peut-être :

Private Sub Worksheet_Activate()
Dim Liste As String
For Each sh In ThisWorkbook.Sheets
    If sh.Name <> "Base" And sh.Name <> "Appli" Then Liste = Liste & sh.Name & ","
Next
Liste = Left$(Liste, Len(Liste) - 1)
With Sheets("Appli").Range("A1").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Liste
End With
End Sub

vois le fichier joint

 

[nicolase78]

Re : VBA Liste avec les onglets présents

Merci tu m'a fait gagner un temps fou c'est exactement ce que voulais !

Bonne soirée à toi.