Discussion :

[surftoon]

Bonjour a tous!

Comment a partir d'une liste deroulante, je peux aller sur la feuille correspondantes (qui se situe dans le meme fichier).

Est il possible de changer le nom de la feuille en fonction d'un texte inscrit dans une cellule?si oui comment?

merci de votre aide!

[Dolphy35]

Salut,

voici le code d'un UserForm qui affiche le nom des onglets du fichier et qui active la feuille sélectionnée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ComboBox1_Click()
    Sheets(ComboBox1.Value).Activate
    UserForm1.Hide
End Sub
 
Private Sub UserForm_Activate()
 
Dim shtFeuille As Worksheet
 
    ComboBox1.Clear
    For Each shtFeuille In ActiveWorkbook.Sheets
            ComboBox1.AddItem shtFeuille.Name
    Next
 
End Sub

Formulaire => UserForm1
Liste => ComboBox1


en ce qui concerne le changement de nom de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("MonOnglet").Name = "NouveauNom"

Dolphy

[surftoon]

Merci pour ta reponse mais je ne comprends pas tout!
Je doit prendre un liste deroulante dans la barre d'outil : boite outil de controle et non dans formulaire
J'ai copie ce que tu m'as dis ca marche pas

sinon pour le nom de feuille je dois copier ca ou??je suis total perdu la

[surftoon]

je donne un peu plus d'info:

en fait j'ai créer un menu sur la premiere feuille excel qui me creer mes fiches de suivi a partir d'un modele , ca pas de souci

et apres je voudrai pouvoir consulter les feuilles créent en choissisant le nom du chantier dans une liste deroulante

Comme une feuille correspond à un chantier et que je rentre le nom du chantier dans une case de ma feuille, je voudrai qu'automatiquement le nom de l'onglet de la feuille change pour prendre la valeur le cette case!

[Dolphy35]

re,

Désolé mais pour le changement de nom de l'onglet il faut plus d'info de ce que tu fais lors de la création.

Pour la liste je suis dans un bon jour, je te mets un exemple.

Dolphy

[surftoon]

Merci beaucoup pour ton aide si précieuse!!
j'ai copié ton fichier et ca marche mais j'ai remarque quelque différence avec le premier truc que tu m'as donné !donc je pense que c'etait pour ca que ca marchai pas!
Merci encore!!merci!!

Sinon pour le deuxieme souci:
En fait je tape dans la case D8 le nom du chantier et je voudrai que le nom de l'onglet en bas de la feuille prennes le nom de cette case!

[surftoon]

Bonjour à tous!
Je voudrai savoir s'il est possible de changer le nom de la feuille en bas dans l'onglet en entrant une valeur dans une case????
ex dans la case "d8" je note un nom comme "paris" et l'onglet de la feuille 1 ou je marque ceci devient paris au lieu de feuil1
merci d'avance pour votre aide!

[illight]

A part par macro, je vois pas trop comment faire

[surftoon]

Merci de ta reponse mais j'ai deja cherche dans le FAQ je n'ai pas trouve mon bonheur!
et avec un macro comment on fais??stp
merci

[lvr]

Merci pour ta question. Grâce à elle je deviens "Membre" et vais enfin pouvoir me choisir un bel avatar !!

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Row = 8 And Target.Column = 4) Then
        Target.Worksheet.Name = Target.Value
        End If
End Sub

Ce code est à placer dans le code VBA de la feuille en question. L'event Change est déclenché dès que la valeur d'une case est modifiée, il suffit de tester que t'es en D8 et si c'est le cas récupérer la valeur et renommer ta feuille. Testé à l'instant et approuvé.

[surftoon]

est ce que je peux abuser en te demandant de mettre un message d'erreur si la case est vide car sinon il me mets un message comme quoi la commande a un pb si j'efface les données dans la case!

message style : vous devez rentrer un nom de chantier!
ok
et le curseur revienne sur la case d8
merci beaucouq
c genial deja ce que a fais!

[Dolphy35]

salut,

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Row = 8 And Target.Column = 4) Then
        If Not IsEmpty(Target.Value) Then
            Target.Worksheet.Name = Target.Value
        Else
            MsgBox "il faut rechercher de tps en tps !!!", vbCritical, "Perso"
        End If
    End If
End Sub

dolphy

[surftoon]

desolé mais je ne connais rien en vba
Je connais bien excel et je vais des macros en les enregistrant mais a part ca
le vba c'est du chinois pour moi et a par ce forum je ne sais pas comment faire!
Merci du renseignement!

[Dolphy35]

re,

desolé mais je ne connais rien en vba
Je connais bien excel et je vais des macros en les enregistrant mais a part ca
le vba c'est du chinois pour moi et a par ce forum je ne sais pas comment faire!
Merci du renseignement!

On a tous débuté un jour , je te conseil de le stipuler dans tes posts et de nous préciser et où tu es bloqué cela nous permetterait de mieux t'expliquer.

Où tu en es dans les codes que l'on t'a donné ?

Dolphy