Cellule et ouverture d'une feuille

Bonjour à tous,

je viens avec une nouvelle question...

Feuille "RECAP"

J'ai un tableau, qui récapitule toutes mes factures. Colonne A, les numéros de mes factures.

en A1 : EQ/001/2019

en A2 : EQ/002/2019

en A3 : EQ/003/2019

Et ensuite, j'ai une feuille / facture. Les onglets portent le N° de mes factures, à l'exception du préfixe EQ/

Donc mes onglets ont les noms :

001/2019 ; 002/2019 ; 003/2019 ; ...

J'aimerais savoir si :

1 - il est possible qu'en cliquant (ctrl-clic par exemple) sur la cellule A1 de me rediriger vers la feuille 001/2019

2 - est-il possible que ce type de lien soit automatique ? (je rempli A4 par EQ/004/2019, et par la suite la cellule point la feuille 004/2019)

Merci d'avance pour votre aide <3

Bonjour,

le nom d'un onglet ne peut contenir le caractère /

ps/

si les nom sont sous la forme EQ-001-2019

macro à copier sur la page code de RECAP

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("A:A"))
If Not isect Is Nothing And Target.Count = 1 And Target.Value <> "" Then
    nom = Right(Target, Len(Target) - 3)
    Sheets(nom).Activate
End If
End Sub

Bonjour,

Les noms d'onglets n'acceptent pas le slashs donc, mets un espace à la place : 001 2019

Ensuite, colles le code ci-dessous dans le module de la feuille contenant les numéros de factures :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim T

    If Target.Count > 1 Then Exit Sub
    If Target.Column > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub

    T = Split(Target.Value, "/")

    On Error Resume Next
    Worksheets(T(1) & " " & T(2)).Activate
    If Err.Number <> 0 Then MsgBox "Nom de l'onglet mal orthographié !"

End Sub

Effectivement, mes excuses, mes onglets ont la forme 001-2019 mais nos factures ont la forme EQ/001/2019

Malheureusement, ni l'un ni l'autre ne fonctionne.

Mais attention, je suis une brèle ! Je m'y perds dès que je sors de =SOMME(A1+A2)

Ici, pour des questions de gestion interne (je travaille avec des anciens, dont il est difficile de changer les mauvaises habitudes), je dois nommer mes factures EQ/001/2019 (dans la colonne A de ma feuille RECAP). Et nommer mes onglets 001-2019.

Question organisation : on crée notre feuille 001-2019 avant de l'encoder dans le RECAP

D'autre part, je n'ai juste aucune idée de comment rendre une cellule "clic-able" pour rediriger vers la bonne cellule.... je pourrais éventuellement ajouter une colonne B vers l'onglet ad-hoc, qui si la colonne A est remplie. La cellule B2 pointe vers l'onglet ayant comme nom 001-2019 (nom que j'aurais tiré de EQ/001/2019). Possible or not ?

Merci encore

re,

je reprend la macro de These que je trouve super!

il faut remplace la ligne

Worksheets(T(1) & " " & T(2)).Activate

par

Worksheets(T(1) & "-" & T(2)).Activate

ps/ la macro doit être copier sur la page code de l'onglet RECAP

fait un clic droit sur l'onglet et sélectionne Visualiser le code

1_ comment créer un lien cliquable (qui sera donc automatique si on remplit une cellule de la colonne A) ?

2_ quid du EQ/ qui précède ne nom de mes factures ?

En fait, j'imagine que ma cellule qui contient "EQ/001/2019" devrait plutôt être sous la forme "=LIEN_HYPERTEXTE(feuille"001-2019")".

re,

pour passer à une autre feuille du même classeur,

il faut indiquez le fichier et le nom de la feuille dans le lien, suivi d’un point d’exclamation (!)

exemple:

=LIEN_HYPERTEXTE("[Fichier.xlsx]Feuil1!A1";"Monlien")

j'ai fais le test suivant

en cellule A1: EQ/001/2019

en cellule B1:

="[base1.xlsx]"&DROITE(SUBSTITUE(A1;"/";"-");NBCAR(A1)-3)&"!A1"

le résultat en cellule B1 est: [base1.xlsx]001-2019!A1

en cellule C1:

=LIEN_HYPERTEXTE(B1;"test") 

malheureusement ça ne fonctionne pas

par contre cela fonctionne en vba

Sub Test_lien()
f = Range("A1")
nom = Right(Application.Substitute(f, "/", "-"), Len(f) - 3)
ActiveSheet.Hyperlinks.Add Anchor:=Range("D1"), Address:="", SubAddress:= _
        "'" & nom & "'!A1", TextToDisplay:="'" & nom & "'!A1"
End Sub

J'essaie ça rapidement, et je vous reviens ! Merci.

Pas contre, je pense que je loupe une étape... j'ai introduit le code dans ma feuille. Mais rien ne se "passe".

Alors j'essaie de comprendre un peu le code :

Depuis la colonne A... je décortique le texte introduit pour créer mon lien en colonne D ... ?

Si ma colonne D est occupée, kaput ?

Merci