Bonjour à tous
Je n'arrive pas à voir JB je suppose qu'il doit être en vacance ?
Quelqu'un peut il m'aider en son absence ?
Il ma installé un chrono.
Au fur et à mesure que j'avance, je m'apercevoir que je ne peut pas
faire démarrer le chrono en sélectionnant une cellule fusionnée, est- il
possible quand même de le faire ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?leipMh0ivx
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([C3:H20], Target) Is Nothing And Target.Count = 1 _ Or Target.Address = "$D$4:$E$6" _ Or Target.Address = "$F$10:$G$12" _ Or Target.Address = "$D$16:$E$18" Then If [Démarre] = False And Application.Sum([C3:H20]) = 0 Then [Démarre] = True [TempsDépart] = Timer() majChrono End If If [Démarre] = True And [Pause] = True Then Fpause End If End Sub
JB
Bonjour à tous Je n'arrive pas à voir JB je suppose qu'il doit être en vacance ? Quelqu'un peut il m'aider en son absence ?
Il ma installé un chrono. Au fur et à mesure que j'avance, je m'apercevoir que je ne peut pas faire démarrer le chrono en sélectionnant une cellule fusionnée, es t- il possible quand même de le faire ?
Merci de votre aide.
http://cjoint.com/?lehHgsyIWS
Cordialement Guy
Bonjour,
http://cjoint.com/?leipMh0ivx
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([C3:H20], Target) Is Nothing And Target.Count = 1 _
Or Target.Address = "$D$4:$E$6" _
Or Target.Address = "$F$10:$G$12" _
Or Target.Address = "$D$16:$E$18" Then
If [Démarre] = False And Application.Sum([C3:H20]) = 0 Then
[Démarre] = True
[TempsDépart] = Timer()
majChrono
End If
If [Démarre] = True And [Pause] = True Then Fpause
End If
End Sub
JB
Bonjour à tous
Je n'arrive pas à voir JB je suppose qu'il doit être en vacance ?
Quelqu'un peut il m'aider en son absence ?
Il ma installé un chrono.
Au fur et à mesure que j'avance, je m'apercevoir que je ne peut pas
faire démarrer le chrono en sélectionnant une cellule fusionnée, es t- il
possible quand même de le faire ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([C3:H20], Target) Is Nothing And Target.Count = 1 _ Or Target.Address = "$D$4:$E$6" _ Or Target.Address = "$F$10:$G$12" _ Or Target.Address = "$D$16:$E$18" Then If [Démarre] = False And Application.Sum([C3:H20]) = 0 Then [Démarre] = True [TempsDépart] = Timer() majChrono End If If [Démarre] = True And [Pause] = True Then Fpause End If End Sub
JB
Bonjour à tous Je n'arrive pas à voir JB je suppose qu'il doit être en vacance ? Quelqu'un peut il m'aider en son absence ?
Il ma installé un chrono. Au fur et à mesure que j'avance, je m'apercevoir que je ne peut pas faire démarrer le chrono en sélectionnant une cellule fusionnée, es t- il possible quand même de le faire ?
Merci de votre aide.
http://cjoint.com/?lehHgsyIWS
Cordialement Guy
Guy72
Bonjour JB Merci de ton aide, excuse moi ,je croyais que tu était parti en vacances. A+ Cordialement Guy "JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?leipMh0ivx
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([C3:H20], Target) Is Nothing And Target.Count = 1 _ Or Target.Address = "$D$4:$E$6" _ Or Target.Address = "$F$10:$G$12" _ Or Target.Address = "$D$16:$E$18" Then If [Démarre] = False And Application.Sum([C3:H20]) = 0 Then [Démarre] = True [TempsDépart] = Timer() majChrono End If If [Démarre] = True And [Pause] = True Then Fpause End If End Sub
JB
Bonjour à tous Je n'arrive pas à voir JB je suppose qu'il doit être en vacance ? Quelqu'un peut il m'aider en son absence ?
Il ma installé un chrono. Au fur et à mesure que j'avance, je m'apercevoir que je ne peut pas faire démarrer le chrono en sélectionnant une cellule fusionnée, est- il possible quand même de le faire ?
Merci de votre aide.
http://cjoint.com/?lehHgsyIWS
Cordialement Guy
Bonjour JB
Merci de ton aide, excuse moi ,je croyais que tu était parti en vacances.
A+
Cordialement
Guy
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1162624633.096161.43460@i42g2000cwa.googlegroups.com...
Bonjour,
http://cjoint.com/?leipMh0ivx
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([C3:H20], Target) Is Nothing And Target.Count = 1 _
Or Target.Address = "$D$4:$E$6" _
Or Target.Address = "$F$10:$G$12" _
Or Target.Address = "$D$16:$E$18" Then
If [Démarre] = False And Application.Sum([C3:H20]) = 0 Then
[Démarre] = True
[TempsDépart] = Timer()
majChrono
End If
If [Démarre] = True And [Pause] = True Then Fpause
End If
End Sub
JB
Bonjour à tous
Je n'arrive pas à voir JB je suppose qu'il doit être en vacance ?
Quelqu'un peut il m'aider en son absence ?
Il ma installé un chrono.
Au fur et à mesure que j'avance, je m'apercevoir que je ne peut pas
faire démarrer le chrono en sélectionnant une cellule fusionnée, est- il
possible quand même de le faire ?
Bonjour JB Merci de ton aide, excuse moi ,je croyais que tu était parti en vacances. A+ Cordialement Guy "JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?leipMh0ivx
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([C3:H20], Target) Is Nothing And Target.Count = 1 _ Or Target.Address = "$D$4:$E$6" _ Or Target.Address = "$F$10:$G$12" _ Or Target.Address = "$D$16:$E$18" Then If [Démarre] = False And Application.Sum([C3:H20]) = 0 Then [Démarre] = True [TempsDépart] = Timer() majChrono End If If [Démarre] = True And [Pause] = True Then Fpause End If End Sub
JB
Bonjour à tous Je n'arrive pas à voir JB je suppose qu'il doit être en vacance ? Quelqu'un peut il m'aider en son absence ?
Il ma installé un chrono. Au fur et à mesure que j'avance, je m'apercevoir que je ne peut pas faire démarrer le chrono en sélectionnant une cellule fusionnée, est- il possible quand même de le faire ?
