Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint
et donc c'est aux répondeurs bénévoles, non seulement de trouver la
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint
et donc c'est aux répondeurs bénévoles, non seulement de trouver la
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint
et donc c'est aux répondeurs bénévoles, non seulement de trouver la
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint
et donc c'est aux répondeurs bénévoles, non seulement de trouver la
réponse, de te la mettre en forme mais en plus de formuler tes questions ?
Faut peut être pas charrier quand même. En tous cas moi ce genre de
message, désolée mais c'est non.
Ton classeur aura disparu dans 3 semaines et ne sera plus consultable
depuis les archives de google.
Merci de poser des questions très précises appellant des réponses précises
qui peuvent servir à d'autres contributeurs d'un FORUM, pas d'une hotline
gratuite.
Bon dimanche à toi aussi..
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint
et donc c'est aux répondeurs bénévoles, non seulement de trouver la
réponse, de te la mettre en forme mais en plus de formuler tes questions ?
Faut peut être pas charrier quand même. En tous cas moi ce genre de
message, désolée mais c'est non.
Ton classeur aura disparu dans 3 semaines et ne sera plus consultable
depuis les archives de google.
Merci de poser des questions très précises appellant des réponses précises
qui peuvent servir à d'autres contributeurs d'un FORUM, pas d'une hotline
gratuite.
Bon dimanche à toi aussi..
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint
et donc c'est aux répondeurs bénévoles, non seulement de trouver la
réponse, de te la mettre en forme mais en plus de formuler tes questions ?
Faut peut être pas charrier quand même. En tous cas moi ce genre de
message, désolée mais c'est non.
Ton classeur aura disparu dans 3 semaines et ne sera plus consultable
depuis les archives de google.
Merci de poser des questions très précises appellant des réponses précises
qui peuvent servir à d'autres contributeurs d'un FORUM, pas d'une hotline
gratuite.
Bon dimanche à toi aussi..
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Vous vous croyez qui et où ?http://xlwiki.free.fr/wiki
http://www.excelabo.net
Vous vous croyez qui et où ?
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Vous vous croyez qui et où ?http://xlwiki.free.fr/wiki
http://www.excelabo.net
Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre , je
préfère vous laisser un fichier joint à ce message pour que vous com preniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL
Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre , je
préfère vous laisser un fichier joint à ce message pour que vous com preniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL
Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre , je
préfère vous laisser un fichier joint à ce message pour que vous com preniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL
Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL
Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL
Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL
Bonjour et merci JB !
Je vais tester ce code.
A+
Almaric
"JB" a écrit dans le message de news:
Bonjour,
Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2
Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub
Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub
Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub
Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub
Modules de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub
Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub
http://cjoint.com/?cyq7WQuyT8
JB
On 24 fév, 14:52, "Amalric Parré" wrote:Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprend re, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL- Masquer le texte des messages précéden ts -
- Afficher le texte des messages précédents -
Bonjour et merci JB !
Je vais tester ce code.
A+
Almaric
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
e9582d08-612e-4d2b-9dfd-618cbfe67...@h25g2000hsf.googlegroups.com...
Bonjour,
Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2
Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub
Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub
Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub
Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub
Modules de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub
Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub
http://cjoint.com/?cyq7WQuyT8
JB
On 24 fév, 14:52, "Amalric Parré" <al...@free.fr> wrote:
Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprend re, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL- Masquer le texte des messages précéden ts -
- Afficher le texte des messages précédents -
Bonjour et merci JB !
Je vais tester ce code.
A+
Almaric
"JB" a écrit dans le message de news:
Bonjour,
Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2
Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub
Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub
Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub
Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub
Modules de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub
Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub
http://cjoint.com/?cyq7WQuyT8
JB
On 24 fév, 14:52, "Amalric Parré" wrote:Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprend re, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL- Masquer le texte des messages précéden ts -
- Afficher le texte des messages précédents -
Bonjour et merci JB !
Je vais tester ce code.
A+
Almaric
"JB" a écrit dans le message de news:
Bonjour,
Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2
Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub
Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub
Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub
Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub
Modules de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub
Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub
http://cjoint.com/?cyq7WQuyT8
JB
On 24 fév, 14:52, "Amalric Parré" wrote:Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour et merci JB !
Je vais tester ce code.
A+
Almaric
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
e9582d08-612e-4d2b-9dfd-618cbfe67...@h25g2000hsf.googlegroups.com...
Bonjour,
Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2
Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub
Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub
Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub
Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub
Modules de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub
Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub
http://cjoint.com/?cyq7WQuyT8
JB
On 24 fév, 14:52, "Amalric Parré" <al...@free.fr> wrote:
Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour et merci JB !
Je vais tester ce code.
A+
Almaric
"JB" a écrit dans le message de news:
Bonjour,
Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2
Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub
Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub
Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub
Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub
Modules de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub
Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub
http://cjoint.com/?cyq7WQuyT8
JB
On 24 fév, 14:52, "Amalric Parré" wrote:Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re,
Il y a des bugs dans l'appli :
- quand je saisie "5,25" (centième d'heure) le résultat est "05:15"
- quand je clique sur le bouton "VALIDER", un message d'erreur apparaît
Si vous pouvez trouver d'où cela provient...
Merci
A+
Amalric
"JB" a écrit dans le message de news:
Qq remarques:
-Les libellés sont réalisés avec des TextBox. Les labels (A) seraient
préférables.
-La saisie des activités pourrait se faire avec des ComboBox
JB
On 24 fév, 17:08, "Amalric Parré" wrote:Bonjour et merci JB !
Je vais tester ce code.
A+
Almaric
"JB" a écrit dans le message de news:
Bonjour,
Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2
Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub
Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub
Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub
Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub
Modules de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub
Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub
http://cjoint.com/?cyq7WQuyT8
JB
On 24 fév, 14:52, "Amalric Parré" wrote:Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre,
je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL- Masquer le texte des messages
précédents -
- Afficher le texte des messages précédents -
Re,
Il y a des bugs dans l'appli :
- quand je saisie "5,25" (centième d'heure) le résultat est "05:15"
- quand je clique sur le bouton "VALIDER", un message d'erreur apparaît
Si vous pouvez trouver d'où cela provient...
Merci
A+
Amalric
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
83b9c5b7-9c25-4869-aedf-1adce48cb3ce@41g2000hsc.googlegroups.com...
Qq remarques:
-Les libellés sont réalisés avec des TextBox. Les labels (A) seraient
préférables.
-La saisie des activités pourrait se faire avec des ComboBox
JB
On 24 fév, 17:08, "Amalric Parré" <al...@free.fr> wrote:
Bonjour et merci JB !
Je vais tester ce code.
A+
Almaric
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
e9582d08-612e-4d2b-9dfd-618cbfe67...@h25g2000hsf.googlegroups.com...
Bonjour,
Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2
Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub
Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub
Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub
Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub
Modules de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub
Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub
http://cjoint.com/?cyq7WQuyT8
JB
On 24 fév, 14:52, "Amalric Parré" <al...@free.fr> wrote:
Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre,
je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL- Masquer le texte des messages
précédents -
- Afficher le texte des messages précédents -
Re,
Il y a des bugs dans l'appli :
- quand je saisie "5,25" (centième d'heure) le résultat est "05:15"
- quand je clique sur le bouton "VALIDER", un message d'erreur apparaît
Si vous pouvez trouver d'où cela provient...
Merci
A+
Amalric
"JB" a écrit dans le message de news:
Qq remarques:
-Les libellés sont réalisés avec des TextBox. Les labels (A) seraient
préférables.
-La saisie des activités pourrait se faire avec des ComboBox
JB
On 24 fév, 17:08, "Amalric Parré" wrote:Bonjour et merci JB !
Je vais tester ce code.
A+
Almaric
"JB" a écrit dans le message de news:
Bonjour,
Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2
Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub
Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub
Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub
Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub
Modules de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub
Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub
http://cjoint.com/?cyq7WQuyT8
JB
On 24 fév, 14:52, "Amalric Parré" wrote:Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre,
je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL- Masquer le texte des messages
précédents -
- Afficher le texte des messages précédents -
Re,
Il y a des bugs dans l'appli :
- quand je saisie "5,25" (centième d'heure) le résultat est "05:15"
- quand je clique sur le bouton "VALIDER", un message d'erreur apparaît
Si vous pouvez trouver d'où cela provient...
Merci
A+
Amalric
"JB" a écrit dans le message de news:
Qq remarques:
-Les libellés sont réalisés avec des TextBox. Les labels (A) seraien t
préférables.
-La saisie des activités pourrait se faire avec des ComboBox
JB
On 24 fév, 17:08, "Amalric Parré" wrote:Bonjour et merci JB !
Je vais tester ce code.
A+
Almaric
"JB" a écrit dans le message de news:
Bonjour,
Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2
Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub
Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub
Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub
Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub
Modules de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub
Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub
http://cjoint.com/?cyq7WQuyT8
JB
On 24 fév, 14:52, "Amalric Parré" wrote:Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire compre ndre, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL-Masquer le texte des messages précéde nts -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re,
Il y a des bugs dans l'appli :
- quand je saisie "5,25" (centième d'heure) le résultat est "05:15"
- quand je clique sur le bouton "VALIDER", un message d'erreur apparaît
Si vous pouvez trouver d'où cela provient...
Merci
A+
Amalric
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
83b9c5b7-9c25-4869-aedf-1adce48cb...@41g2000hsc.googlegroups.com...
Qq remarques:
-Les libellés sont réalisés avec des TextBox. Les labels (A) seraien t
préférables.
-La saisie des activités pourrait se faire avec des ComboBox
JB
On 24 fév, 17:08, "Amalric Parré" <al...@free.fr> wrote:
Bonjour et merci JB !
Je vais tester ce code.
A+
Almaric
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
e9582d08-612e-4d2b-9dfd-618cbfe67...@h25g2000hsf.googlegroups.com...
Bonjour,
Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2
Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub
Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub
Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub
Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub
Modules de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub
Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub
http://cjoint.com/?cyq7WQuyT8
JB
On 24 fév, 14:52, "Amalric Parré" <al...@free.fr> wrote:
Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire compre ndre, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL-Masquer le texte des messages précéde nts -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re,
Il y a des bugs dans l'appli :
- quand je saisie "5,25" (centième d'heure) le résultat est "05:15"
- quand je clique sur le bouton "VALIDER", un message d'erreur apparaît
Si vous pouvez trouver d'où cela provient...
Merci
A+
Amalric
"JB" a écrit dans le message de news:
Qq remarques:
-Les libellés sont réalisés avec des TextBox. Les labels (A) seraien t
préférables.
-La saisie des activités pourrait se faire avec des ComboBox
JB
On 24 fév, 17:08, "Amalric Parré" wrote:Bonjour et merci JB !
Je vais tester ce code.
A+
Almaric
"JB" a écrit dans le message de news:
Bonjour,
Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2
Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub
Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub
Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub
Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub
Modules de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub
Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub
http://cjoint.com/?cyq7WQuyT8
JB
On 24 fév, 14:52, "Amalric Parré" wrote:Bonjour à vous,
Plutôt qu'un grand discours où j'aurais du mal à me faire compre ndre, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !
J'espère que vous m'aiderez à sortir de ce "guêpier".
D'avance, merci pour vos efforts.
Cdt
Amalric
http://cjoint.com/?cyoW3UXwtL-Masquer le texte des messages précéde nts -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Quelle arogance !
Vous êtes la responsable de ce forum ?
Non ? Alors veuillez passer votre chemin, il ya sûrement d'autres bénévoles
plus respectueux que vous et qui ont peut-être envie de répondre ne
serait-ce qau'à un de mes problèmes.
Je ne demande pas à ce que le travail soit du "tout fait", j'essaye
seulement de me former à VBA et à demander conseils à des personnes
expérimentées !
De plus je remarque vous êtes coutumière de ce genre de réaction ! Vous vous
croyez qui et où ?
Et pas de "Tu" avec moi, nous n'avons élevé des vaches ensemble que je sache
!!!
Quelle arogance !
Vous êtes la responsable de ce forum ?
Non ? Alors veuillez passer votre chemin, il ya sûrement d'autres bénévoles
plus respectueux que vous et qui ont peut-être envie de répondre ne
serait-ce qau'à un de mes problèmes.
Je ne demande pas à ce que le travail soit du "tout fait", j'essaye
seulement de me former à VBA et à demander conseils à des personnes
expérimentées !
De plus je remarque vous êtes coutumière de ce genre de réaction ! Vous vous
croyez qui et où ?
Et pas de "Tu" avec moi, nous n'avons élevé des vaches ensemble que je sache
!!!
Quelle arogance !
Vous êtes la responsable de ce forum ?
Non ? Alors veuillez passer votre chemin, il ya sûrement d'autres bénévoles
plus respectueux que vous et qui ont peut-être envie de répondre ne
serait-ce qau'à un de mes problèmes.
Je ne demande pas à ce que le travail soit du "tout fait", j'essaye
seulement de me former à VBA et à demander conseils à des personnes
expérimentées !
De plus je remarque vous êtes coutumière de ce genre de réaction ! Vous vous
croyez qui et où ?
Et pas de "Tu" avec moi, nous n'avons élevé des vaches ensemble que je sache
!!!