Ajout saisie feuille à partir d'un InputBox

Bonsoir à tous, besoin d'aide s'il vous plait!

Vous trouverez en pj mon fichier excel (à déziper), j'ai créé un bouton "Ajouter un client" dans la feuille Accueil avec un InputBox et quand on renseigne un client, une feuille se créer avec le nom du client, cette fonction fonctionne.

Je voudrai également que lorsqu'on renseigne un client, il vienne être renseigner dans la feuille "Liste_Entreprises" et à la suite de la dernière entreprise, cette action me permettra d'alimenter mes Combobox afin d'agrandir la liste de clients.

Vous trouverez mon code du Inputbox dans Modules puis AjoutClient

Merci de votre aide!

bonjour,

A mon avis, il ne faut pas créer une feuille par client : Il suffit d'en créer un seule dans laquelle on ajoutera tous les mouvements de chacun dans les mêmes colonnes quel que soit le mois. Ensuite un simple filtre par client et par période te donnera le détails des mouvements par mois (ou par période quelconque...)

Imagines-tu qu'une banque fasse une feuille par client ? Ils rentrent tout ce qui entre et qui sort sur la même base ensuite ils filtrent tous les mois pour t'envoyer ton relevé et basta...

Continuer sur le schéma que tu t'es fixé serait un non sens...

Il en va de même des mouvement Entrants et sortant : La même feuille avec un filtre supplémentaire est capable de te faire la liste de tous les mouvements entrants ou sortants, le tout filtré (ou pas) par date, par client...

Et ce sera mille fois plus simple à gérer que plusieurs dizaine (centaines ?) de feuilles à gérer...

A+

Bonjour,

C'est un peu le même problème si on fait tout sur une feuille, la feuille serait immense alors que sur plusieurs feuilles c'est assez simple de visualiser les mouvements. Actuellement il y a 18 clients, alors 18 clients sur une feuille pour les 12 mois de l'année, je ne vois pas trop comment faire, la feuille serait immense comme je l'ai mentionné.

De toute manière cela ne répond pas au problème! Ce que je demande ici c'est seulement l'ajout du client dans une feuille à partir d'un InputBox, rien de plus.

la macro du module AjoutClient corrigée :

Sub AjouterClient()
Dim lrow As Long
Dim lCol As Long
    nomclient = InputBox("Veuillez renseigner le nom du nouveau client")
    's'il y a bien une saisie validée
    If Len(nomclient) > 0 Then
        Worksheets("modele").Copy Before:=Worksheets("modele")
        ActiveSheet.Name = nomclient
        With Worksheets(nomclient)
            .Range("A7").Value = nomclient
            .Range("F7").Value = nomclient
            .Range("K7").Value = nomclient
            .Range("P7").Value = nomclient
            .Range("U7").Value = nomclient
            .Range("Z7").Value = nomclient
            .Range("AE7").Value = nomclient
            .Range("AJ7").Value = nomclient
            .Range("AO7").Value = nomclient
            .Range("AT7").Value = nomclient
            .Range("AY7").Value = nomclient
            .Range("BD7").Value = nomclient
            .Range("BI43").Value = nomclient
            .Range("BD43").Value = nomclient
            .Range("AY43").Value = nomclient
            .Range("AT43").Value = nomclient
            .Range("AO43").Value = nomclient
            .Range("AJ43").Value = nomclient
            .Range("AE43").Value = nomclient
            .Range("Z43").Value = nomclient
            .Range("U43").Value = nomclient
            .Range("P43").Value = nomclient
            .Range("K43").Value = nomclient
            .Range("F43").Value = nomclient
            .Range("A43").Value = nomclient
        End With
         With Worksheets("Liste_Entreprises")
             lrow = .Cells(.Rows.Count, 1).End(xlUp).Row
             .Cells(lrow + 1, 1) = nomclient
         End With
    Else    'pas de saisie ou saisie annulée
        MsgBox "Annulation de l'ajout client"
    End If
End Sub

Vous pourrez supprimer la macro du même nom dans la feuille "Liste_Entreprises"

A+

Merci beaucoup !