Suivi visite client --- avec vba et en boucle infini

[Jeanbulle]

Bonjour à tous...
Je bloque sur un fichier qu'une amie m'a demandé.
Elle est esthéticienne, et a besoin d'un programme de ce type :

Creation de nouveau client = OK
Consultation de fiche client = OK
Modification des informations clients = OK
Suivi des visites qu'effectue le client... = pas OK.

En fait, chaque 10 visite, et ce pour n'importe quel montant, elle désire appliquer une réduction de 10 % sur le CA que le client lui a fait.

Le soucis, c'est que je dois créer un USERFORM ou il lui sera possible de saisir visite par visite, avec le détail des soins, et le montant des soins, puis de le sauvegarder... et ce pour infini visite.

Quelqu'un à une idée de boucle ?
Je poste un fichier pour que vous puissiez voir ce que j'ai fait.
Je n'ai pas attaqué les visites car je ne vois pas comment créer cette boucle qui viendra se rattacher au bon client.

Merci de vos informations par avance.
Et joyeux noel 😉

 

[jp14]

Re : Suivi visite client --- avec vba et en boucle infini

Bonsoir

Voici quelques explications :

Do While lig > 0 ' tant que lig >0 c'est à dire
' que l'on trouve le même nom de client
' on incrémente le compteur

compteur = compteur + 1
'on ajoute la date dans le combobox1
ComboBox1.AddItem Sheets("feuil4").Range("B" & lig)
' on ajoute le montant de la facture dans total
total = total + Sheets("feuil4").Range("D" & lig)
' si la cliente a plus de 10 visites il faut repartir à zéro
' pour le compteur et la valeur de total
If compteur = 11 Then ' il faut initialiser les données
total = Sheets("feuil4").Range("D" & lig)
compteur = 1
End If
' on recherche si la cliente a d'autres visites
lig = rechercheligne("Feuil4", "A", Label2.Caption, 1, lig + 1)
If lig = 0 Then Exit Do ' on sort
Loop

PS il faut prévoir de faire un tri sur la date avant le lancer cette macro pour être sur du montant des 10 dernières visites

Bonne fêtes
A+

JP