Bonjour,
J'ai actuellemnt une macro qui m'ouvre une feuille différente selon sur quelle cellule d'une ligne je double-clique. Comme j'ai une centaine de feuilles différentes à ouvrir l'écriture de la macro devient fastidieuse. Pour simplifier j'ai copier, sur ma feuille où je double-clique, le nom de la feuille de destination dans une colonne cachée (IV) en face de chaque ligne correspondante.
Grâce à ça je dois pouvoir réduire ma macro à juste quelques lignes par rapport à plus de 300 lignes actuellement.
Je n'arrive malheureusement pas à trouver les termes exact des fonctions à utiliser.
Ce que je cherche à trouver:
Quand je double-clique sur une cellule
Alors j'ouvre la feuille dont le nom est en colonne (IV) de la ligne correspondante à ma cellule sélectionnée.
Ce que j'ai actuellement:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("D17:IG212,D503:IU698,D989:IG1184"), Target) Is Nothing Then Exit Sub
Cancel = True
If Target.Row = 18 Or Target.Row = 504 Or Target.Row = 990 Then
Sheets("Feuille2").Visible = True
Worksheets("Feuille2").Select
ElseIf Target.Row = 20 Or Target.Row = 506 Or Target.Row = 992 Then
Sheets("Feuille3").Visible = True
Worksheets("Feuille3").Select
-
-
-
End If
Sheets("Feuille1").Visible = xlSheetVeryHidden
Exit Sub
End Sub
Merci de votre attention
J'ai actuellemnt une macro qui m'ouvre une feuille différente selon sur quelle cellule d'une ligne je double-clique. Comme j'ai une centaine de feuilles différentes à ouvrir l'écriture de la macro devient fastidieuse. Pour simplifier j'ai copier, sur ma feuille où je double-clique, le nom de la feuille de destination dans une colonne cachée (IV) en face de chaque ligne correspondante.
Grâce à ça je dois pouvoir réduire ma macro à juste quelques lignes par rapport à plus de 300 lignes actuellement.
Je n'arrive malheureusement pas à trouver les termes exact des fonctions à utiliser.
Ce que je cherche à trouver:
Quand je double-clique sur une cellule
Alors j'ouvre la feuille dont le nom est en colonne (IV) de la ligne correspondante à ma cellule sélectionnée.
Ce que j'ai actuellement:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("D17:IG212,D503:IU698,D989:IG1184"), Target) Is Nothing Then Exit Sub
Cancel = True
If Target.Row = 18 Or Target.Row = 504 Or Target.Row = 990 Then
Sheets("Feuille2").Visible = True
Worksheets("Feuille2").Select
ElseIf Target.Row = 20 Or Target.Row = 506 Or Target.Row = 992 Then
Sheets("Feuille3").Visible = True
Worksheets("Feuille3").Select
-
-
-
End If
Sheets("Feuille1").Visible = xlSheetVeryHidden
Exit Sub
End Sub
Merci de votre attention