macro-commandes : si cellule =0 alors effacer Fermé

Question

Bonjour, 

J'aurais besoin de votre aide svp pour avoir la formule d'une macro-commande (pas VBA mais la macro traditionnelle) :

J'ai besoin de trier dans la colonne 'prix' si = 0 alors effacer toute la ligne

Merci d'avance


Configuration: Windows XP / Internet Explorer 6.0

m@rina · Answer

Bonjour,

Une macro "traditionnelle", ça n'existe pas, c'est du VBA depuis la version 97 d'Office.

Peux tu être plus explicite sur ce que tu entends par là ?

m@rina

sand95 · Answer

Bonsoir m@rina,

En fait je viens d'avoir une formation par mon entreprise sur ça et ça me parait plus parlant que le langage VBA.

Ce sont des formules du type :
=SELECTIONNER()
=EDTITION.SUPPRIMER(3)

Mais le formateur nous a bien dit que c'était toujours compatible dans les nouvelles version excel et que les gens utilisaient toujours !

Sandrine

m@rina · Answer

Sandrine, excuse-moi..., mais je tombe des nues !!

Je ne pensais pas qu'il existait encore des formations en langage Excel Macro 4.
Plus personne n'utilise ce langage actuellement qui a été remplacé par le VBA il y a 14 ans !

J'ai moi même programmé avec ce langage à l'époque, et également avec WordBasic, mais je serais bien incapable de t'aider ça fait trop longtemps que je n'y ai pas touché...
Il y a peut être des "anciens" sur ce forum qui s'en souviennent mieux que moi...

Ton formateur est bien gentil mais il vit à une autre époque !
Par curiosité, quelle version d'Excel utilisez vous dans ta société ?

m@rina

eriiic · Answer

Bonsoir,

Ah, je suppose que m@rina a eu le même sourire que moi en te lisant ;-)
Je pense aussi que ça serait perdre ton temps que de te pencher sur les anciennes macros excel.
VBA parait obscur au début mais une fois comprise la logique c'est beaucoup plus puissant et lisible.
Ose et lance-toi.... ;-)
eric

sand95 · Answer

Ben là je dois dire que je suis un peu dégoutée !!!
Bon je vais essayer de me mettre sur VBA alors.

Est ce que quelqu'un peut m'aider ?

J'aimerai faire un envoie automatique de mail pour envoyer mes factures mensuelles que j'ai enregistré sous c:/

Merci beaucoup
Et si quelqu'un peut me suivre pas à pas, ça serait super tip top :-)

merci d'avance :-)

m@rina · Answer

Bonjour Sandrine,

Ben oui, je comprends que tu sois dégoûtée... :(

Voici un code VBA basique qui permet d'envoyer le classeur courant à une adresse mail via Outlook :

Sub envoimail()

Dim ol As Object, item As Object, adresse, objet, corps

Set ol = CreateObject("outlook.application")
Set item = ol.CreateItem(olMailItem)
adresse = "adresse@adresse.com" 'adresse mail
objet = "objet du mail" 'objet du mail
corps = "Je vous prie de trouver ci-joint..." 'corps du mail

item.To = adresse
item.Subject = objet
item.Body = corps
Set myAttachments = item.Attachments
myAttachments.Add ActiveWorkbook.FullName

item.Send
Set ol = Nothing
End Sub

m@rina

sand95 · Answer

C'est super m@rina, merci, ça marche !!!
Par contre, comment fais tu pour envoyer non pas un fichier actif mais un document (genre une facture) ?

Sandrine

m@rina · Answer

La facture en question, ce n'est pas le document Excel ?

Parce que sinon, je ne vois pas bien l'intérêt de passe par Excel, autant travailler directement depuis Outlook.

m@rina

sand95 · Answer

C'est que j'ai une liste de 50destinataires et les factures sont toutes enregistrer sous c:/
Je voudrais créer un bouton (macro) pour chaque contrepartie sous excel générer un mail qui reprendrait en plus toutes les données supplémentaire que je mettrais sous excel et qui figurerait dans le corps de mon mail...
Enfin, je ne sais pas si c très claire !?!:

Sandrine

m@rina · Answer

Non, ce n'est pas du tout clair pour moi, mais ça ressemble plus à du publipostage.

Regarde ici par exemple :
https://faqword.com/index.php/word-tutoriels/toutes-versions/670-publipostage-et-pj.html

m@rina

sand95 · Answer

oui effectivement :-(

en fait je vais garder ta formule, elle me va bien :-b

merci bcp pour ton aide

Sandrine

sand95 · Answer

m@rina,

comment fait on pour ajouter des destinataires en copy ?
et faire des "aller à la ligne" dans le corps du message ?

merci
Sandrine

m@rina · Answer

Pour mettre plusieurs destinataires, tu les sépares simplement par un point-virgule.

Pour ajouter des retours paragraphe, c'est le caractère 13 (Chr(13)
Il faut séparer les différents morceaux de textes par des &, ce qui donne par exemple :

"Bonjour" & Chr(13) & Chr(13) & "Vous voudrez bien trouver ci-joint la facture machin" & Chr(13) & "Ploum ploum"

m@rina

sand95 · Answer

Bonjour m@rina,

Merci encore, toujours aussi efficace tes formules ;-)

Par contre, tu ne m'as pas mis la formule pour mettre en copy conforme un autre destinataire ??

Sandrine

sand95 · Answer

m@rina,

j'ai trouvé la formule, j'ai ajouté une ligne adresse2= (adresse) et :
item.CC = adresse2

:-)

sand95 · Answer

Maintenant, comment puis je faire référence à une cellule (car ça change tous les mois et cela m'éviterait de le retaper tous les mois) dans le corps de mon message ?

sand95 · Answer

Merci eric, ça marche !

Y a t il possibilité d'y attacher un document en automatique ?

eriiic · Answer

oui, c'est ce que faisait m@rina avec 
Set myAttachments = item.Attachments 
myAttachments.Add ActiveWorkbook.FullName 

tu peux y ajouter : 
myAttachments.Add "c:	mp\mondoc.doc" 
ou bien si ton nom de doc est dans une cellule : 
myAttachments.Add "c:	mp\" & [B1] 

eric 

PS : CC signifie Copie Carbone et non copie conforme (un vieux reste des machines à écrire... ;-) )

sand95 · Answer

HAHAHA !!!

C'est clair, faut se mettre à l'air du temps lol MDR

Bon ça marche mais l'adresse me prend la tête. Voici mon problème, rien à avoir avec les écritures de formule mais je voulais avoir votre expérience :

J'ai un certain nombre de facture généré automatiquement dans l'intranet de ma boite. Le problème est que toutes ces factures mensuelles sont enregistrées dans une dossier nommé :
201103 (pour mars 2011)
201104 (pour avril 2011)

Alors dans la formule :
myAttachments.Add "c:	mp\mondoc.doc" 

Comment puis je faire pour que ça prenne en automatique la modification du mois ??? Sachant que je traite le M-1 ???

eriiic · Answer

Re, 

Si tu traites réellement mois-1 en cours : 
myAttachments.Add "c:\" & Year(Date) & Right("0" & Month(Date) - 1, 2) & "\" & [B1] 

sinon si tu as une date avec le bon mois quelque part (en A1 par exemple) : 
myAttachments.Add "c:\" & Format([A1], "yyyymm") & "\" & [B1] 

avec le nom du doc en B1. 

eric

PS : alors ! vba n'est pas mieux que les macros xl4 ? ;-)

Macro-commandes : si cellule =0 alors effacer

20 réponses

Discussions similaires