Bonjour à tous,

Je sèche sur une macro consistant à envoyer un fichier par mail; pas douée en VBA mais l'instruction que j'utilisais jusqu'à présent (sur excel 2003 avec Outlook ou Groupwise comme messagerie) fonctionnait et était :
Cette instruction ne fonctionne plus avec des ordinateurs installés avec Vista, excel 2003, et Windows Mail, le message d'erreur renvoyé est :

"Erreur d'exécution 1004"
La méthode "SendMail" de l'objet "Workbook" a échoué

J'ai tenté plein de choses en essayant de m'inspirer de ce que j'ai trouvé sur le net, pour l'instant j'en suis là :
ce qui a l'inconvénient de lancer physiquement Windows mail dont je n'ai pas forcément besoin, (mais bon, pourquoi pas après tout), mais qui ne fonctionne pas jusqu'au bout, j'envoie mes "Sendkeys" dans le décor ...

Quelqu'un aurait-il une piste quelle qu'elle soit?

A tout hasard je joins mon fichier test, en vous remerciant d'avance pour votre aide éventuelle,

mth

Bonjour Claude40,

Tu sélectionnes la ligne en dessous de la ligne à figer, puis tu cliques sur l'onglet "Affichage", et dans le ruban sur "Figer les volets".

Ci-joint un extrait de ton fichier à titre d'exemple.

Bonne journée,

Mth

Bonsoir Claude40,

Ton fichier n'est pas joint ...

Un essai de petite formule à tout hasard:


ce qui signifie :
si A11 est vide, on ne met rien
si A11 est inférieure à 9, on écrit DI,
pour le reste, on écrit ESS

ceci dit il nous faudrait en savoir plus car cette formule ne fonctionnera pas si tu as d'autres valeurs dans ta liste déroulante (négatives ou supérieures à 13 auxquelles tu souhaiterais affecter une autre valeur).

A bientôt donc,

mth

Edit:  Bonsoir Guy, (pas rafraichi à temps ... )

Bonsoir Nino63,

Tu trouveras ci-joint un petit essai pour ta colonne, j'ai créé une colonne dans l'onglet machine et me suis inspirée des formules que tu avais créées pour l'onglet planning.

Concernant sommeprod(), ... c'est une fonction magique...

Avec cette fonction tu peux bien sûr, comme tu le trouveras dans l'aide Excel, faire le total des produits de deux colonnes, par exemple :

	Qté	Prix Unitaire
Article 1	1	12.4
Article 2	5	22.5
Article 3	4	31.0
	Prix total:	248.9

Formule Prix Total: SOMMEPROD(C2:C4*D2:D4)

équivaut à (C2*D2)+(C3*D3)+(C4*D4)

Tu peux aussi utiliser sommeprod() pour faire des calculs en fonction de plusieurs conditions.

Par exemple Sommeprod(condition1 * condition2 * condition3 * champs à additionner ou à dénombrer)

Dans ton fichier la formule en D5 est :
  Condition 1 : (Machine!$B$5:$B$125=Planning!$A5) soit les codes machine colonne B de l'onglet machine correspondent à la valeur de la cellule A5

Condition 2 : (Machine!$F$5:$F$125=Planning!$B5) soit les codes opérations de la colonne F de l'onglet Machine correspondent à la valeur de la cellule B5

Condition 3: (Machine!$I$5:$I$125=Planning!D$4) représentent dans l'utilisation que j'en ai faite, le champs à dénombrer, soit le nombre de lignes pour lesquelles les condition 1 ET condition 2 sont remplies, ainsi que la dernière condition: la date en colonne I de l'onglet Machine correspond à la date de la colonne D ligne 4 de l'onglet Planning.

A chaque fois qu'un enregistrement remplira les 3 conditions , sommeprod comptera 1. Comme dans ton fichier il n'y a à chaque fois qu'un seul enregistrement correspondant aux trois critères à la fois, on a donc 1 dans les cellules.

Amuse toi à changer tes critères  pour voir sommeprod() fonctionner.

Sourire... si tu y prends goût malgré malheureusement la lourdeur en mémoire de cette fonction, ce que tu dois connaître sur sommeprod():
 

• Sommeprod ne peut pas fonctionner sur des colonnes entières
  

 dans ton exemple nous n'aurions pas pu écrire =sommeprod(B:B*F:F*I:I) qui donnerait le résultat: #NOMBRE

