[XL-2007] Chercher une feuille dont le nom est variable

[dubdub22]

Bonjour à tous,

Je vous explique mon problème.

J’ai 4 feuilles :

Une feuille, « enregistrement client », que je duplique, et qui prend comme nom d’onglet le contenu de la cellule « A3 », qui est en fait un N° de plaque minéralogique de voiture.
Du style 1111AA22

Une seconde feuille qui est, ce que j’appelle la « fiche client », qui est la fiche dupliquée ci-dessus avec le nom de la plaque minéralogique, comme ci-dessus « 1111AA22 »

Une troisième feuille qui me serre de modèle de « facture », que je duplique comme celle de l’enregistrement client, à la différence, que la facture prend comme nom d’onglet, le résultat concaténer de la cellule « A2 » de la feuille « facture », et qui donne ceci :
1111AA22 Fac – 1

qui , en décodé donne :

Le numéro de la voiture - Facture - N° de la facture

Le numéro de la voiture se trouve sur la cellule « B13 »

Fac - , se trouve sur la cellule « G8 » et, est masqué

Le N° de la facture se trouve en « C8 », et, est régénéré après la réinitialisation de la feuille « Facture » (modèle).

Une quatrième feuille, que j’appelle « liste facture » qui est le récapitulatif des factures.
Celle-ci est remplie en même temps que la duplication de la facture, et à chaque nouvelle facture le nom de la facture (1111AA22) s’inscrit en colonne « A », sur la première cellule vide.

Par le biais d’un double clic, il est possible d’ouvrir la facture.

Mon problème est que je veux noter le contenu de la facture 1111AA22 (qui va de B17 37), sur la fiche client, en actionnant une macro.

Mon souci, est que je ne connais pas les noms d’onglets clients par avance.

Je cherche donc un code me permettant de trouver la fiche client « 1111AA22 » (dans l’exemple), parmi les autres fiches clients.

Vous remerciant par avance de votre aide.

Cordialement

DUBDUB

[mercatog]

Bonsoir

J'ai pas bien compris ce que tu cherches. Néanmoins si tu as une matricule en A2 de la feuille enregistrement client et que tu cherche l'onglet du classeur qui porte le nom de cette matricule, ci-après une petite fonction

Code :

1
2
3
4
5
6
7
8
9
10
Private Function Existe(ByVal Str As String) As Boolean
Dim Sh As Worksheet
 
For Each Sh In ThisWorkbook.Sheets
    If Sh.Name = Str Then
        Existe = True
        Exit For
    End If
Next Sh
End Function

Exemple d'utilisation

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim Plaq As String
 
Plaq = Worksheets("enregistrement client").Range("A3")
If Existe(Plaq) Then
    With ThisWorkbook.Worksheets(Plaq)
        MsgBox .Range("B2")
        '...suite
    End With
End If
End Sub