Créer un onglet automatiquement

[PHENRILL]

Bonjour au forum,

Je souhaiterais créer un onglet automatiquement lorsque je valide l'entrée d'un nouveau client. J'ai cherché sur le forum des cas existants que j'ai trouvé mais j'ai un bug dans la formule et je ne vois pas trop d'ou ca peut venir ? Si quelqu'un à une petite idée sur la question ?

D'autre part je me dis que ca va faire pas mal d'onglet mais je ne vois pas d'autres solutions pour que chaque clients aie sa propre fiche. Si quelqu'un a une idée je suis preneur.

Merci à tous pour l'aide en tout cas !

 

[James007]

Re : Créer un onglet automatiquement

Bonsoir,

Tu veux que l'onglet soit créé depuis le Bouton "Valider" de ta Userform ......
en tout cas, c'est ce que je suppose ... et du coup je ne trouve pas ta formule qui ne marche pas ...

 

[vbacrumble]

Re : Créer un onglet automatiquement

Bonsoir tous

Si quelqu'un a une idée je suis preneur.

-Export des fiches en csv pour chaque client
ou
-Création d'un dossier (nommé avec le nom du client)
dans lequel on exporte un classeur contenant une feuille unique par mois
ou au contraire un classeur répertoriant toutes les données du client pout une année donnée.
-Utiliser Access

 

[James007]

Re : Créer un onglet automatiquement

J'ai trouvé ta macro Test() ... qui ne fonctionnait pas ...
Macro corrigée :

Sub test()
Dim i As Integer, x As Integer, Verif As Boolean

With Sheets("Cadeaux") '<-- adapter le nom de la feuille
    'boucle de la ligne 1 à la dernière ligne de la colonne A
    For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
                    'vérification si la feuille existe déjà
            For x = 1 To Sheets.Count
                If Sheets(x).Name = .Cells(i, 1) Then Verif = True
            Next
            'si elle n'existe pas on la crée
            If Verif = False Then
                Sheets.Add after:=Sheets(Sheets.Count)
                Sheets(Sheets.Count).Name = .Cells(i, 1)
            End If
            Verif = False
    Next i
End With
End Sub

A +

 

[PHENRILL]

Re : Créer un onglet automatiquement

Et bien en fait tu as raiso, je voudrais que ca soit au moment tu bouton valider. J'ai mis la formule dans un module, mais je me suis peut etre trompé quelque part. Je voudrais rester simple car je commence donc j'essaie de trouver le meilleur compromis.

 

[PHENRILL]

Re : Créer un onglet automatiquement

Merci James007, le temps que je poste ma réponse tu avais déja trouvé la réponse ! Je te remercie et merci à tous pour m'avoir aidé. Merci aussi à toi vbacrumble, je vais peut-etre voir par rapport à la réponse que tu m'as donné si je galere trop je ferais un dossier. Je ferais surement appel à vous si c le cas !!!!

 

[James007]

Re : Créer un onglet automatiquement

Ta macro peut être dans son module ... il suffit d'indiquer à ton bouton Valider de la lancer ...

Application.Run("Test")

A +

 

[vbacrumble]

Re : Créer un onglet automatiquement

Re


J'ai cru que tu demandais des idées pour éviter d'avoir une "usine à gaz" comme tu le disais

D'autre part je me dis que ca va faire pas mal d'onglet

C'était le pourquoi de mon message.

 

[PHENRILL]

Re : Créer un onglet automatiquement

Tout à fait vbacrumble, et je te remercie de ta réponse. Je vais faire avec l'idée que j'avais mais maintenant que tu m'as donnée une autre idée potentiellement intéressante je vais y réflechir. Donc merci pour l'idée, il y a toujours une personne qui en sait plus que soi !