Discussion :

[dgy23]

Bonjour a tous ,
je souhaiterais créer un petit programme de fidélité pour mes clients.
je suis très novice avec Excel et encore plus sous vba.

je vous expose mon problème :

j'ai une feuille de calcul avec un tableau de mes clients (noms,adresse,tel...) qui s' appel client,
une feuille de calcul avec ma présentation de base qui s'appelle fidelite,
une feuille de calcul avec ma liste client sous forme de tableau qui s'appelle euros clients.

Sur fidelite j'ai crée un bouton qui ouvre une fenêtre composée d'une textbox1, et d'un bouton "ok" pour valider. Ce bouton va me servir pour faire une saisie des "euros du jour"(les euros a rajouter sur le compte d'un client)
Dans textbox1 je souhaite donc rentrer les euros du jour. Je souhaiterais que, lorsque je valide avec mon bouton ok, ceux ci soit reportés sur la feuille euros client, dans la ligne correspondant au client ,ainsi je garde un historique de chaque transaction.
j'ai essaye plusieurs astuce trouve sur le net mais j'ai, a chaque fois des erreurs de compilation .
si quelqu'un pouvait me donner un p'tit coup de pouce ca serait hyper sympa.
bonne soirée a tous .
PS: je met des capture d'écran juste au cas ou mon explication ne soit pas tres claire .ca va souvent mieux avec des images....

[78chris]

Bonjour

Tes copies montrent un problème de gestion des tableaux structurés : tu ne devrais avoir aucune ligne vide et il devrait y avoir des titres signifiants.

Tu sembles aussi avoir lié tes onglets client et euros client par des formules de type =client!A2 ce qu'il ne faut pas faire. Tout tri, volontaire ou non, ajout ou suppression de ligne fera tout exploser.

A priori tu cherches à placer tes euros du jour en ligne. La norme est plutôt d'avoir un tableau A avec les colonnes Nom client, date et montant avec une ligne par jour où une transaction a eu lieu.

D'après tes copies d'écran tu cherches d'abord le client sur l'onglet fidélité puis tu lances ton userform pour saisir ton montant du jour.

Remplir la ligne client de l'onglet fidélité, suppose que le code cherche la ligne du client dans l'onglet euros client pour y inscrire le montant dans une colonne vide à trouver...

C'est plus compliqué que de remplir une nouvelle ligne dans un tableau A normalisé...

Une simple saisie manuelle des 3 valeurs dans le Tableau A irait aussi vite à mon avis que de passer par une recherche préalable puis saisie dans une boîte de texte...

[dgy23]

-Sur ma feuille principale j'ai une liste deroulante pour chercher mon client et je rappatrie les infos de mon client avec une rechercheev
-Dans le tableau où j ai les infos de mes clients j ai des colones vides car j'ai fais des test ou effectivement je faisait des =feuille!clientA2 ( c est un exemple) mais je me suis vite rendue compte que ça ne fonctionnait pas car lorsque j' additionner les cellules et que je voulais changer le montant de base avec un = tant il y avait croisement des cellules (itération je crois).....c est pour cela que je me suis pencher vers vba et je me suis dis:
Si je rentre mes infos dans mon userform et que j arrive à lui dire que lorsque je rentre un montant:
1-il recherche dans mon tableau "euros client " le nom du client inscrit en "e8" sur ma feuille principale (fidelite)
2- sur le tableau "euros client" il trouve sur la ligne du dis client la première case vide et il copie le montant saisie
3- si je ressaisit un montant pour le même client il trouve la case vide suivante ou il enregistre la nouvelle saisie etc.....
4- dans mon tableau "client" la case euros client = l additions des case du client qui se trouvent sur le tableau "euros client" .....
5- avec une rechercheev j affiche sur le tableau principal le total des euros sur ma feuille principale lorsque je rentre le nom de mon client .

Je ne suis peut être pas clair dans mes explications désoler en fait je ne trouve pas comment faire mon code vba pour les étapes 1 , 2 , 3 recherche un nom et enregistrer dans la première cellule vide en face de ce nom .....
En tout cas merci d avoir pris le temps de me lire et de me répondre c est sympa...

[Qwazerty]

Salut

Peux-tu placer ton fichier démo stp?

Comment calcules-tu les Euro du jour? Je veux dire est-ce une formule par rapport à la somme d'un achat?

