Creation de fiche clients

@Dan

Comme précisé dans mon post précédent dites moi si je dois avancer sur votre demande

en effet j'aimerais, si cela vous convient que vous avanciez sur ma demande

et sur quoi

pour en finir avec le textbox de la page de garde,

en mode "creation de client"

- une liste déroulante pour la cellule contact (prospect, connaissance etc)

- Est il possible de mettre automatiquement des majuscules?

lorsque je valide la création

- incrémentation du n° du client + toutes les infos saisie (dans l'onglet Clients)

- intégration de la date de création du client (dans l'onglet Clients)

- création d'un nouvel onglet (une copie de Modele) renommé sous le n° du client

en mode recherche

- cliquez sur le nom pour ouvrir sa fiche client

Bonjour,

Vu l'évolution demandée, le plus simple est que je vous poste le fichier et surtout que vous repartiez de celui-là

1. Mode création client :

- une liste déroulante pour la cellule contact (prospect, connaissance etc)
- Est il possible de mettre automatiquement des majuscules?

Une combobox est ajoutée dans l'USF. La liste déroulante provient de la colonne B de la feuille Liste choix
Lorsque vous choisissez dans la combo, les données sont mises en majuscules

2. valider création : le code fera ceci
- ajout de données dans la feuille client
- création de la fiche client
- ajout des données dans la fiche client
- vide l'usf de son contenu

3. Mode recherche

cliquez sur le nom pour ouvrir sa fiche client

Je n'ai pas compris... c'est déjà fait et expliqué ici --> https://forum.excel-pratique.com/s/goto/1075474

Bonjour,

Lorsque vous choisissez dans la combo, les données sont mises en majuscules

alors, en fait, pour les majuscules j'en aurais besoin pour la 1ere lettre du nom, prénom, et ville

2. valider création : le code fera ceci

- ajout de données dans la feuille client

ça bug a ce niveau...

        numcli = WorksheetFunction.Max(Mid(Range("A" & Range("A" & Rows.Count).End(xlUp).Row), 2, 5)) + 1

Bonjour

ça bug a ce niveau...

numcli = WorksheetFunction.Max(Mid(Range("A" & Range("A" & Rows.Count).End(xlUp).Row), 2, 5)) + 1

Oups, oui normal car vous appelez l'usf depuis la feuille Garde. Dans cette ligne ajoutez un point devant chaque RANGE.

alors, en fait, pour les majuscules j'en aurais besoin pour la 1ere lettre du nom, prénom, et ville

Dans l'usf dans la macro Private Sub CommandButton1_Click(), modifiez les lignes mentionnées nom, prenom et ville, ajoutez l'instruction --> Application.Proper

exemple pour le nom votre ligne sera comme ceci -->

.Range("C" & L).Value = Application.Proper(TextBox1.Value) 'nom

Dites moi si ok

Cordialement

Bonjour Dan