Menu deroulant et lien hypertexte

desole je pensais qu'une fois le programme etablit pour une, l'étendre au autre aurait été un jeu d'enfant mais ca n'a pas été le cas.....

il y en a 4 en tout sur mon sommaire

maintenance et bien lié à l'onglet maintenance 2...

merci

Bonjour,

Dans ton fichier, remplace la macro que nous t'avons donnée précédement par celle ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
'Macro par Dan & Nad pour gouffas pour excel pratique
Dim x As String
If Not Application.Intersect(Target, Range("C9")) Is Nothing Then
x = "tableau maintenance " & Target
Sheets("maintenance").Select
End If
If Not Application.Intersect(Target, Range("E9")) Is Nothing Then
x = "fiche technique " & Target
Sheets("fiche technique").Select
End If
If Not Application.Intersect(Target, Range("G9")) Is Nothing Then
x = "Risques " & Target
Sheets("risques").Select
End If
If Not Application.Intersect(Target, Range("I9")) Is Nothing Then
x = "maintenance2 " & Target
Sheets("maintenance2").Select
End If
ActiveSheet.Cells.Find(What:=x).Activate
End Sub

Veille toujours à l'orthographe et aux espaces dans les noms.

A te lire

Dan