Je voudrait faire une macro qui me permet de copier une colonne de 12
cellule a partir de l'endroit ou est mon courseur descendre de 1 et insérer
la date aujourd'hui et redescendre de 1 pour insérer mes initiale DP.
Merci
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
michdenis
Bonjour Daniel,
Worksheets("Feuil2").Range("A1") = destination où tes cellules seront copiées et les initiales et la date vont être inscrit au bas de la plage de destination. '------------------------ Sub Manipulation()
Dim Dest As Range Set Dest = Worksheets("Feuil2").Range("A1") With ActiveCell .Resize(12, 1).Copy Dest Dest.Offset(12) = Date Dest.Offset(13) = "Mes initials" End With Set Dest = Nothing End Sub
'------------------------
Salutations!
"Daniel" a écrit dans le message de news:9oP7b.100747$ Je voudrait faire une macro qui me permet de copier une colonne de 12 cellule a partir de l'endroit ou est mon courseur descendre de 1 et insérer la date aujourd'hui et redescendre de 1 pour insérer mes initiale DP. Merci
Bonjour Daniel,
Worksheets("Feuil2").Range("A1") = destination où tes cellules seront copiées
et les initiales et la date vont être inscrit au bas de la plage de destination.
'------------------------
Sub Manipulation()
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("A1")
With ActiveCell
.Resize(12, 1).Copy Dest
Dest.Offset(12) = Date
Dest.Offset(13) = "Mes initials"
End With
Set Dest = Nothing
End Sub
'------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:9oP7b.100747$yg2.1881607@weber.videotron.net...
Je voudrait faire une macro qui me permet de copier une colonne de 12
cellule a partir de l'endroit ou est mon courseur descendre de 1 et insérer
la date aujourd'hui et redescendre de 1 pour insérer mes initiale DP.
Merci
Worksheets("Feuil2").Range("A1") = destination où tes cellules seront copiées et les initiales et la date vont être inscrit au bas de la plage de destination. '------------------------ Sub Manipulation()
Dim Dest As Range Set Dest = Worksheets("Feuil2").Range("A1") With ActiveCell .Resize(12, 1).Copy Dest Dest.Offset(12) = Date Dest.Offset(13) = "Mes initials" End With Set Dest = Nothing End Sub
'------------------------
Salutations!
"Daniel" a écrit dans le message de news:9oP7b.100747$ Je voudrait faire une macro qui me permet de copier une colonne de 12 cellule a partir de l'endroit ou est mon courseur descendre de 1 et insérer la date aujourd'hui et redescendre de 1 pour insérer mes initiale DP. Merci
TroXsA
Oui ben c'est la meme chose ce que j'ai fait !!! en tout qua le resultat reste le meme ! non ?
"michdenis" a écrit dans le message de news:
Bonjour Daniel,
Worksheets("Feuil2").Range("A1") = destination où tes cellules seront copiées
et les initiales et la date vont être inscrit au bas de la plage de destination.
'------------------------ Sub Manipulation()
Dim Dest As Range Set Dest = Worksheets("Feuil2").Range("A1") With ActiveCell .Resize(12, 1).Copy Dest Dest.Offset(12) = Date Dest.Offset(13) = "Mes initials" End With Set Dest = Nothing End Sub
'------------------------
Salutations!
"Daniel" a écrit dans le message de news:9oP7b.100747$
Je voudrait faire une macro qui me permet de copier une colonne de 12 cellule a partir de l'endroit ou est mon courseur descendre de 1 et insérer
la date aujourd'hui et redescendre de 1 pour insérer mes initiale DP. Merci
Oui ben c'est la meme chose ce que j'ai fait !!!
en tout qua le resultat reste le meme !
non ?
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:uQPci1FeDHA.1888@TK2MSFTNGP12.phx.gbl...
Bonjour Daniel,
Worksheets("Feuil2").Range("A1") = destination où tes cellules seront
copiées
et les initiales et la date vont être inscrit au bas de la plage de
destination.
'------------------------
Sub Manipulation()
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("A1")
With ActiveCell
.Resize(12, 1).Copy Dest
Dest.Offset(12) = Date
Dest.Offset(13) = "Mes initials"
End With
Set Dest = Nothing
End Sub
'------------------------
Salutations!
"Daniel" <pellet15@videotron.ca> a écrit dans le message de
news:9oP7b.100747$yg2.1881607@weber.videotron.net...
Je voudrait faire une macro qui me permet de copier une colonne de 12
cellule a partir de l'endroit ou est mon courseur descendre de 1 et
insérer
la date aujourd'hui et redescendre de 1 pour insérer mes initiale DP.
Merci
Oui ben c'est la meme chose ce que j'ai fait !!! en tout qua le resultat reste le meme ! non ?
"michdenis" a écrit dans le message de news:
Bonjour Daniel,
Worksheets("Feuil2").Range("A1") = destination où tes cellules seront copiées
et les initiales et la date vont être inscrit au bas de la plage de destination.
'------------------------ Sub Manipulation()
Dim Dest As Range Set Dest = Worksheets("Feuil2").Range("A1") With ActiveCell .Resize(12, 1).Copy Dest Dest.Offset(12) = Date Dest.Offset(13) = "Mes initials" End With Set Dest = Nothing End Sub
'------------------------
Salutations!
"Daniel" a écrit dans le message de news:9oP7b.100747$
Je voudrait faire une macro qui me permet de copier une colonne de 12 cellule a partir de l'endroit ou est mon courseur descendre de 1 et insérer
la date aujourd'hui et redescendre de 1 pour insérer mes initiale DP. Merci
