message

[LAMI]

REBONJOUR A TOUS

DANS la cellule I 78 d'une feuil j' ai un format date de ce type 23janvier 2004 à 17 20, je n'arrive pas a inclure le à dans reponse de la msg dont le code est ci dessous

valeur = Sheets("impression").Range("I78")
reponse = MsgBox("DESOLE VOUS AVEZ DEJA VALIDER LE" & Chr(10) & valeur, vbCritical, "lami")

merci @+

 

[Zon]

Salut,

Un truc du genre avec Format :
valeur = format(Sheets("impression").Range("I78"),"DD MMMM YYYY HH:MM")

A+++

 

[LAMI]

BONJOUR
MERCI désole j'ai corrigé la ligne mais ca ne marche pas, je voudrais voir apparaitre le message suivant"DESOLE VOUS AVEZ DEJA VALIDER LE 24/01/2004 à 15 15"

bonne journee a tous

 

[Zon]

Re,

Alors comme cela:
with Sheets("impression").Range("I78")
valeur = format(.value,"DD MM YYYY")
valeur2=format(.value," HH:MM")
end with

reponse = MsgBox("DESOLE VOUS AVEZ DEJA VALIDER LE" & Chr(10) & valeur &" à " & valeur2, vbCritical, "lami")

A+++

 

[Zon]

oups un espace de trop:
valeur2=format(.value," HH:MM") à remplacer par valeur2=format(.value,"HH:MM")

 

[Eric]

Bonjour à tous & à toutes
Bonjour LAMI, bonjour Zon,

Désolé d'être aussi long mais je débute et il me faut tester
tout ce que je fais.
LAMI, Zon avait raison, j'ai repris son format et l'ai installé
dans le fichier joint, cela fonctionne parfaitement.

Bon dimanche.
Zon, en tant qu'"ancien" (Je suis arrivé aux questions
/réponses de début novembre 03 et t'ai souvent lu dans les
réponses, Un Grand Bravo), pourrais-je te demander, si tu peux
répondre à ma demande formulée au fil de Pat5 et
destiné à David, le concepteur Web du site.

Merci d'avance.

@ ++ Eric C

 

[Zon]

Salut Eric,

En relisant je me demande ce qui m'est passé par la tête tout à l'heure en utilisant 2 formats.
Pour le fil de Pat5 c'est à David de décider...

A+++

 

[LAMI]

merci beaucoup c'est exactement ce que je souhaitait

bon dimanche a toi et le forum

 

[chris]

Bonjour

Juste pour que l'orthographe soit respectée aussi

C'est
"Vous avez déjà validé le ..."

Chris

 

[@+Thierry]

Hello ce Fil

Et oui Chris, le VBA ne corrige pas encore l'EaurTauGraffe !

Sinon Eric se débrouille bien, juste qu'il utilise ces macros "auto_open" que nous déconseillons (MS aussi !) car elles datent d'Excel 5 et sont remplacées depuis...

Eric, tu devrais te lancer et utiliser les Macros évènementielles

1) Double Click sur l'objet "ThisWorkBook" depuis l'explorateur de Projets de VBE.

2) Tu auras un Private Module de "ThisWorkBook"

3) Dans le haut de ce module, deux ListBox

une "Général" à gauche

une "Déclaration" à droite

4) Dans la première tu sélectionnes "WorkBook"

5) Dans la seconde tu sélectionnes "Open"

6) Tu indiques le code voulu (ici UserForm1.Show) Load UserForm1 n'est nécessaire quand suivi de Show, cette dernière instruction "Load" le UserForm (vaut mieux ! lol

Voilà, je te laisse découvrir les Macros évènementielles .... Valable aussi pour chacune des feuilles du classeur comme procédé en 1) mais sur un objet "Feuille".... puis sélection "WorkSheet" dans la première ListBox... ensuite tu joues avec la seconde liste...

Bonne découverte
@+Thierry

 

[@+Thierry]

hi hi hi

"Reprendre l'ancien message:" n'a rien à voir avec ce que j'ai tapé !! lol c'est l'utilsation des Quote pour identer mon text qui m'a fait ce coup là !! lol

@+Thierry

 

[LAMI]

bonsoir a tous
eric ,j'ai reessaye la 1er solution ca ne marche pas dans mon application par contre la 2eme impecable
bonne soiree a tous