aller dans onglet défini par cellule

[Goose]

Bjr,
j'aimerai créer une macro pour aller dans des onglets défini par une cellule à menu déroulant (C2) qui est sous forme de nom et prénom
voici un bout de macro que je n'arrive pas à finir !!
Ma cellule C2 contient: Nom Prénom (ex: NEEF Olivier)
est mes onglets de destination sont intitulés comme suit: (ex: Neef O.)

Sub Onglet()
Dim nom As String
Application.ScreenUpdating = False
With Sheets("Individuel").Range("C2")
If InStr(1, .Value, " ") < 1 Then Exit Sub
nom = Left(.Value, InStr(1, .Value, " ") + 1) + "."
nom = Application.WorksheetFunction.Proper(nom)

merci d'avance
@+

 

[Goose]

Re : aller dans onglet défini par cellule

merci carcharodon,
si on peux éviter une comboBox, cela m'arrangerais, car ma liste déroulante en C2 ne reprend pas tous mes onglets !!
que faire alors ?
@+

 

[Goose]

Re : aller dans onglet défini par cellule

après grattage de tête, je viens de solutionner mon problème (sans combobox) !!

Sub Onglet()
Dim nom As String
Application.ScreenUpdating = False
With Sheets("Individuel").Range("C2")
If InStr(1, .Value, " ") < 1 Then Exit Sub
nom = Left(.Value, InStr(1, .Value, " ") + 1) + "."
nom = Application.WorksheetFunction.Proper(nom)
End With
Sheets(nom).Activate
Application.ScreenUpdating = True
End Sub

merci quand même
@+