[VBA]lien entre feuille

Version imprimable

11/04/2007, 20h00
surftoon

[VBA]lien entre feuille

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!

Salut,

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

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:

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

Dolphy ;)

11/04/2007, 20h37
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
11/04/2007, 20h47
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!
11/04/2007, 21h31
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 ;)
11/04/2007, 21h47
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!
12/04/2007, 13h55
surftoon

Nom d'une feuille ou d'un onglet

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!
12/04/2007, 14h26
illight

A part par macro, je vois pas trop comment faire :mrgreen:
12/04/2007, 14h31
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
12/04/2007, 17h13
lvr
Merci pour ta question. Grâce à elle je deviens "Membre" et vais enfin pouvoir me choisir un bel avatar !! :yaisse2:

Voici le code:
Code:

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é.
12/04/2007, 19h14
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!

salut,

Code:

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 ;)

12/04/2007, 20h18
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!
12/04/2007, 20h31
Dolphy35

re,

Citation:

Envoyé par 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!

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;)