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

5 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
Philippe.R
Re,
En fait c'est pas du même post qu'on cause !
:o)))

c'est pour celle ci :

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

qui devrait donc devenir, si j'y comprends encore quelque chose:

Sub Macro11()
' Macro de gilles.viratelle
' comprimée par AV sur MPFE le 20/06/04
' allongée par Philippe.R le même jour

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

End Sub

;o)))
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"AV" a écrit dans le message de news:
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
LeSteph
Oui mais quand même , heu!
grâce à lui j'ai AVantageusement remplacé
certains RechercheV
(pas tous, parfois c'est plus court ...
mais à gauche seulement)
par du Indirect et du Index / Equiv..etc..
Alors merci AV pour tes utiles astuces!

:-)

LeSteph

"sabatier" a écrit dans le
message de news:
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







Avatar
sabatier
si AVec tout ça, ce brAVe AV ne sort pas de son hAVre de paix pour
t'AVouer qu'il se sent tout fiAVreux (ouais, ouais, pas terrible mais
bon..) de plaisir devant cet AVlux (de pis en pis mais ne m'adresse-je
pas au plateau de millevaches?...) de suAVités...
jps

LeSteph a écrit:
Oui mais quand même , heu!
grâce à lui j'ai AVantageusement remplacé
certains RechercheV
(pas tous, parfois c'est plus court ...
mais à gauche seulement)
par du Indirect et du Index / Equiv..etc..
Alors merci AV pour tes utiles astuces!

:-)

LeSteph

"sabatier" a écrit dans le
message de news:

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











Avatar
LeSteph
Alors là tu exagères
on Ne critique pas le plateau de milles Vachs
Car il s'agit des Vallons et non des vaches qui
d'en haut irriguent La Corrèze et dAVantage
même!
En plus ce sont d'excellents coins à ...
http://cocosteph.free.fr

:-)
LeSteph

"sabatier" a écrit dans le
message de news:
si AVec tout ça, ce brAVe AV ne sort pas de son hAVre de paix pour
t'AVouer qu'il se sent tout fiAVreux (ouais, ouais, pas terrible mais
bon..) de plaisir devant cet AVlux (de pis en pis mais ne m'adresse-je
pas au plateau de millevaches?...) de suAVités...
jps

LeSteph a écrit:
Oui mais quand même , heu!
grâce à lui j'ai AVantageusement remplacé
certains RechercheV
(pas tous, parfois c'est plus court ...
mais à gauche seulement)
par du Indirect et du Index / Equiv..etc..
Alors merci AV pour tes utiles astuces!

:-)

LeSteph

"sabatier" a écrit dans le
message de news:

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














Avatar
AV
si AVec tout ça, ce brAVe AV ne sort pas de son hAVre de paix pour
t'AVouer qu'il se sent tout fiAVreux (ouais, ouais, pas terrible mais
bon..) de plaisir devant cet AVlux (de pis en pis mais ne m'adresse-je
pas au plateau de millevaches?...) de suAVités...


Mais, mon cher JPS, me voilà...........
Pffff ...pour le nom en clair ("plateau de mille sources") car les robots
fureteurs des agences immobilières anglaises ont l'oeil !
Ils sont partout : même plus moyen de ramasser tranquillement un coffre de
"boletus aedulis"

AV

1 2