Inputbox + lien hypertexte

[nounbxl76]

Bonsoir le forum,

Je vous sollicite car j'ai un problème dont je n'arrive pas à me défaire...
Je cherche à déplacer le curseur en fonction de 2 critères : mon n° client (qui sera saisi dans l'input) et le nom de la dernière feuille associée à ce client...
Je m'explique en reprenant le fichier joint:
- bouton : appel de l'input
- colonne A : mes clients identifiés avec un nombre à 6 chiffres + nom
- colonne D : la prochaine visite prévue pour le client. Ce n° de visite correspond en fait un nom de feuille.
En gros, si je saisis "111111" dans l'input, je cherche à aller sur la ligne du client "111111 client 1" de la feuille "6".
Si je saisis "333333" dans l'input, je cherche à aller sur la ligne "333333 client 3" de la feuille "2".

Je ne sais pas si c'est très clair mais je vous remercie d'ores et déjà pour votre aide.

Bonne soirée.

 

[Grand Chaman Excel]

Re : Inputbox + lien hypertexte

Bonsoir nounbxl76,

Voici un code qui devrait faire l'affaire :

Private Sub CommandButton1_Click()
    Dim nom As String
    Dim NoFeuille As String
    Dim rg As Range, rgF As Range
    
    nom = InputBox("Tapez le n° client SVP", "Saisie")

    Set rg = Sheets("Bilan").Range("A7:A" & Sheets("Bilan").Range("A65000").End(xlUp).Row) 'plage de recherche
    Set rgF = rg.Find(nom, , xlValues, xlPart)  'trouve le client
    
    If Not rgF Is Nothing Then
        NoFeuille = Sheets("Bilan").Range("D" & rgF.Row)
    Else
        MsgBox "Client non trouvé !", vbCritical
        Exit Sub
    End If
    
    Sheets(NoFeuille).Select
    Set rg = Sheets(NoFeuille).Range("A6:A" & Sheets("Bilan").Range("A65000").End(xlUp).Row)
    Set rgF = rg.Find(nom, , xlValues, xlPart)
    rgF.Select
        
End Sub

A+

 

[nounbxl76]

Re : Inputbox + lien hypertexte

Merci grand chaman excel. Les premiers essais sont effectivement concluants.
Cordialement,

Nounbxl76

 

[nounbxl76]

Re : Inputbox + lien hypertexte

Petit rectificatif... Quand je ne saisis rien dans l'input et que je clique sur "annuler", il y a un petit bug...