En complément de 78Chris:
Si tu souhaites garder le principe de la recherche, plutôt que d'ouvrir un UserForm, pourquoi ne pas mettre une cellule où tu saisies le montant puis quand tu clique sur ton bouton, cette valeur est inscrite dans ta base puis la cellule est vidée.

++
Qwaz

[dgy23]

Tout d'abord merci pour vos réponses. Je mets en pièce jointe mon ébauche de mon tableur en espérant que vous puissiez m'aider.
Tous vos conseils sont les bienvenus.
cordialement.
thomasFIDELITE CLIENT 2.xlsm

[78chris]

Bonjour

Une proposition plus simple : on choisit le client, on saisit dans la cellule orangé le montant (comme suggéré par Qwazery) puis on clique sur ajouter : cela remplit le tableau des achats.

Que se passe-t-il quand tu fais la réduction de 30 € ? Tu ne l'enregistres pas ?

J'ai normalisé et nommé les tableaux et supprimé les cellules fusionnées (sauf une) qui posent pas pas de problèmes pour un avantage limité

[Qwazerty]

Salut

Quelques piste dans le fichier. Utilisation d'un TCD avec un segment pour filtrer les achats réalisés par un client. Tu sélectionnes le client dans le segment et sa affiche sa fiche et ses achat dans le TCD.
J'ai réorganisé un peu les tableau et ajouter des sommeprod pour faire le cumule des achats.

++
Qwaz

[dgy23]

C'est parfait merci, et avoir la date en prime c'est un plus auquel je n'avais pas pensé ...
Je vais maintenant tenter de me faire un formulaire pour enregistrer un nouveau client et j'aimerais pouvoir rechercher un client lorsque je commence à écrire son nom (car une liste déroulante peut vite devenir lourde avec beaucoup de clients).
pour ce qui est du montant fidelite je pense mettre une nouvelle cellule "montant de remise disponible"(en euros) et créer un bouton "effectuer une remise" qui déduira 30 euros de la cellule "montant de remise disponible"(avec pourquoi pas un tableau qui enregistre les transactions avec les dates ce coup ci;-)).
Bref, étant novice ca va me prendre encore un peu de temps mais c'est plaisant de se servir d'Excel ...
Je vous remercie à vous tous de m'avoir répondu et de m'avoir consacré de votre temps.
Mais je dis pas que n'aurais peut-être pas besoin d'un nouveau coup de pouce .

[78chris]

RE

C j'aimerais pouvoir rechercher un client lorsque je commence à écrire son nom (car une liste déroulante peut vite devenir lourde avec beaucoup de clients)

En ajoutant une colonne avec les initiales ou 2 lettres nom + 2 lettres prénoms et 2 segments on peut facilement filtrer...

[Qwazerty]

pour ce qui est du montant fidelite je pense mettre une nouvelle cellule "montant de remise disponible"(en euros) et créer un bouton "effectuer une remise" qui déduira 30 euros de la cellule "montant de remise disponible"(avec pourquoi pas un tableau qui enregistre les transactions avec les dates ce coup ci;-)).

Salut

Je ne sais pas quel sont les pratiques et les tarifs de ce que vous vendez, mais à mon avis il serait mieux d'avoir la possibilité de déduire une somme variable au total des EuroFidels pour que le client s'il fait un petit achat (moins de 30€) puisse tout de même utiliser sa cagnotte.
Pour le tableau, oui ça semble une bonne idée, je l'avais intégré dans la table achat mais pourquoi pas une table à part.

++
Qwaz

[dgy23]

Re-bonjour a tous,
je viens d'avancer un peu sur mon fichier mais je bloque sur 2 sujets.
En premier je n'arrive pas a déduire de la case "remise fidélité" la remise que j'effectue dans la case "montant euros a prendre" .
j'ai crée une nouvelle feuille qui servira d'historique pour les remises effectuées mais je n'arrive pas à déduire la remise de la cagnotte.
2eme point j'ai fait une macro pour créer un nouveau client mais je n'arrive pas a trouver un code pour empecher de creer un client si le formulaire est vide.
j'ai bien mis une msgbox pour un avertissement mais je code s'exécute quand même et me créer un client vide.
si vous pouvez me donner un p'tit coup de pouce afin que je règle le soucis ca serait sympa de votre part.
merci d'avance.
thomas
ps: je mets le fichier en pièce jointe

