Discussion :

[kedas]

Salut a tous
J'ai un classeur avec une serie de feuilles et j'aimerai retrouver une feuille de mon classeur via un combobox du userform "recherche".
le nom de chaque feuille figure dans la feuille sommaire de mon classeur, plage B5-B85.
comment pourrais je y parvenir ?

Merci d'avance à vous

[ouskel'n'or]

Pour renseigner ton combo, dans Userform_Initialize, tu mets

Code :

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

1
2
3
For each lafeuille in activeworkbook.worksheets
    LeBombo.additem LaFeuille.name
Next

et ensuite, pour écrire dans la feuille, dans l'événement clic ou MouseUp ou dbleClick ou MouseDown... etc du combo, tu mets

Code :

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

1
2
3
Private sub LeCombo_MouseUp(byVal ...)
Worksheets(LeCombo.value).Range("A10").value = "coucou !"
End Sub

A+

[Invité]

Bonjour Kedas,

Je ne sais pas si c'est ce que vous cherchez exactement, mais un exemple, supposant que dans votre Combobox vous affichez les noms des feuilles et en sélectionnez un :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Cherch_feuil()
 
For n = 1 To Sheets.Count
nf = Sheets(n).Name
If nf = Me.Combobox1.Value Then
Sheets(nf).Activate
Exit Sub
End If
Next n
End Sub

[Invité]

Désolé Ouskel'n'or, problème de minute.

[ouskel'n'or]

Pas de pb, "JJ" (tu permets, maintenant on se connaît bien ) en outre, nous n'avons pas compris la même chose, alors deux solutions valant mieux qu'une... en attendant que kedas se déclare ou non satisfait
A+

[LeForestier]

Pour remplir ton comboBox il y a le Tuto de Zazaraignée Ici

A+

[kedas]

Merci a tous
Vous êtes sympa de vous penchez sur mon problème
Oui Jacques Jean en effet, mon combobox qui est sur un userform me permet de faire une sélection qui en fait est le nom d'une feuille de mon classeur.(les noms de toutes les feuilles sont dans la feuille 1 dans la plage B5-B85) Lorsque je clique sur le bouton "TROUVER" de mon userform, la feuille sélectionner dans le combobox doit être alors active.

Lorsque j'utilise le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Cherch_feuil()
 
For n = 1 To Sheets.Count
nf = Sheets(n).Name
If nf = Me.Combobox1.Value Then
Sheets(nf).Activate
Exit Sub
End If
Next n
End Sub

j'obtiens une erreur de compilation " utilisation incorecte du mot clé Me "
Je ne sais pas si j'ai été un peu plus clair cette fois ci.

Merci encore de votre aide