Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Toujours heure et date mais dans une macro cette fois

Toujours heure et date mais dans une macro cette fois

15 réponses
Avatar
VIRATELLE Gilles
Bonjour voici un exemple parmi les 20 macro de mon fichier

Sub Macro27()
'
' Macro27 Macro
' Macro enregistrée le 16/06/2004 par gilles.viratelle
'

'
Rows("27:27").Select
Selection.Copy
Sheets("VALIDER").Select
Range("A1").End(xlDown).Offset(1, 0).Select
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
xxx
Sheets("TEST").Select
Range("D5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C27:H27").Select
Selection.ClearContents
Range("A1").Select
End Sub



xxx en colonne N date + heure du macro déclenché au format JJ/MM/AA
HH:MM de préférence

Et si le code peut être amélioré voir aussi post suivant pour liste des
données en vue de simplifié les macros (qté 20 différentes) liées à 20
boutons
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
VIRATELLE Gilles
Macro : dernier code à jour et en même temps deuxième macro 27 en 1er
et maintenant 11


Sub Macro11()
'
' Macro11 Macro
' Macro enregistrée le 16/06/2004 par gilles.viratelle
'

'
Rows("11:11").Select
Selection.Copy
Sheets("VALIDER").Select
Range("A1").End(xlDown).Offset(1, 0).Select
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Sheets("TEST").Select
Range("B1").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C11:H11").Select
Selection.ClearContents
Range("N11:Q11").Select
Selection.ClearContents
Range("A1").Select
End Sub
Avatar
Philippe.R
Bonjour,
Pas sur d'avoir compris ton attente, mais il me semble que le code pourrait être allègé ainsi :

Sub Macro11()
'
' Macro enregistrée le 16/06/2004 par gilles.viratelle
'
Rows("11:11").Copy
Sheets("VALIDER").Select
Range("A1").End(xlDown).Offset(1, 0).Select
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
Sheets("TEST").Select
union(Range("B1"),Range("C11:H11"),Range("N11:Q11")).ClearContents
Range("A1").Select
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"VIRATELLE Gilles" a écrit dans le message de news:
Macro : dernier code à jour et en même temps deuxième macro 27 en 1er
et maintenant 11


Sub Macro11()
'
' Macro11 Macro
' Macro enregistrée le 16/06/2004 par gilles.viratelle
'

'
Rows("11:11").Select
Selection.Copy
Sheets("VALIDER").Select
Range("A1").End(xlDown).Offset(1, 0).Select
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Sheets("TEST").Select
Range("B1").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C11:H11").Select
Selection.ClearContents
Range("N11:Q11").Select
Selection.ClearContents
Range("A1").Select
End Sub




Avatar
Philippe.R
Bonjour,
Ceci convient il ?

Sub Macro27()
' Macro enregistrée le 16/06/2004 par gilles.viratelle

Rows("27:27").Copy
Sheets("VALIDER").Select
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse

Application.CutCopyMode = False

Range("A1").End(xlDown).Offset(0, 13).value=now

Sheets("TEST").Select
union(Range("D5"),Range("C27:H27")).ClearContents
Range("A1").Select
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"VIRATELLE Gilles" a écrit dans le message de news:
Bonjour voici un exemple parmi les 20 macro de mon fichier

Sub Macro27()
'
' Macro27 Macro
' Macro enregistrée le 16/06/2004 par gilles.viratelle
'

'
Rows("27:27").Select
Selection.Copy
Sheets("VALIDER").Select
Range("A1").End(xlDown).Offset(1, 0).Select
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
xxx
Sheets("TEST").Select
Range("D5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C27:H27").Select
Selection.ClearContents
Range("A1").Select
End Sub



xxx en colonne N date + heure du macro déclenché au format JJ/MM/AA
HH:MM de préférence

Et si le code peut être amélioré voir aussi post suivant pour liste des
données en vue de simplifié les macros (qté 20 différentes) liées à 20
boutons




Avatar
AV
Le passage par la méthode "Copy" n'étant pas, dans ce cas, nécessaire, ça
pourrait même se résumer à ça :

[VALIDER!A1].End(xlDown).Offset(1, 0).EntireRow = [11:11].Value
[B1,C11:H11,N11:Q11] = ""
[A1].Select

AV
Avatar
Philippe.R
Bonjour Alain,
Manque quand même dans ce superbe condensé l'équivalent de :

Range("A1").End(xlDown).Offset(0, 13).value=now

ou bien me gour-je ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"AV" a écrit dans le message de news:
Le passage par la méthode "Copy" n'étant pas, dans ce cas, nécessaire, ça
pourrait même se résumer à ça :

[VALIDER!A1].End(xlDown).Offset(1, 0).EntireRow = [11:11].Value
[B1,C11:H11,N11:Q11] = ""
[A1].Select

AV




Avatar
AV
Manque quand même dans ce superbe condensé l'équivalent de :
Range("A1").End(xlDown).Offset(0, 13).value=now


Heu... pas vu trace de ça dans ce fil... mais bon, y a ka...

AV

Avatar
VIRATELLE Gilles
Ce qui fait que au final le code ressemble à quoi ?
Gilles
Avatar
sabatier
la dernière fois qu'AV a contracté pour moi une proc, il a tellement
bien réussi, ce bougre de corrézien, que j'ai reçu un émile vierge de
toute expression...
jps

AV a écrit:
Le passage par la méthode "Copy" n'étant pas, dans ce cas, nécessaire, ça
pourrait même se résumer à ça :

[VALIDER!A1].End(xlDown).Offset(1, 0).EntireRow = [11:11].Value
[B1,C11:H11,N11:Q11] = ""
[A1].Select

AV




Avatar
sabatier
moi, j'ai vu, môssieu, car moi, môssieu, je conserve le message
originel, voire même le péché parfois...
jps

AV a écrit:
Manque quand même dans ce superbe condensé l'équivalent de :
Range("A1").End(xlDown).Offset(0, 13).value=now



Heu... pas vu trace de ça dans ce fil... mais bon, y a ka...

AV





Avatar
sabatier
hé ho gilles
tu ne vas quand même pas les eng.....
ils décarcassent pour toi et tu leur cries dessus...
un p'tit effort de ta part s'impose sinon tu vas vite venir à bout de la
patience d'AV qui, comme chacun sait, n'est pas infinie...
jps

VIRATELLE Gilles a écrit:
Ce qui fait que au final le code ressemble à quoi ?
Gilles




1 2