[mjpmjp]

bonjour,
pour le contrôle du formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Sub CreationNouveauClient()
'
' CreationNouveauClient Macro
'
    If Range("H5") = "" Or Range("H6") = "" Or Range("H7") = "" Or Range("H8") = "" Then
        MsgBox "Eh ben on enregistre personne??? Il faut tous les renseignements pour enregistrer quelqun..."
    Else
        Range("G5").Select
        Sheets("client").Select
        Rows("2:2").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Sheets("fidelite").Select
        Range("H5").Select
        Selection.Copy
        Sheets("client").Select
        Range("A2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("fidelite").Select
        Range("H6").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("client").Select
        Range("B2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("fidelite").Select
        Range("H7").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("client").Select
        Range("C2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("fidelite").Select
        Range("H8").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("client").Select
        Range("D2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("fidelite").Select
        Application.CutCopyMode = False
        Range("H5,H6,H7,H8").Select
        Range("H8").Activate
        Selection.ClearContents
        Range("H5").Select
    End If
End Sub

@+JP

[Philippe Tulliez]

Bonjour JP,
J'avoue ne pas comprendre comment un contributeur aussi actif que toi, continue à publier des codes utilisant les méthodes Select, Activate, etc.alors que l'on s'évertue à dire que c'est parfaitement inutile en VBA et qu'en plus c'est chronophage.

[mjpmjp]

bonjour,

Bonjour JP,
J'avoue ne pas comprendre comment un contributeur aussi actif que toi, continue à publier des codes utilisant les méthodes Select, Activate, etc.alors que l'on s'évertue à dire que c'est parfaitement inutile en VBA et qu'en plus c'est chronophage.

c'est pas mon code

j'ai juste mis "if then else" ... pour démontrer le mécanisme

je joint le dernier fichier v6 que j'ai modifié ... JP v1 ... juste pour indiquer comment débuter un ensemble de table
avec comme fil rouge , la colonne numéro de client , cette colonne est trés importante car il peut y avoir 2 client avec le même nom et prénom !!


@+JP

[Philippe Tulliez]

Bonjour Jp,

c'est pas mon code

Désolé dans ce cas

je joint le dernier fichier v6 que j'ai modifié

Sauf cas exceptionnel, je n'ouvre jamais les classeurs joints, je me contente de lire les codes publiés

[dgy23]

Tout d' abord je tiens à vous remercier pour le temps que vous m'avait consacré.
Merci pour ce petit bout de code qui fais le boulot au niveau de ma macro.
En vous lisant j'ai aussi compris que si j'avais plusieurs clients avec le même nom ,ca allait me poser problème.
J'ai donc modifier mes valeurs afin d'avoir un numéro pour chaque client.
Mais , car il y a toujours un mais ;-) je n'arrive pas à trouver comment faire ,au niveau de ma combobox (liste déroulante),pour pouvoir choisir entre 2 même noms.
je m'explique :
J'ai crée 2 clients qui s'appellent JP et je ne peux en sectionner qu'un seul dans ma combobox .
J'ai fais en sorte que la case "f4" de mon tableau principal renvoie le numéro du client sélectionné mais même quand j'arrive a voir les 2 clients ca choisit toujours le même numéro de client .
J'ai gratouillé partout mais je n'arrive vraiment pas à trouver comment faire.
Si l'un d'entre vous peut m'aider ca serait vraiment sympa ,d'autant plus que je pense qu'après cela, mon classeur devrait être vraiment pas mal pour l'usage que je compte en faire .
merci d'avance.
thomas
PS: je vous laisse en pièce jointe mon classeur avec mes dernières modif.

[dgy23]

En faite je me suis rendu compte que c'est ma combobox qui ne se met pas a jour lorsque je rentre un nouveau client.
bizarre avant elle se mettait a jour toute seule....

[mjpmjp]

bonjour,
dans les propriétés regarde l'adresse de la source

[dgy23]

Merci j'avais pas remarqué .
le soucis c'est que lorsque qu'une nouvelle ligne s'ajoute ca me décale ma listfillrange de A2 a A3.
j'ai essayer de figé en faisant $A$2 mais ca ne fonctionne pas .
Peut être en vba mais je ne trouve pas.

[mjpmjp]

bonjour,
je ne connais pas bien les tableaux structurés mais normalement (je pense) que c'est automatique