Autres Sélectionner une feuille selon la valeur d'une liste déroulante

[Electron24]

Bonjour le Forum

Voici mon souci, j'ai dans une feuille une liste déroulante avec comme cellule liée "F2" Selon la valeur de F2 (valeur comprise entre 1 et 25 je souhaite afficher la feuille correspondante. Feuille nommée 1 à 25
J'ai pas trouvé de réponse à mon problème aussi je fais appel à vos connaissance.
Merci de votre aide.

 

[job75]

Bonjour Electron24,

Indiquez le type de liste déroulante (Formulaire ou ActiveX) et la version Excel que vous utilisez.

A+

 

[Electron24]

Je suis sous excel 2007 et la liste déroulante est prise dans l'onglet "Développeur/Insérer" et contrôle de Formulaire

 

[Electron24]

Oups ! Bonjour job75 et merci

 

[job75]

Bon voyez le fichier joint avec les 2 types de listes déroulantes et ces macros :

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(CStr([F2])).Activate
End Sub

Sub Liste_Formulaire()
On Error Resume Next
Sheets(CStr([F4])).Activate
End Sub

A+

 

[Electron24]

SUPER un grand merci.

Quelle est la différence entre ces deux listes. Les deux macros étant identique.

 

[job75]

Quelle est la différence entre ces deux listes. Les deux macros étant identique.

Le nom des macros et la manière dont elles sont lancées ne sont pas les mêmes.

 

[Toavina Andrianahy]

Bonjour, merci pour vos réponses.

Excusez moi, je suis un débutant en VBA. Si je souhaite renommer les feuilles par des noms, quels changements je devrais faire (au niveau des codes) pour que ça marche ? 🙂 merci

 

[job75]

Bonjour Toavina Andrianahy, bienvenue sur XLD, bonjour le forum,

Voyez ce fichier (2) et le code de la feuille "Accueil" :

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(CStr([F2])).Activate
If Err = 0 Then Renommer
End Sub

Sub Liste_Formulaire()
On Error Resume Next
Sheets(CStr([F4])).Activate
If Err = 0 Then Renommer
End Sub

Sub Renommer()
Dim nom$, s As Object
1 nom = Left(InputBox("Entrez le nouveau nom :", "Renommer la feuille ?", nom), 31)
If nom = "" Then Exit Sub
On Error Resume Next
ActiveSheet.Name = nom 'renomme
If Err = 0 Then MsgBox "La feuille a été renommée": Exit Sub
Set s = Nothing
Set s = Sheets(nom)
MsgBox IIf(s Is Nothing, "Caractère interdit !", "Nom déjà attribué !"), 48
GoTo 1
End Sub

A+

 

[job75]

Fichier (2 bis) avec une boucle Do/Loop pour ceux qui n'aiment pas les GoTo :

Sub Renommer()
Dim nom$, s As Object
Do
    nom = Left(InputBox("Entrez le nouveau nom :", "Renommer la feuille ?", nom), 31)
    If nom = "" Then Exit Sub
    On Error Resume Next
    ActiveSheet.Name = nom 'renomme
    If Err = 0 Then MsgBox "La feuille a été renommée": Exit Sub
    Set s = Nothing
    Set s = Sheets(nom)
    MsgBox IIf(s Is Nothing, "Caractère interdit !", "Nom déjà attribué !"), 48
Loop
End Sub

 

[Toavina Andrianahy]

C'est génial, depuis le temps que je cherchais. Merci beaucoup Job75 😊👏. Merci le Forum ! Par contre quand j'ai essayé, ça ne me modifie que la feuille 'Accueil'. 😳 qu'est-ce que j'ai raté svp?

 

[job75]

C'est génial, depuis le temps que je cherchais. Merci beaucoup Job75 😊👏. Merci le Forum ! Par contre quand j'ai essayé, ça ne me modifie que la feuille 'Accueil'. 😳 qu'est-ce que j'ai raté svp?

Vous avez testé la macro Renommer sans utiliser les listes déroulantes, là c'est pas génial !!!

 

[Toavina Andrianahy]

En effet, vous avez raison. Merci encore. 🙏