Usine à gaz

ah je viens de comprendre !

en fait quand je recopie usine à gaz4 pour le mettre dans la liste ou l'inverse je m'y perds un peu ,un problème ce compatibilité entre ta version exel et la mienne d'ou perte d'information !!

j'ai bon recopier le code vba pas moyen de la remettre

re,

Attention : c'est la liste que tu doit mettre dans l'usine, et non l'inverse !

1 - la purge chute ne touche pas "C9"

veux-tu réinitialiser quand purge ; "c9" = expédié le: ?

2 - dans FAX, "j9" = "c9"

veux-tu mettre "j9" en dur, (=....)?

En résumé,et pour que çà soit bien clair,

écris les actions à mener quand clic expédié le:

écris les actions à mener quand clic ) à facturer

Comme j'ai fait des modifs depuis, je ne sais plus ce que as comme version,

voici mon code d'aujourd'hui.

Sub syntese()
    Application.EnableEvents = False
        If Range("c9") = "A facturer" Then
                Range("ligne").Copy
                    Sheets("synthese").Select
                        Range("synthese!top").Offset(1, 0).Select
                                '''Selection.Insert Shift:=xlDown ''insert
                            ActiveCell.Name = "Top"
                                Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
                           False, Transpose:=True
                                MsgBox ("relevé synthèse enregistré!")
                                    Sheets("chute").Select
                                        Range("c9") = "Exédié le:"
                Else
                      Range("ligne_suivi").Copy
                    Sheets("suivi").Select
                        Range("synthese!Top_suivi").Offset(1, 0).Select
                            ActiveCell.Name = "Top_suivi"
                                Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
                           False, Transpose:=True
                                        MsgBox ("relevé Suivi enregistré!")
                                            Sheets("chute").Select
                                                Range("c9") = "A facturer"
                                                    Range("b6") = Date
           End If
    Application.EnableEvents = True
End Sub

à te lire

Claude.

non en fait sur le fichier que tu m'as envoyer essa4, ça fonctionne mais lorsque je copie il y'a une perte de donnée qui se produit et là ça ne fonctionne plus (j13 n'est plus = c09)

j'essaye de régler ça depuis tout à l'heure !!!

mail là je fais du ménage car je m'embrouille avec tous les essais qu'on à fait et que je conserve

je te rtiens au courant

re,

je mange et je vais siester !

pour la liste avec police + grande, c'est faisable, mais je sais pas faire !

regarde cet exemple, comment çà marche ???

https://www.excel-pratique.com/~files/doc/2WCszONhWCClasseur1.xls

à tout-à-l'heure.

Claude.

non décidemment pas moyen j'ai beau retournée le problème dans tous les sens...

j'ai essayé d'enregistré acec compatiblité, sans , en prenant en charge les macro , sans mais rien n'y fait !des que je copie destination dans essai4 ma cellule j13 n'est pls égal à c09

à n'y rien comprendre

incroyable ça remarche, je ne sais pas comment !

par contre impossible de saisir de nouvelles formules pour amélioré "chute" dés que je fais purge il me sucre tout !!

comment faire ?

fausse alerte j'enregistre et puis plus rien c'est revenu comme avant

bon je crois que j'ai rouvé, regarde la prise d'écran ci-joint et j'attends ta réponse

a++++

https://www.excel-pratique.com/~files/doc/trAwVSans_titre.jpg

re,

Bon alors un coup çà marche,un coup non !

du calme !

Commence par répondre à ma question

En résumé,et pour que çà soit bien clair,

écris les actions à mener quand clic expédié le:

écris les actions à mener quand clic ) à facturer

ensuite, vas voir le Post "macro qui tourne en boucle"

çà pourrait venir de cette cellule-liste C9 (que je n'aime pas trop !)

pour les noms rec1,rec2, c'était des essais, tu peux les virer.

il faut que çà tourne ce soir !!!!!!!

Claude.

re,

j' oubliais, tu n'as pas de formule dans la partie saisie de chute,

Si tu veux modifier quelque chose, c'est dans la colonne " R", mais pour le moment,

fait tourner comme çà, il faut régler les problèmes avant de modifié !!

Claude.

co9 remplacer par 2 boutons en D11 et D13 par exemple

1 "A facturer" qui colle "A facturer" en J13

1 " Expédié le" qui colle "Epédié le" en J13

cela va surement régler le problème .

https://www.excel-pratique.com/~files/doc/usine_a_gaz_essai5.zip

re,

j' arrive pas à ouvrir ton lien,

copie sur une feuille excel, c'est + simple

a-tu lu le post "macro qui tourne en boucle" ?

Claude.

je ne peux pas de la copier sur une feuille simple car ça doit tourner avec toutes les feuilles! j'ai un fichier xmls (2007) qui fait moins de 100ko mais le forum ne le prends pas !

en fait en xls il pése 147ko et xmls in ne fait que 93 !!

il serai bon arrivé à ce stade que nous travaillions sur le même fichier non ?

j'ai lu la macro en boucle , de l'hébreux !!!

a ++

re,

je ne sais même pas ce que c'est XMLS ?

Tout à fait d' accord pour travailler sur le même fichier!

ne nous éparpillons pas !!

j'ai poser 2 questions, j'attends !

je sais pas trop comment çà marche, mais si j'envoie mon fichier complet sur ta messagerie

perso ? (en dernier recours)

Mais normalement si tu m'a suivis, ton fichier est le même que le mien.

Que voulais-tu m'envoyer ?

Claude.

co9 remplacer par 2 boutons en D11 et D13

1 "A facturer" qui colle "A facturer" en J13

1 " Expédié le" qui colle "Epédié le" en J13

qui répond à ta question

si je veux t'envoyer mon fichier complet c'est pour que tu puisse voir l'ensemble car sur des bouts du tien ça fonctionne mais une fois réunis ça ne marche plus dû à des pertes de données lors des enregistrements en mode compatibilité avec mon office 2007.

re,

Bon, il faut qu'on s'en sorte !

je corrige le J13,

Je te renvoie mon fichier (sans la liste)

Tu n'auras plus qu'à rajouter l' onglet "destination" et refaire la manip des RECHERCHEV

çà te vas ?

Claude

PS: Quand tu feras tourner, ferme les autres fichiers !

re,

voila mon fichier corrigé.

Je pense à quelque-chose qui pourrait-être à l' origine du Hic !

Dans ton fichier "destination",

avant tout : supprime tous les noms.

enregistre.

et ensuite tu fais copier dans usine à gaz_essais5

et manip RECHERCEV

OK

https://www.excel-pratique.com/~files/doc/usine_a_gaz_essai5.xls

Claude.

bon cette fois ci c'est bon j'ai suive tes précieux conseil et hop voilà !

j'ai du changer 2 macros

1 je ne voulais pas la date d'aujourd'hui en b6 quand je selectionne mon n° départ saisie

2 mon n° de fax ne s'effaçait pas lors de la purge

c'est bon d'inquiètude c'est fait et fonctionne

reste une erreur toute bête en "c09" exédié à la place de expédié que je n'arrive pas à modifier !!

en vba dans ce classeur j'ai un fichier vbaproject (usine à gaz essai5.xls) et un autre (eurotool.xlam) que je ne peux pas voir à cause d'un mot de passe apliquer à cette feuille et apparemment fait référence à c09 !!

es-tu au courant ?

c'est bon je post mais j'ai réussi à trouver, en fait j'essaye et j'écris en même temps !

bon on va fignoler ?

je veux rentrer des formules dans b21;22,23,24,25,26 et c21,22,23,24,25 et 26

dire par exemple en b21 si b16="x" alors indique en en b21 la date de b06, la formule je connais mais purge m'enlève tout !

dire par exemple en c21 si b10= aprés midi ;c21=2 et 1 si b10=matin

est-ce dur?