message

Z

Zon

Guest

• 25 Janvier 2004

• #2

Salut,

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

A+++

 

Vote positif 0 Vote négatif

L

LAMI

Guest

• 25 Janvier 2004

• #3

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

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 25 Janvier 2004

• #4

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+++

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 25 Janvier 2004

• #5

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

 

Vote positif 0 Vote négatif

E

Eric

Guest

• 25 Janvier 2004

• #6

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

 

Pièces jointes

• DateDejaSaisie.zip

  11 KB · Affichages: 17

Vote positif 0 Vote négatif

Z

Zon

Guest

• 25 Janvier 2004

• #7

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+++

 

Vote positif 0 Vote négatif

L

LAMI

Guest

• 25 Janvier 2004

• #8

merci beaucoup c'est exactement ce que je souhaitait

bon dimanche a toi et le forum

 

Vote positif 0 Vote négatif

C

chris

Guest

• 25 Janvier 2004

• #9

Bonjour

Juste pour que l'orthographe soit respectée aussi

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

Chris

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 25 Janvier 2004

• #10

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

Cliquez pour agrandir...

une "Déclaration" à droite

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 25 Janvier 2004

• #11

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

 

Vote positif 0 Vote négatif

L

LAMI

Guest

• 25 Janvier 2004

• #12

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

 

Vote positif 0 Vote négatif