XL 2021 création macro

[Bruce68]

Bonjour à tous
Comment écrire une macro pour copier la valeur d'une date de la feuille1 en feuille2.
Je vous remercie de votre aide

 

[Jacky67]

Bonjour à tous
Comment écrire une macro pour copier la valeur d'une date de la feuille1 en feuille2.
Je vous remercie de votre aide

Bonjour,
Sans macro ' avec la date en feuil1 A1, puis en feuil2 choisir la cellule de destination
=Feuil1!A1

Avec macro 'copie la date feuil1 A1 vers Feuil2 A1
Sub copieDate()
Sheets("Feuil2").[a1] = Sheets("Feuil1").[a1].Value
End Sub

 

[sylvanu]

Bonjour Bruce, Jacky,
Ou encore :

Sub CopierDate()
With Sheets("Feuil2")
    .[E18] = [C8]
    .[E18].NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"  ' Mettre le format voulu
End With
End Sub

Si en feuille 2 on veut un format date différent. Une copie de la valeur ne copie pas le format.

 

[Bruce68]

Bonjour Bruce, Jacky,
Ou encore :

Sub CopierDate()
With Sheets("Feuil2")
    .[E18] = [C8]
    .[E18].NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"  ' Mettre le format voulu
End With
End Sub

Si en feuille 2 on veut un format date différent. Une copie de la valeur ne copie pas le format.

Bonsoir sylvanu jacky67
je vous remercie pour vos réponses
Je joint un fichier exemple pour ma demande , les explications sont dans le fichier.
Je vous remercie de votre aide précieuse

 

[sylvanu]

Bonjour Bruce, Jacky,
Sérieux, là ? C'est le même souci, et la même solution que dans votre post précédent : Lien , vous aviez la solution au post #3.
Ci joint votre PJ corrigée.

NB: Votre erreur vient du fait qu'un Copy Paste colle les formules pas les valeurs, il colle aussi les formats.

Au lieu de faire :
Sheets("Feuil1").Range("A" & i).Copy
Sheets("Feuil2").Range(("A" & u)).Select
ActiveSheet.Paste
 Sheets("Feuil1").Range("B" & i, "D" & i).Copy
Sheets("Feuil2").Range(("B" & u)).Select
ActiveSheet.Paste

Faire :
Sheets("Feuil1").Range("A" & i).Copy
Sheets("Feuil2").Range(("A" & u)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 Sheets("Feuil1").Range("B" & i, "D" & i).Copy
Sheets("Feuil2").Range(("B" & u)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Mais c'est plus simple et plus rapide de ne copier que les valeurs.

 

[Bruce68]

Bonsoir Sylvanu
Merci beaucoup c'est parfait.
Bonne soirée à tous

 

[Jacky67]

Bonjour à tous
Autre solution sans boucle 🙂

 

[dysorthographie]

bonjour,

au lieu de faire :
Sheets("Feuil1").Range("A" & i).Copy
Sheets("Feuil2").Range(("A" & u)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Faire :
Sheets("Feuil1").Range("A" & i).Copy
Sheets("Feuil2").Range(("A" & u)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False