Bonjour à tous,
Je vous remercie par avance pour votre aide. Je prends juste quelque minute pour vous expliquer que mon projet.
J’ai créé une macro avec un user Form qui me permet d’insérer des fiches clients en appuyant sur un bouton.
Mon formulaire est composé de Textbox ou je renseigner les informations client qui lors du lancement du formulaire les informations clients s’insère dans une feuille Excel afin de constituer une fiche clients dans un classeur Excel.
Ainsi pour chaque feuille Excel une fiche client apparait et est renommer avec le N° d’agence & le nom du client.
Mon problème est le suivant à chaque fois qu’un Homonyme client est ajoute au classeur « Erreur d'exécution '1004 "Désolé... Ce nom est déjà attribué. Veuillez utiliser un autre nom". »
J’aimerais une ligne de code qui permettrais de déterminer le nom de l'onglet en fonction des autres. Par exemple, avant d'ajouter le nom au nouvel onglet, la fonction fait une boucle sur les onglets existants et compte ceux qui ont le même numéro et nom (peut-être avec la fonction Instr pour garder les choses simples et rapides).
Ainsi si le nom du nouveau client qui existe déjà alors insérer le même N° d’agence & Nom et incrémente 1,2 ou 3 entre ().
Voilà ou j’en suis pour le moment .
With ws_onglet
.Cells(2, 2) = val_nom
.Cells(1, 1) = Val_agence
End With
With ws_onglet
.Name = Val_agence & " " & val_nom
End With
Exemple (413 Moussa)
Erreur d'exécution '1004 "Désolé... Ce nom est déjà attribué. Veuillez utiliser un autre nom". »
413 moussa (2) et ainsi de suite 413 moussa (2) Existe déjà alors renommer nouvel onglet 413 moussa (3) etc.