Execution d'une macro en fonction d'une ligne

[bhbh]

Re-,
effectivement, il faut remplacer cette ligne :

        Set Nom = .Range("B5:B14").Find(Client, lookat:=xlWhole)

par celle-ci :

        Set Nom = .Range("B5:B14").Find(Client, LookIn:=xlValues, lookat:=xlWhole)

plus une autre modif (inverser les noms de feuilles)

le fichier :

[monimeka]

OK

ca fonctionne. demain je teste cette dernière version sur l'autre PC.

il reste seulement une dernière petite chose. apres ca tu en aura fini avec ce fichier.
Pourrais tu modifier le moment de l'incrementation du numéro de la facture sur la feuille "facture", car lorsqu'on veut éditer une facture F, le numero F+1 s'affiche en meme temps que les infos de la facture F. C'est trop tot..... Et si on programmais le l'incrementation au moment ou on clique sur "edition facture"...??

[bhbh]

Bonjour,
la v4
le numéro de facture s'incrémente dès l'appui sur "Edition Facture"
Le numéro initial est donc "0"
J'espère que cela fonctionnera sur l'autre PC

[monimeka]

bonjour...
l'incrementation est parfaite...merci.

par contre je n'ai toujours pas réussi a résoudre le mystère de l'autre PC....
La macro Facture ne veut toujours pas s'y lancer..
pourtant j'ai eu la lumineuse idée de réinstaller Office...mais ca na rien changé

je n'ai testé que tardivement l'ajout de nouveau client...j'arrive pas (j'ai pas du bien comprendre ce que tu m'avais indiqué)

[bhbh]

Re-,
l'ajout de nouveau client ne se fait que sur la feuille "Total"
Avec les formules dans les onglets des "cuistot" (PS, j'ai un collègue cuisinier qui déteste ce mot, dans le temps, les "cuistots" étaient ceux qui donnaient à manger aux animaux ), donc avec les formules dans les onglets "cuisiniers", le nom des nouveaux clients sont automatiquement ajoutés
Tu n'as rien à changer au niveau des noms dans les onglets "cuisiniers"
Pour l'autre PC, mets-toi sur le code de l'usf (Private Sub UserForm_Initialize())
Sélectionne le petit "c" de :

For Each c In Sheets(sh)

et fais : Débogage/Ajouter un espion
En bas, tu vas avoir une nouvelle fenêtre "Espions"
Clique sur F8, jusqu'à :

If Not MonDico.Exists(c.Value)

et dis-moi la valeur qu'à "c" à ce niveau-là

[monimeka]

alors...

sur le PC de ma collegue j'ai essayer de lancer la macro facture
j'ai eu le message d'erreur...j'ai cliqué sur debogage
j'ai ouvert le code de l'userform....j'ai placé un espion sur "c" comme tu me l'a indiqué.
j'ai cliqué plusieur fois sur F8 jusqu'a la fameuse ligne et la, dans le tableau de l'espion, dans la colonne valeur il est inscrit le nom du premier client.

j'espere que j'ai rempli ma mission

[bhbh]

Re-, oui, et ça plante, si tu rappuies sur F8?
ou alors c'est bien après
Prends ton courage à 2 mains, et appuies sur F8 jusqu'à ce que ça plante

[monimeka]

après avoir placé l'espion tu m'avais dit d'appuyer sur F8 jusque la ligne "If Not MonDico.Exists(c.Value) Then..." eh bien c'est a cette ligne que ca plante. je peux pas aller plus loin.
c a pour valeur d'apres l'espion "client 1"

[bhbh]

Bizarre, bizarre.....
essaie de rajouter la référence :

Outils/Référence : Microsoft Scripting Runtime

A tout z'azar

[monimeka]

bouuuuh

je vais brulé un cierge pour Saint Excel

[bhbh]

RE-,
ne désespérons pas.......

rajoute cette ligne en début :

Private Sub UserForm_Initialize()
Dim MonDico As Object

je continue à chercher pourquoi ça m......
Si quelqu'un a le même problème, qu'il se manifeste, svp

[monimeka]

j'ai mis ca (pour etre bien d'accord)

Private Sub UserForm_Initialize()
Dim MonDico As Object
Dim sh
Set MonDico = CreateObject("Scripting.Dictionary")

ca marche pas ...

[bhbh]

Bon, on va faire autrement

comme tu rentres tous tes clients dans la feuille "total", on va s'en servir pour initialiser la combobox

remplace tout le Private Sub UserForm_Initialize()

par :

Private Sub UserForm_Initialize()
Dim pl As Range
Derlig = Sheets("Total").[A181].End(xlUp).Row
Set pl = Sheets("Total").Range("B5:B" & Derlig)
pl.Name = "ListeClient"
Me.ComboBox1.RowSource = "ListeClient"
End Sub

PS : tu peux aussi supprimer la sub :

Sub Tri(a, gauc, droi)

Sub Tri(a, gauc, droi)

[monimeka]

CA FONCTIONNE

génial...!!
j'ai tester le tout ...ca roule.
Par contre ca fait planter la macro sur les nouveaux clients...mais j'ai pas les symptomes exacts...laisse moi 5 min que je puisse te decrire tout precisement.

mais en tout cas le principal fonctionne....

[monimeka]

alors...
j'avais donc fait le liens des colonnes A et B des feuilles cuisinier() avec celles de la feuille total. j'ai rajouter de clients sur la feuille total et il apparaissent bien automatiquement sur chacune de feuilles cuisinier...on clique sur "Edition facture" la box apparait (ya une case a cocher qui s'appelle CheckBox1) Mon nouveau client qui a consommé apparait bien dans la liste de roulante mais lorsque je lance l'édition

Erreur 1004
erreur definie par l'application ou par l'objet

débogage (F8 sucssecifs...) c'est cette ligne qui génère l'erreur apparemment :
Sheets("total").Celles(lig,8).Value=Sheets.......