Onglets et MAJ automatique

Re : Onglets et MAJ automatique

bonsoir harvey,

Voila comment changer le nom des onglets. Par contre, je ne comprend ton histoire de combobox.



XanorK

edit merci de ne pas multiplier les posts, c'est agaçant :
https://www.excel-downloads.com/threads/renommer-des-onglets-automatiquement.71209/

Re : Onglets et MAJ automatique

XanorK à dit:

bonsoir harvey,

Voila comment changer le nom des onglets. Par contre, je ne comprend ton histoire de combobox.



XanorK

edit merci de ne pas multiplier les posts, c'est agaçant :
https://www.excel-downloads.com/threads/renommer-des-onglets-automatiquement.71209/

Cliquez pour agrandir...

Bonsoir XanorK,

Merci pour ta réponse....
Désolé j'avais oublié de joindre mon fichier.🙂

Re : Onglets et MAJ automatique

Bonjour tout le monde,

Je retente ma chance au cas où mon problème intéresserait quelqu'un...

Harvey.

Re : Onglets et MAJ automatique

Salut Harvey

J'y suis presque mais je n'aime pas le fait de devoir copier le code dans le Private Sub Worksheet_Change(ByVal Target As Range) d'une nouvelle feuille.


XanorK

Re : Onglets et MAJ automatique

Formidable travail Xanork, ça fonctionne à merveille... Juste une petite chose à te demander :
Est-il possible d'afficher les noms des pages dans une combobox plutôt que dans une liste ? Si je te pose cette question, c'est parce que je souhaiterais mettre une image sous le menu déroulant.

Encore merci pour ton travail.

Harvey.

Re : Onglets et MAJ automatique

Salut XanorK,

J'ai considéré mon problème autrement... sans avoir à changer le nom des onglets.
C'est simplement une approche : les liens du menu déroulant fonctionnent et le menu se redimensionne en fonction du nombre d'items saisis dans la plage de cellules.
La seule chose mais c'est un détail, si je n'entre aucune valeur dans la cellule A1, la valeur considérée est alors A2 (partant du principe que cette cellule est remplie) et le lien se fait vers "Feuil2", j'aimerais si possible que le lien soit alors "Feuil1" (que les liens soient décalés en quelque sorte).
Je suis reparti de ton fichier :

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
Dim C As Range
For Each C In Worksheets("Data").Range("A1:A5")
If C.Value <> "" Then
ComboBox1.AddItem " " & C.Value
End If
Next C
End Sub
_____________________________________________

Private Sub ComboBox1_Change()
If Combobox1.Value = " " & ([Data!A1]) Then Sheets("Feuil1").Select
If ComboBox1.Value = " " & ([Data!A2]) Then Sheets("Feuil2").Select
If ComboBox1.Value = " " & ([Data!A3]) Then Sheets("Feuil3").Select
If Combobox1.Value = " " & ([Data!A4]) Then Sheets("Feuil4").Select
If ComboBox1.Value = " " & ([Data!A5]) Then Sheets("Feuil5").Select
End Sub

Re : Onglets et MAJ automatique

Salut Harvey,

Je suis décidément nul pour les combobox.
Je ne comprends pas ta question. J'espere qu'un autre membre pourra te dépanner.


XanorK

Re : Onglets et MAJ automatique

XanorK à dit:

Salut Harvey,

Je suis décidément nul pour les combobox.
Je ne comprends pas ta question. J'espere qu'un autre membre pourra te dépanner.


XanorK

Cliquez pour agrandir...

Je joins le fichier dans quelques minutes, juste le temps pour moi de "l'épurer" afin que ce soit plus clair. Ca t'aidera peut-être à comprendre... Enfin j'espère.

Re : Onglets et MAJ automatique

Voilà! J'espère que tu n'es pas totalement découragé...😉