Copie coller

PascalXLD

XLDnaute Barbatruc

• 18 Avril 2005

• #2

Bonjour

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

Range('A1')=date

bon courage

 

Vote positif 0 Vote négatif

M

Mike

Guest

• 18 Avril 2005

• #3

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.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 18 Avril 2005

• #4

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

 

Vote positif 0 Vote négatif

M

MIKE

Guest

• 18 Avril 2005

• #5

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!

 

Vote positif 0 Vote négatif

M

mike

Guest

• 18 Avril 2005

• #6

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?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 18 Avril 2005

• #7

Re

remplace la ligne

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

par


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

Bon courage

 

Vote positif 0 Vote négatif

M

Mike

Guest

• 18 Avril 2005

• #8

Merci pascal!!!!

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

 

Vote positif 0 Vote négatif