2 formules

Bonjours j'ai besoin de 2 formules

Feuil2 = chiffres 2-11-20-29

Feuil3 = chiffres 5-14-23-32

Feuil4 = chiffres 8-17-26-35

Feuil5 = chiffres 27-29-36

lorsque je clique sur un chiffres qu'il y a en A1 a AN

exemple je clique sur E1 alors il m affichera la Feuil3

idem pour les 4 Feuil des que je cliquerez sur un chiffres il m affichera la feuille correspondant aux chiffres

ah et dans chaque feuil il y a en A1 retour lorsque je cliquerez dessus il me ramènera a la feuil1

Salut le forum

C'est pas en formules mais en VBA, tu adaptes pour la suite

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:N1")) Is Nothing Then
  Select Case Target.Value
    Case 2, 11, 20, 29
      [Feuil2].Activate
    Case 5, 14, 23, 3
      [Feuil3].Activate
    '...Tu continues le reste
    End Select
End If

Mytå

milles merci pourrait tu me dire ou la mettre merci

Re le forum

Alt + F11 pour accéder au VBA, double clique à gauche sur la Feuil1

et insère le code dans la fenêtre de droite.

Mytå

P.S. Je t'ai donner les même instructions sur ta ficelle précédente.

Bonsoir à tous, salut Mytå,

J'avais commencé à regarder, je poste quand même

Avec un double clic en ligne 1, dans le VBE de la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i%
    If Not Application.Intersect(Target, Range("a1:n1")) Is Nothing Then
        Select Case Target
            Case Is = 2, 11, 20, 29: i = 2
            Case Is = 5, 14, 23, 32: i = 3
            Case Is = 8, 17, 26, 35: i = 4
            Case Is = 27, 29, 36: i = 5
            Case Else: Exit Sub
        End Select
        With Sheets(i)
            .Activate
            .Range("b1").Activate
        End With
    End If
End Sub

Pour revenir en Feuil1, dans le thisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target = Range("a1") And ActiveSheet.Name <> "Feuil1" Then
        Sheets("Feuil1").Activate
    End If
End Sub

Amicalement

Claude

vraiment merci pour votre aide une dernière question

ou je met cette formule

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Target = Range("a1") And ActiveSheet.Name <> "Feuil1" Then

Sheets("Feuil1").Activate

End If

End Sub

c'est bon jais réussit encore merci pour votre aide et bonne soirée

re,

Comme déjà dit précédemment, dans le ThisWorkbook

Claude

bonjour

encore besoin de vos lumières

j'aimerais rajouter le chiffres 18 ainsi qu’une nouvelle feuille

donc 2 formules a modifier

encore merci pour votre aide

expliquez moi ce que je doit mettre dans les 2 formules comme ça j'y arriverait tout seul

oups voila le fichier

Bonjour,

La macro pour le "Retour" en "Feuil1" n'est pas à modifier,

l'autre comme ceci:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i%
    If Not Application.Intersect(Target, Range("a1:n2")) Is Nothing Then
        Select Case Target
            Case Is = 2, 11, 20, 29: i = 2
            Case Is = 5, 14, 23, 32: i = 3
            Case Is = 8, 17, 26, 35: i = 4
            Case Is = 27, 29, 36: i = 5
            Case Is = 18: i = 6
            Case Else: Exit Sub
        End Select
        With Sheets(i)
            .Activate
            .Range("b1").Activate
        End With
    End If
End Sub

à noter que tu aurais pu ajouter le 18 sur la ligne 1

N'oublie pas de solder ce poste !

https://forum.excel-pratique.com/excel/rajouter-1-chiffre-t26773.html

Claude

encore merci pour votre aide et bonne fin de journéé