• Sommeprod est une fonction matricielle, les plages doivent avoir le même nombre de cellules

Tu remarqueras dans ton fichier que l'on part toujours de la même ligne et que l'on termine également à la même ligne dans les trois conditions de la formule.
 

• Les différentes conditions sont chacune entre parenthèse

         
ET s'écrit avec le signe *

OU avec le signe +

SAUF avec le signe -

Voilà rapidement Nino63, j'espère que tout ceci pourra t'aider, bonne soirée/nuit et à bientôt,

Mth

Bonsoir Nino63,

Je ne suis pas sûre de répondre à ta demande, mais au cas où, je poste quand même ...
Tu trouveras ton fichier ci-joint dans lequel j'ai ajouté un TCD qui se met à jour à chaque fois que l'on active la feuille "TCD", et qui te permet de choisir le mois que tu souhaites.

Pour ce TCD, j'utilise des formules que j'ai ajoutées dans ton onglet "Machine".

Pour ton onglet "Planning" j'ai un peu modifié la mise en page pour réduire le tableau, et j'ai utilisé un SOMMEPROD() pour croiser les critères machine/opération/date.

J'ai travaillé sur Excel 2007, j'espère que tu n'auras pas de problème avec ta version pour modifier le TCD? Sinon dis moi, je me brancherai sur un Excel 2003 pour te le refaire.

Bien à toi,

Mth

Bonsoir djstroubi,

Tu trouveras un essai ci-joint, avec deux listes de validation en cellule E3 et G3 qui te permettent de choisir une heure de début et une heure de fin, et le graphique en dessous qui s'adapte.
Tu verras que le graphique fait référence à deux zones nommées "Choix" et "Valeur", définies par calcul avec la fonction DECALER() et un petit coup de main de la fonction EQUIV() également.

J'espère que cela répond à ta question et pourra t'aider pour ton fichier de travail.

Bonne soirée,

Mth

Bonsoir mishka,

 

Dans ton onglet bilan, tu peux essayer cette formule, placée en cellule B2 et recopiée vers le bas:

(PS: J'ai compris qu'une ligne correspondait à la vente d'une seule carte, si pas la cas dis nous pour que l'on te propose d'autres solutions)

Bonne soirée,

mth
 

Bonsoir Michel,

J'ai revu ma copie que tu trouveras ci-jointe, je ne suis pas totalement satisfaite de la solution mais cela peut peut-être te dépanner en attendant mieux...

Ceci dit, j'ai volontairement évité les cases à cocher car je me suis dit que 25 jours fois 31 lignes fois 4 tableaux, ça faisait plusieurs milliers de cases à cocher.... je crois que c'est trop...

Pour les validations de données, j'ai modifié mon x en R majuscule, qui en police Wingling 2 ressemble à une case à cocher, le X est peut-être aussi bien, à toi de voir.

Ensuite j'ai mis une procédure événementielle sur la feuil1 qui à chaque double clic:
      - si la cellule est vide la coche
      - si la cellule est cochée la décoche
Désolée, je n'ai pas réussi à faire la même chose avec un simpe clic ce qui eut été plus proche de ta demande ...
Tu trouveras dans le fichier le code attaché à l'onglet Feuil1 (en cliquant sur ALT+F11):

Je ne suis pas une pro du VBA, on peut certainement écrire ça bien mieux
Par ailleurs, pour la formule total par ligne (merci JM ) un NBVAL() est aussi bien (cette fonction compte le nombre de cellules non vides dans une plage)

J'ai aussi modifié les formules tout en bas:
Cette formule en N178 permet de ne pas avoir d'affichage #DIV/0 si la cellule L181 est égale à zéro.

Voilà, il y a certainement de meilleures solutions c'est pourquoi je vais suivre ton fil avec attention, mais peut-être cela peut-il te dépanner un peu.

Début août ça va venir vite.... alors bon courage Michel et à bientôt,

mth


Edit: sourire.... le temps que j'écrive tout ça, formidable, Didier est passé par là , du coup Michel oublie mon code VBA car avec Didier tu as un très beau code écrit comme il faut.
Et moi je suis aussi ravie car en lisant cette réponse j'ai une fois de plus appris des choses .
Mes amitiés à tous,
mth

Bonjour Michel,