Copie coller

[mike]

Bonjour,

j ai une macro qui me copie un tableau et me la colle dans une autre feuille, une des cellules de tableau est =AUJOURDHUI() et j aimerai lorsque je lance la macro c est la valeur qui soit coller et pas la formule.

Merci de votre aide.

 

[PascalXLD]

Bonjour

Dans ta macro pour la cellule en question tu mets (exemple si cellule A1)

Range('A1')=date

bon courage

 

[Mike]

Bonjour pascal,

ma formule est la suivante:

Sub Bouton6_QuandClic()
Dim rep As String
rep = MsgBox('Voulez vous INITIALISER ?', 68, OK)

If rep = vbYes Then
Dim RangePlage As Range

Set RangePlage = Worksheets('FORMAT FEUILLE').Range('A1:I70')
RangePlage.Copy Destination:=Worksheets('SAISIE JOURNEE').Range('A1')
End If
End Sub

j ai essaye de rajouter a la fin ta formule mais ca marche pas.

 

[PascalXLD]

Re

Imaginons toujours la cellule A1 où il faut mettre la date cela donne

Sub Bouton6_QuandClic()
Dim rep As String
rep = MsgBox('Voulez vous INITIALISER ?', 68, OK)

If rep = vbYes Then
Dim RangePlage As Range

Set RangePlage = Worksheets('FORMAT FEUILLE').Range('A1:I70')
RangePlage.Copy Destination:=Worksheets('SAISIE JOURNEE').Range('A1')
Worksheets('SAISIE JOURNEE').Range('A1')=Date
End If
End Sub

 

[MIKE]

Merci beaucoup ca marche nikel, j avias essayer autre chose ca marchait aussi mais pas aussi bien, en fait j ai rajouter un code pour faire un vukgaire copier coller special valeur d une autre cellue ou il y a =aujourdhui ca marchait mais c etait pas tiptop comme ta formule qui est beaucoup plus fluide.

Merci!

 

[mike]

re,

un dernier ptit truc pascal, quand je lance la macro j ai effectivement la date qui s affiche mau format 18/04/05 et moi j ai besoin du format Lundi 18 avril 2005 et quand je change le formt de cellule et que je relance la macro l ancien format revien a savoir 18/04/05!

sais tu comment faire?

 

[PascalXLD]

Re

remplace la ligne

Worksheets('SAISIE JOURNEE').Range('A1')=Date

par


Worksheets('SAISIE JOURNEE').Range('A1') = Format(Date, 'dddd dd mmmm yyyy')

Bon courage

 

[Mike]

Merci pascal!!!!

Mais comment tu sais tout ca???????lolll