format 12:00 = 00:00

Re : format 12:00 = 00:00

Bonjour,

perso, ne mettrais pas ce code dans l'événement "change" du combo qui se déclenche sur chaque caractères mais plutôt dans l'événement "exit"...
bonne journée
@+

Re : format 12:00 = 00:00

Bonjour Pierrot93 excuse ma reponse tardive j'etait absent , ton bout de code me donne des chiffres (0,2916) etc pour toute les heures

Re : format 12:00 = 00:00

Bonjour,

peut être qu'un tout petit fichier, représentant uniquement le problème posé, nous aiderait à t'aider...

@+

Re : format 12:00 = 00:00

voici la macro si ça peut aider
Private Sub OKButton_Click()
Dim P As Integer

' S'assure que planning est active
Sheets("planning").Activate

' S'assure qu'un nom est renseigné
If ComboBox2.Text = "" Then
MsgBox "Vous devez renseigner un Nom."
ComboBox2.SetFocus
Exit Sub
End If

' S'assure qu'une equipe est renseignée
If ComboBox3.Text = "" Then
MsgBox "Vous devez renseigner une équipe."
ComboBox3.SetFocus
Exit Sub
End If

' S'assure qu'une heure de début est renseignée
If ComboBox4.Text = "" Then
MsgBox "Vous devez renseigner l'heure de début."
ComboBox4.SetFocus
Exit Sub
End If

' S'assure qu'une heure de fin est renseignée
If ComboBox5.Text = "" Then
MsgBox "Vous devez renseigner l'heure de fin."
ComboBox5.SetFocus
Exit Sub




End If
ActiveSheet.Unprotect ("wt01oks3")
P = Sheets("planning").Range("B65536").End(xlUp).Row + 1
Sheets("planning").Range("B" & P).Value = ComboBox2.Value
Sheets("planning").Range("G" & P).Value = ComboBox3.Value
Sheets("planning").Range("C" & P).Value = CDate(Me.DTPicker1.Value)
Sheets("planning").Range("E" & P).Value = CDate(Me.TextBox2.Value)
Sheets("planning").Range("D" & P).Value = ComboBox4.Value
Sheets("planning").Range("F" & P).Value = ComboBox5.Value

Unload Me 'Vide et ferme le UserForm
ActiveSheet.Protect ("wt01oks3")




End Sub

Private Sub ComboBox2_Change()
With Sheets("suivi appro")
TextBox1 = .Cells(ComboBox2.ListIndex + 4, 17)
End With
If TextBox1 <> "" Then TextBox2 = DTPicker1 + TextBox1 - 1

End Sub
Private Sub DTPicker1_Change()
If TextBox1 <> "" Then TextBox2 = DTPicker1 + TextBox1 - 1

End Sub

Private Sub UserForm1_Initialize()
Dim c As Range
With Sheets("suivi appro")
Set c = .Range("D4😀" & .Range("D65000").End(xlUp).Row)
End With
ComboBox2.List = c.Value
DTPicker1 = VBA.Date

End Sub
Private Sub ComboBox4_Change()

ComboBox4.Value = Format(ComboBox4.Value, "hh:mm")

End Sub
Private Sub ComboBox5_Change()

ComboBox5.Value = Format(ComboBox5.Value, "hh:mm")

End Sub

Private Sub CancelButton_Click()
Select Case MsgBox("Voulez vous quitter ?", vbYesNo Or vbInformation)
Case vbYes
Unload Me
Case vbNo
End Select
End Sub

Re : format 12:00 = 00:00

Re,

perso, vois toujours ton code dans l'événement change, donc à partir de là... et sans fichier, peux pas t'aider plus...

Re : format 12:00 = 00:00

voici mon fichier
Cijoint.fr - Service gratuit de dépôt de fichiers

Re : format 12:00 = 00:00

Re,

désolé, perso peux pas accéder à cjoint, problème de proxy, un tout petit fichier placé directement sur le forum eût été préférable...

@+

Re : format 12:00 = 00:00

on vas y arrive

Re : format 12:00 = 00:00

Re,

Aarf, même pas 2007 sous le coude...

Re : format 12:00 = 00:00

est comme ça

Re : format 12:00 = 00:00

Re,

pas passé à priori...

Re : format 12:00 = 00:00

.rar passe pas voici en zip
est il possible que la date du DTPicker ce mette a jour automatiquement car elle reste figer sur la meme date quand j'ouvre mon userform

Re : format 12:00 = 00:00

Re,

comme dit dans le post 2, fonctionne ainsi, enfin chez moi...

Ou alors quelque chose m'a échappé...

Re : format 12:00 = 00:00

J'ai pas de bol marche pas