Usine à gaz

re,

la purge n'agit que sur la partie gauche

le n° de Fax est = à "C12" que tu ne vois pas (police blanche)

tu n'aurais pas dus bricoler ! c' est dans la macro

demande avant de chatouiller !! , nos fichiers ne sont déjà plus pareil !

fait tourner comme çà au maximum (essaye toutes les possibilités)

à mon avis il te manque des colonnes dans les tableaux ! si tu veux compléter la zone saisie.

pour la faute de frappe expédié le: tu corrige la macro (c'est l'avant-dernière ligne)

tiens moi au courant, et salut ton "patron"

Claude.

le bouton zone impression ne fonctionne pas !!!

l'aperçu avant impression fonctionne mais pas l'impression depuis le bouton !

que je tape "F" pour fax ou "saisie" pour la feuille "chute".

re,

nos messages se sont croisés,

c'est bien ce je pensais !!

les formules que tu veux rajouter , çà va aller ou ?

tu n' as pas de colonne de libre dans les tableaux !

encore un manque de préparation, si tu veux rajouter des infos et des colonnes,

c'est possible mais délicat.

je te l'avais pourtant signalé, prépare bien ton coup, on feras la modif ensemble.

à demain.

Claude.

re,

c'est un vrai chassé-croisé avec les messages, j'avais pas vu celui pour l'impression !

ce bouton n'a pas été fait pour lancer l' impression, c'est juste un bonus pour moi travailler,

Je mais toutes les colonnes fax à largeur 0, pour voir en même temps les formules en

colonne "R" et le reste.

pour eurotool.xlam c'est une macro complémentaire qu'on m'a fournis via le forum

toujours cette fameuse cellule c9 (j'aime pas çà !)

Salut.....Claude

bonsoir et merci

à demain

pour le bouton "zone impression ce serai pas mal si il fonctionné vraiment.

a+ Christophe

Bonjour Forum,Christophe,

on va maintenant régler l'histoire des formules, essaye d'être clair !

Je t'envoie une feuille type à compléter (ne la mets pas dans le fichier)

Si tu sais pas écrire la formule, indique ce que tu veux.

n'utilise pas la purge, il faudra revoir la macro.

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

Bonne journée.

Claude.

bonjour à tout le monde, enfin tout ceux qui essaye de suivre cet article !!! pas de découragement on touche au but !

bonjour claude revoiçi ton fichier, pas beaucoup de changement ne prends pas peur !

pour ma part il suffirai de dire à la macro purge de ne pas effacer tout dans le pavé en vert mais seulement les valeurs comme ça pas de soucis les formules restent en place.

pour l'impression ton bouton me convient trés bien, rends le fonctionnelle

merçi a tout à l'heure

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

ps: tu n'es pas obligé de te taper tout le boulot, dis moi les formules dans vba et je ferai le necessaire.

re,

regarde si ça te vas ? les formules

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

Je ne m'occupe pas de l'impression, tu fait "imprimer" c'est tout !

je regarde pour modifier la purge.

Claude.

ok pour les formules claude, ça fonctionne et ça me convient

ça facilite la tâche des mes collègues qui vont remplir cette feuille (moins de saisie)

j'attends ce que tu m'as trouver pour purge

j' arrete l'ordi vers 11h30 car je dois manger et aller travailler

a+

re,

tu recopie le code purge.et efface l'ancien.

il faudrais mettre un format conditionnel pour les entrées date (je sais pas faire)

si tes gars se gourre dans les entrées !

Sub purge_chute()
            Range("b6:b14").ClearContents
            Range("b16:b29").ClearContents
            Range("a31:c43").ClearContents
            Range("a37") = "Visa et commentaire du moniteur après enquête:"
            Range("c42") = "Signature:"
End Sub

Bon courage

Claude.

oouahh !

je l'ai fait de mon côté et je trouve pareil que toi !!!

je deviens bon

pour les format de date tu indique dans le format de la cellule et hop ça ne change plus !

purge peux effacer les formules mais pas les formats

par contre quand tu lances la macro purge en pas à pas à chaque ligne elle appelle la macro en c09 !! c'est bizarre non! as tu essayer de sucrer cette macro ?

re,

purge ne touche pas les formules (heureusement !)

Je regarde pour faire autre chose pour la cellule C9 (çà ne me plait pas, depuis le début !)

Claude.

re,

Je le sent bien maintenant, fichier explicatif

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

Le nouveau code purge.

Sub purge_chute()
            Range("b6:b14").ClearContents
            Range("b16:b29").ClearContents
            Range("a31:c43").ClearContents
            Range("c16").ClearContents  ''X
            Range("b20") = "Date Chgt"
            Range("a37") = "Visa et commentaire du moniteur après enquête:"
            Range("c42") = "Signature:"
            Range("formules").Copy Destination:=Range("c20") ''copie formules
End Sub

et nouvelles macros qui remplace la macro synthese

Sub Afacturer()
                Range("ligne").Copy
            Sheets("synthese").Select
                        Range("synthese!top").Offset(1, 0).Select
                            ActiveCell.Name = "Top"
                                Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
                           False, Transpose:=True
                                MsgBox ("relevé synthèse enregistré!")
                                    Sheets("chute").Select
                                        Range("c9") = "A facturer"   ''saisie
                                         Range("j13") = "A facturer" ''fax
End Sub

Sub expédié()
                      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") = "Expédié le:"
                                              Range("j13") = "Expédié le:"
                                                    Range("b6") = Date
End Sub

Bon courage.......Claude.

bonjour claude j'ai une erreur sur la purge (en rouge)

Sub purge_chute()

Range("b6:b14").ClearContents

Range("b16:b29").ClearContents

Range("a31:c43").ClearContents

Range("c16").ClearContents ''X

Range("b20") = "Date Chgt"

Range("a37") = "Visa et commentaire du moniteur après enquête:"

Range("c42") = "Signature:"

Range("formules").Copy Destination:=Range("c20") ''copie formules

End Sub

bonsoir,

as-tu bien créer le nom "formules" insertion/Nom/Définir

Claude.

je ne vois pas ce que tu veux dire mais maintenant ça fonctionne !

j'avais oublié de supprimer l'autre bouton "purge"

j'ai supprimer aussi une ligne dans sub expédié

Sub expédié()

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") = "Expédié le:"

Range("j13") = "Expédié le:"

Range("b6") = Date

End Sub

car elle revenait sur la feuille chute avec la date d'aujourd'hui contrairement "à facturer" qui fonctionne sans me changer la date !

re,

tu vois pas ce que je veux dire !!!

je parle Français non !!!

est-ce que tu as un nom nommé "formules" oui ou M....

Claude

oups j'avais pas regardé à droite !!!

pardon, pas besoin de devenir vulgaire ...

je fais ça par contre maintenant ça efface les formule s et indique en C20 "formules (sauvegarde) pas bon !!

je dois me retaper toute les formules !!! plus d'option retour en arriere !!

re,

du calme, suis bien les instructions que je t'ai mis sur l'onglet "specimen"

le nom "formule" c'est la plage O4:O13

les formules sont dans ce champ.

tu veux sauter des étapes, et résultat tu te plante !

si tu suis bien, çà marche Nickel.

Claude.