VBA- Jour de la semaine

Question

Bonjour, J'aurais besoin d'aide pour une fonction VBA. Voila ce que je dois faire: ---- Ecrivez une fonction personnalisée en VBA qui indique en clair le jour de la semaine (lundi, mardi, mercredi, etc.), ---- quand on lui fournit une date en paramètre, , , , ---- Par exemple, la fonction joursemaine(20/02/2005) doit renvoyer dimanche, , ---- Vous définirez la fonction dans ce classeur (à l'aide de l'éditeur Visual Basic), , ---- et utiliserez cette fonction pour inscrire le jour de la semaine dans la colonne B de ce tableau ---- Date, ---- 22/02/2005, ---- 23/02/2005, ---- 24/02/2005, ---- 25/02/2005, ---- 26/02/2005, ---- 27/02/2005, ---- 28/02/2005, ---- 01/03/2005, ---- 02/03/2005, ---- 03/03/2005, ---- 04/03/2005, ---- 05/03/2005, ---- 06/03/2005, ---- 07/03/2005, ---- 08/03/2005, ---- 09/03/2005, ---- 10/03/2005, ---- 11/03/2005, ---- 12/03/2005, ---- 13/03/2005, ---- 14/03/2005, ---- 15/03/2005, ---- 16/03/2005, ---- 17/03/2005, ---- 18/03/2005, ---- 19/03/2005, ---- 20/03/2005, ---- 21/03/2005, ---- 22/03/2005, ---- 23/03/2005, ---- 24/03/2005 Si quelqu'un peut m'aider cela me rendrait vraiement service!!! alors merci d'avance!

phantom_2005 · Answer

Salut,

Public Function JourSem(LaDate As Date) As String
JourSem = Format(LaDate, "dddd")
End Function

ca devrait r&#233;pondre a ta question.
@+

--------------------------------------------------------------------------------
Phantom_2005

cs_margot73 · Answer

Merci pour ton aide,


J'ai essay&#233; de rentrer la formule dans visual basic mais il me dit qu'il y  a une erreur de syntaxe... Je viens de commencer avec VBA et je comprend vraiement rien!!

J'ai &#233;cris ca, comme tu me l'avais dit:

Sub macroj()
Public Function JourSem(LaDate As Date) As String
JourSem = Format(LaDate, "dddd")


End Sub

Qu'est ce qui va pas??

Merci

cs_margot73 · Answer

Merci pour ton aide,


J'ai essay&#233; de rentrer la formule dans visual basic mais il me dit qu'il y  a une erreur de syntaxe... Je viens de commencer avec VBA et je comprend vraiement rien!!

J'ai &#233;cris ca, comme tu me l'avais dit:

Sub macroj()
Public Function JourSem(LaDate As Date) As String
JourSem = Format(LaDate, "dddd")


End Sub

Qu'est ce qui va pas??

Merci

phantom_2005 · Answer

Public Function JourSem(LaDate As Date) As String
JourSem = Format(LaDate, "dddd")
End Function

Tu dois mettre ca dans un module.

ensuite tu appelle la fonction comme ca:

Jour = JourSem(22/02/2005)
Dans la variable Jour tu auras "mardi"

Apr&#232;s tu adaptes selon ce que tu veux en faire
Bonne Prog

--------------------------------------------------------------------------------
Phantom_2005

Cramfr · Answer

essai çà

Public Function JourSem(LaDate As Date) As String dim iDay as byte iDay = Weekday(ladate,vbMonday)' Numéro du jour sachant que Le 1er jour est LundiJourSem switch(iDay 1,"Lundi",iDay = 2,"Mardi",iDay = 3,"Mercredi", _ iDay = 4,"Jeudi",iDay=5,"Vendredi",iDay=6,"Samedi",iDay=7,"Dimanche") end function

A+ Cramsoturf le VBien en quête de nouveau programme

phantom_2005 · Answer

>Cramfr
Je pense que ma solution est beaucoup plus simple!


--------------------------------------------------------------------------------
Phantom_2005

cqui789 · Answer

La solution de Phantom est surement la meilleure a un detail pres, le
nom de la fonction definie existe deja et VBA se garde bien de le dire
mais ca ne marche pas, le suivant marche.





Public Function JSem(LaDate As Date) As String

JSem = Format(LaDate, "dddd")

End Function



ensuite, il suffit de metre dans la case B1



=jsem(A1)



et de recopier vers le bas.

apaulux · Answer

Affichage des échanges en temps réel

C'est un utilitaire qui permet de générer des scripts Sql et du code Vb sur des Bases de données(Access 97 2000, Excel, Paradox, Db Base, Fox Pro, SQL Serveur )

Création et suppression Databases

Sauvegarde des scripts SQL, des résultats et des chaînes de connexion(Access 97 et 2000 )

Explorateur permettant de visualiser les tables, clés, colonnes, index, procédures stockées...

fonctions les recordsets

Créer et Effacer des Tables

Ajouter Enregistrements

Edition des Enregistrements

Supprimer Enregistrements

Execution Queries

Transactions

Filtres

Multi-User Access

Fonctionnalités avancées d'édition : rechercher/remplacer.

Import export des Tables Access vers (Excel, Paradox, dB Base, Fox Pro, SQL Serveur )

Création table en dynamique, requêtes d'insertion

Éditeur de requêtes complexes

Sur un format date possibilité de rechercher une journée de la semaine, le mois, jour ou année

Import Fichiers Délimités Sur SQL Serveur

&SQL Serveur Export des Tables Attachées sur base Access

&SQL Serveur Export des Table sur Base Access

Import Fichiers Délimités Sur Tables sans paramétrage SQL Serveur

http://multibases.site.voila.fr sans aucune configuration; tu as juste a cliquer sur ta base de données ta table et sur le formulaire ta journée de recherche tu recures les sql pour ton developpement sur mon site. [mailto:paul.ablasou@wanadoo.fr mailto:paul.ablasou@wanadoo.fr]

cs_margot73 · Answer

Oui en effet ca marche maintenant, merci bien!!!!

VBA- Jour de la semaine

9 réponses

Discussions similaires