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+