saisi d'heures (hh:mn) par userform ds feuille excel

Question

bonjour &#224; tous 
je cherche &#224; completer une feuille excel des dates et des heures en utilisant un userform
et que les heures se range lignes apr&#234;t lignes.
pour les dates pas de probl&#234;me, mai pour les heures c'est le casse t&#234;te.
j'utilise ce code pour les dates et &#231;a march tres bien;
Range("C1").End(xlDown).Offset(1, 0).Value = Date
mais pour  les heures je n'y arrive pas 
j'espere que j'ai ete clair.

PCPT · Answer

salut,
....("C2")........ = Time 
PCPT

cs_jo95 · Answer

Salut,
merci pour ta reponce mais le probleme c'est qu'avec time &#231;a me donne l'heure du moment et non l'heure que je veux saisir

PCPT · Answer

Format(Time, "HH:MM")
PCPT

Zlub · Answer

Salut JO95,


Tu peux utiliser une inputBox et v&#233;rifier que l'heure est bien au format xx:xx:xx

Voir Compl&#233;ter le test pour empecher des saisies du style 25:00:99



Voici une illustration rapide de comment tu peux proc&#233;der :


Private Sub checkHeure() 
  Dim erreur As Boolean 
  Dim heureSaisie As String 

  erreur =  True 

  ' D&#233;marrer la saise de l'heure
  heureSaisie = InputBox("Heure", "Saisir l'heure au format xx:xx:xx") 

  ' V&#233;rifiaction de la validit&#233;e
  If  Len (heureSaisie) Then 
    Dim tm() As String 
    tmp  = Split(heureSaisie, ":") 

    ' Pr&#233;sence de deux :
    If UBound(tmp) =  2 Then 

      ' Lers valeurs sont num&#233;riques
      If  IsNumeric (tmp(0)) And IsNumeric(tmp(1)) And IsNumeric(tmp(2)) Then 
        erreur  = False 
      End If 

    End If 

  End If 

  ' Conclusion
  If erreur Then 
    MsgBox "Votre saisie est invalide : " & heureSaisie, vbExclamation, "Heure incompatible" 
  Else 
    Range("C1").Value = heureSaisie 
  End If 
End Sub 



++

Zlub

philippe laschweng 1 · Answer

Tu cr&#233;er sur ta Form 3 zones de textes appel&#233;es Heures, Minutes et secondes. Tu associes &#224; chacune d'elle un contr&#244;le toupie par exemple et dans le bouton valider de ta Form tu fais un :
DateSerial(Heures, Minutes, secondes) !

En tout cas ca marche en VB, en VBA je ne sais pas !

cs_jo95 · Answer

merci &#224; tous pour votre aide mais le probl&#234;me c'est que je ne comprend rien &#224; toutes ces explications car je suis vraiment ignorant en ce qui concerne la programation en VBA 
D&#233;sol&#233;!!

Saisi d'heures (hh:mn) par userform ds feuille excel

6 réponses

Discussions similaires