Dans un tableau, j'ai en colonne C des codes qui commandent le remplissage
des cinq colonnes suivantes. Il s'agit d'un tableau servant à enregistrer
les présences dans une Assemblée générale.
Je voudrais introduire en colonne B l'enregistrement de l'heure d'arrivée,
avec la fonction "Maintenant()" formatée en heures/minutes. Afin d'éviter
que les données obtenues ne s'adaptent au temps qui s'écoule, je voudrais
arriver à construire une procédure qui sélectionne la plage b11:b400,
demande copie, puis en b11 encore, collage spécial/valeurs.
Quelqu'un peut-il m'aider à construire la procédure à mettre en route à
chaque introduction d'un nouveau code dans la colonnes C.
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
Jacky
Bonsoir,
Peut-être une solution par double clique dans une cellule de la plage en question. '--------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target.Columns, [b11:b400]) Is Nothing Then Target = Format(Time, "hh:mm") End Sub '-------------
-- Salutations JJ
"Jean MARTIN" a écrit dans le message de news:
Bonjour,
Dans un tableau, j'ai en colonne C des codes qui commandent le remplissage des cinq colonnes suivantes. Il s'agit d'un tableau servant à enregistrer les présences dans une Assemblée générale. Je voudrais introduire en colonne B l'enregistrement de l'heure d'arrivée, avec la fonction "Maintenant()" formatée en heures/minutes. Afin d'éviter que les données obtenues ne s'adaptent au temps qui s'écoule, je voudrais arriver à construire une procédure qui sélectionne la plage b11:b400, demande copie, puis en b11 encore, collage spécial/valeurs. Quelqu'un peut-il m'aider à construire la procédure à mettre en route à chaque introduction d'un nouveau code dans la colonnes C.
Un grand merci
Jean
Bonsoir,
Peut-être une solution par double clique dans une cellule de la plage en
question.
'---------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target.Columns, [b11:b400]) Is Nothing Then Target =
Format(Time, "hh:mm")
End Sub
'-------------
--
Salutations
JJ
"Jean MARTIN" <martin-j@skynet.be> a écrit dans le message de news:
B6B03F19-45EF-44D8-829C-3340DB6F3375@microsoft.com...
Bonjour,
Dans un tableau, j'ai en colonne C des codes qui commandent le remplissage
des cinq colonnes suivantes. Il s'agit d'un tableau servant à enregistrer
les présences dans une Assemblée générale.
Je voudrais introduire en colonne B l'enregistrement de l'heure d'arrivée,
avec la fonction "Maintenant()" formatée en heures/minutes. Afin d'éviter
que les données obtenues ne s'adaptent au temps qui s'écoule, je voudrais
arriver à construire une procédure qui sélectionne la plage b11:b400,
demande copie, puis en b11 encore, collage spécial/valeurs.
Quelqu'un peut-il m'aider à construire la procédure à mettre en route à
chaque introduction d'un nouveau code dans la colonnes C.
Peut-être une solution par double clique dans une cellule de la plage en question. '--------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target.Columns, [b11:b400]) Is Nothing Then Target = Format(Time, "hh:mm") End Sub '-------------
-- Salutations JJ
"Jean MARTIN" a écrit dans le message de news:
Bonjour,
Dans un tableau, j'ai en colonne C des codes qui commandent le remplissage des cinq colonnes suivantes. Il s'agit d'un tableau servant à enregistrer les présences dans une Assemblée générale. Je voudrais introduire en colonne B l'enregistrement de l'heure d'arrivée, avec la fonction "Maintenant()" formatée en heures/minutes. Afin d'éviter que les données obtenues ne s'adaptent au temps qui s'écoule, je voudrais arriver à construire une procédure qui sélectionne la plage b11:b400, demande copie, puis en b11 encore, collage spécial/valeurs. Quelqu'un peut-il m'aider à construire la procédure à mettre en route à chaque introduction d'un nouveau code dans la colonnes C.
Un grand merci
Jean
LSteph
Bonjour,
Si je comprends que tu veux l'heure en B quand on entre en C si C est remis à vide B aussi si saisie dans une plage comportant des cellules en C traite les cellules en B correspondantes ceci à mettre dans le code de la feuille:
Private Sub Worksheet_Change(ByVal target As Range) Dim iSect As Range, c As Range Set iSect = Intersect(Columns(3), target) If iSect Is Nothing Then Exit Sub For Each c In iSect.Cells If Not IsEmpty(c) Then c.Offset(0, -1) = Format(Now, "hh:nn:ss") Else c.Offset(0, -1) = "" End If Next End Sub
'lSteph
Bonjour,
Dans un tableau, j'ai en colonne C des codes qui commandent le remplissage des cinq colonnes suivantes. Il s'agit d'un tableau servant à enregistrer les présences dans une Assemblée générale. Je voudrais introduire en colonne B l'enregistrement de l'heure d'arrivée, avec la fonction "Maintenant()" formatée en heures/minutes. Afin d'éviter que les données obtenues ne s'adaptent au temps qui s'écoule, je voudrais arriver à construire une procédure qui sélectionne la plage b11:b400, demande copie, puis en b11 encore, collage spécial/valeurs. Quelqu'un peut-il m'aider à construire la procédure à mettre en route à chaque introduction d'un nouveau code dans la colonnes C.
Un grand merci
Jean
Bonjour,
Si je comprends que tu veux l'heure en B quand on entre en C
si C est remis à vide B aussi
si saisie dans une plage comportant des cellules en C
traite les cellules en B correspondantes
ceci à mettre dans le code de la feuille:
Private Sub Worksheet_Change(ByVal target As Range)
Dim iSect As Range, c As Range
Set iSect = Intersect(Columns(3), target)
If iSect Is Nothing Then Exit Sub
For Each c In iSect.Cells
If Not IsEmpty(c) Then
c.Offset(0, -1) = Format(Now, "hh:nn:ss")
Else
c.Offset(0, -1) = ""
End If
Next
End Sub
'lSteph
Bonjour,
Dans un tableau, j'ai en colonne C des codes qui commandent le
remplissage des cinq colonnes suivantes. Il s'agit d'un tableau servant
à enregistrer les présences dans une Assemblée générale.
Je voudrais introduire en colonne B l'enregistrement de l'heure
d'arrivée, avec la fonction "Maintenant()" formatée en heures/minutes.
Afin d'éviter que les données obtenues ne s'adaptent au temps qui
s'écoule, je voudrais arriver à construire une procédure qui sélectionne
la plage b11:b400, demande copie, puis en b11 encore, collage
spécial/valeurs.
Quelqu'un peut-il m'aider à construire la procédure à mettre en route à
chaque introduction d'un nouveau code dans la colonnes C.
Si je comprends que tu veux l'heure en B quand on entre en C si C est remis à vide B aussi si saisie dans une plage comportant des cellules en C traite les cellules en B correspondantes ceci à mettre dans le code de la feuille:
Private Sub Worksheet_Change(ByVal target As Range) Dim iSect As Range, c As Range Set iSect = Intersect(Columns(3), target) If iSect Is Nothing Then Exit Sub For Each c In iSect.Cells If Not IsEmpty(c) Then c.Offset(0, -1) = Format(Now, "hh:nn:ss") Else c.Offset(0, -1) = "" End If Next End Sub
'lSteph
Bonjour,
Dans un tableau, j'ai en colonne C des codes qui commandent le remplissage des cinq colonnes suivantes. Il s'agit d'un tableau servant à enregistrer les présences dans une Assemblée générale. Je voudrais introduire en colonne B l'enregistrement de l'heure d'arrivée, avec la fonction "Maintenant()" formatée en heures/minutes. Afin d'éviter que les données obtenues ne s'adaptent au temps qui s'écoule, je voudrais arriver à construire une procédure qui sélectionne la plage b11:b400, demande copie, puis en b11 encore, collage spécial/valeurs. Quelqu'un peut-il m'aider à construire la procédure à mettre en route à chaque introduction d'un nouveau code dans la colonnes C.
Un grand merci
Jean
Jean MARTIN
Hello!
Merci beaucoup à Jacky et Steph. J'ai trouvé là matière à avoir exactement ce que je cherchais.
Joyeux Noël à tout le monde et meilleurs voeux pour l'année qui vient.
Jean
"LSteph" a écrit dans le message de news:
Bonjour,
Si je comprends que tu veux l'heure en B quand on entre en C si C est remis à vide B aussi si saisie dans une plage comportant des cellules en C traite les cellules en B correspondantes ceci à mettre dans le code de la feuille:
Private Sub Worksheet_Change(ByVal target As Range) Dim iSect As Range, c As Range Set iSect = Intersect(Columns(3), target) If iSect Is Nothing Then Exit Sub For Each c In iSect.Cells If Not IsEmpty(c) Then c.Offset(0, -1) = Format(Now, "hh:nn:ss") Else c.Offset(0, -1) = "" End If Next End Sub
'lSteph
Bonjour,
Dans un tableau, j'ai en colonne C des codes qui commandent le remplissage des cinq colonnes suivantes. Il s'agit d'un tableau servant à enregistrer les présences dans une Assemblée générale. Je voudrais introduire en colonne B l'enregistrement de l'heure d'arrivée, avec la fonction "Maintenant()" formatée en heures/minutes. Afin d'éviter que les données obtenues ne s'adaptent au temps qui s'écoule, je voudrais arriver à construire une procédure qui sélectionne la plage b11:b400, demande copie, puis en b11 encore, collage spécial/valeurs. Quelqu'un peut-il m'aider à construire la procédure à mettre en route à chaque introduction d'un nouveau code dans la colonnes C.
Un grand merci
Jean
Hello!
Merci beaucoup à Jacky et Steph. J'ai trouvé là matière à avoir exactement
ce que je cherchais.
Joyeux Noël à tout le monde et meilleurs voeux pour l'année qui vient.
Jean
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:u3p9kyHQIHA.1164@TK2MSFTNGP02.phx.gbl...
Bonjour,
Si je comprends que tu veux l'heure en B quand on entre en C
si C est remis à vide B aussi
si saisie dans une plage comportant des cellules en C
traite les cellules en B correspondantes
ceci à mettre dans le code de la feuille:
Private Sub Worksheet_Change(ByVal target As Range)
Dim iSect As Range, c As Range
Set iSect = Intersect(Columns(3), target)
If iSect Is Nothing Then Exit Sub
For Each c In iSect.Cells
If Not IsEmpty(c) Then
c.Offset(0, -1) = Format(Now, "hh:nn:ss")
Else
c.Offset(0, -1) = ""
End If
Next
End Sub
'lSteph
Bonjour,
Dans un tableau, j'ai en colonne C des codes qui commandent le
remplissage des cinq colonnes suivantes. Il s'agit d'un tableau servant à
enregistrer les présences dans une Assemblée générale.
Je voudrais introduire en colonne B l'enregistrement de l'heure
d'arrivée, avec la fonction "Maintenant()" formatée en heures/minutes.
Afin d'éviter que les données obtenues ne s'adaptent au temps qui
s'écoule, je voudrais arriver à construire une procédure qui sélectionne
la plage b11:b400, demande copie, puis en b11 encore, collage
spécial/valeurs.
Quelqu'un peut-il m'aider à construire la procédure à mettre en route à
chaque introduction d'un nouveau code dans la colonnes C.
Merci beaucoup à Jacky et Steph. J'ai trouvé là matière à avoir exactement ce que je cherchais.
Joyeux Noël à tout le monde et meilleurs voeux pour l'année qui vient.
Jean
"LSteph" a écrit dans le message de news:
Bonjour,
Si je comprends que tu veux l'heure en B quand on entre en C si C est remis à vide B aussi si saisie dans une plage comportant des cellules en C traite les cellules en B correspondantes ceci à mettre dans le code de la feuille:
Private Sub Worksheet_Change(ByVal target As Range) Dim iSect As Range, c As Range Set iSect = Intersect(Columns(3), target) If iSect Is Nothing Then Exit Sub For Each c In iSect.Cells If Not IsEmpty(c) Then c.Offset(0, -1) = Format(Now, "hh:nn:ss") Else c.Offset(0, -1) = "" End If Next End Sub
'lSteph
Bonjour,
Dans un tableau, j'ai en colonne C des codes qui commandent le remplissage des cinq colonnes suivantes. Il s'agit d'un tableau servant à enregistrer les présences dans une Assemblée générale. Je voudrais introduire en colonne B l'enregistrement de l'heure d'arrivée, avec la fonction "Maintenant()" formatée en heures/minutes. Afin d'éviter que les données obtenues ne s'adaptent au temps qui s'écoule, je voudrais arriver à construire une procédure qui sélectionne la plage b11:b400, demande copie, puis en b11 encore, collage spécial/valeurs. Quelqu'un peut-il m'aider à construire la procédure à mettre en route à chaque introduction d'un nouveau code dans la colonnes C.
