Bonjour,
je dispose dans ma boite d'un classeur d'enregistrement du temps de
travail qui tourne bien. Cependant, pour "pointer", on doit entrer les
heures =E0 la main. Mon patron aimerai que nous ne fassions que
"cliquer" pour rapatrier l'heure systeme sur le tableau
d'enregistrement.
Description de la feuille :
colonne date de 31(ou 30 ou 28) lignes
1 colonne debut matinee
1 colonne fin matinee
1 colonne debut apres midi
1 colonne fin apres midi
Jaimerai que lorsqu'on clique sur un bouton, celui-ci renvoie
maintenant() dans la premi=E8re case non vide. Ce bouton servirai =E0
faire le pointage debut/fin.
De plus, j'aimerai =E9galement que les utilisateurs ne puissent pas
modifier =E0 la main les horaires entr=E9es...
Ben je suis bloqu=E9 pour tout =E7a.
Si vous aviez des id=E9es...
Merci d'avance
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
Daniel
Bonjour. Les heures étant dans les colonnes A, B, C et D :
Private Sub CommandButton1_Click() Dim Ligne As Long, Plage As Range, c As Range ActiveSheet.Unprotect Ligne = WorksheetFunction.Min(Range("A65536").End(xlUp).Row, _ Range("B65536").End(xlUp).Row, Range("C65536").End(xlUp).Row, _ Range("D65536").End(xlUp).Row) + 1 Set Plage = Range("A" & Ligne & ":D" & Ligne) For Each c In Plage If c.Value = "" Then c.Value = Time Exit For End If Next c ActiveSheet.Protect End Sub
Cordialement. Daniel "pcarme" a écrit dans le message de news:
Bonjour, je dispose dans ma boite d'un classeur d'enregistrement du temps de travail qui tourne bien. Cependant, pour "pointer", on doit entrer les heures à la main. Mon patron aimerai que nous ne fassions que "cliquer" pour rapatrier l'heure systeme sur le tableau d'enregistrement. Description de la feuille : colonne date de 31(ou 30 ou 28) lignes 1 colonne debut matinee 1 colonne fin matinee 1 colonne debut apres midi 1 colonne fin apres midi
Jaimerai que lorsqu'on clique sur un bouton, celui-ci renvoie maintenant() dans la première case non vide. Ce bouton servirai à faire le pointage debut/fin.
De plus, j'aimerai également que les utilisateurs ne puissent pas modifier à la main les horaires entrées...
Ben je suis bloqué pour tout ça. Si vous aviez des idées... Merci d'avance
Bonjour.
Les heures étant dans les colonnes A, B, C et D :
Private Sub CommandButton1_Click()
Dim Ligne As Long, Plage As Range, c As Range
ActiveSheet.Unprotect
Ligne = WorksheetFunction.Min(Range("A65536").End(xlUp).Row, _
Range("B65536").End(xlUp).Row, Range("C65536").End(xlUp).Row, _
Range("D65536").End(xlUp).Row) + 1
Set Plage = Range("A" & Ligne & ":D" & Ligne)
For Each c In Plage
If c.Value = "" Then
c.Value = Time
Exit For
End If
Next c
ActiveSheet.Protect
End Sub
Cordialement.
Daniel
"pcarme" <ppradignac@gmail.com> a écrit dans le message de news:
1119881927.585870.34350@g47g2000cwa.googlegroups.com...
Bonjour,
je dispose dans ma boite d'un classeur d'enregistrement du temps de
travail qui tourne bien. Cependant, pour "pointer", on doit entrer les
heures à la main. Mon patron aimerai que nous ne fassions que
"cliquer" pour rapatrier l'heure systeme sur le tableau
d'enregistrement.
Description de la feuille :
colonne date de 31(ou 30 ou 28) lignes
1 colonne debut matinee
1 colonne fin matinee
1 colonne debut apres midi
1 colonne fin apres midi
Jaimerai que lorsqu'on clique sur un bouton, celui-ci renvoie
maintenant() dans la première case non vide. Ce bouton servirai à
faire le pointage debut/fin.
De plus, j'aimerai également que les utilisateurs ne puissent pas
modifier à la main les horaires entrées...
Ben je suis bloqué pour tout ça.
Si vous aviez des idées...
Merci d'avance
Bonjour. Les heures étant dans les colonnes A, B, C et D :
Private Sub CommandButton1_Click() Dim Ligne As Long, Plage As Range, c As Range ActiveSheet.Unprotect Ligne = WorksheetFunction.Min(Range("A65536").End(xlUp).Row, _ Range("B65536").End(xlUp).Row, Range("C65536").End(xlUp).Row, _ Range("D65536").End(xlUp).Row) + 1 Set Plage = Range("A" & Ligne & ":D" & Ligne) For Each c In Plage If c.Value = "" Then c.Value = Time Exit For End If Next c ActiveSheet.Protect End Sub
Cordialement. Daniel "pcarme" a écrit dans le message de news:
Bonjour, je dispose dans ma boite d'un classeur d'enregistrement du temps de travail qui tourne bien. Cependant, pour "pointer", on doit entrer les heures à la main. Mon patron aimerai que nous ne fassions que "cliquer" pour rapatrier l'heure systeme sur le tableau d'enregistrement. Description de la feuille : colonne date de 31(ou 30 ou 28) lignes 1 colonne debut matinee 1 colonne fin matinee 1 colonne debut apres midi 1 colonne fin apres midi
Jaimerai que lorsqu'on clique sur un bouton, celui-ci renvoie maintenant() dans la première case non vide. Ce bouton servirai à faire le pointage debut/fin.
De plus, j'aimerai également que les utilisateurs ne puissent pas modifier à la main les horaires entrées...
Ben je suis bloqué pour tout ça. Si vous aviez des idées... Merci d'avance
zebulon
Merci beaucoup pour votre réponse (très rapide de surcroit). Je teste dès demain. a+
Merci beaucoup pour votre réponse (très rapide de surcroit).
Je teste dès demain.
a+
