Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 création macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Bruce68
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

Bruce68

XLDnaute Impliqué
Bonjour à tous
Comment écrire une macro pour copier la valeur d'une date de la feuille1 en feuille2.
Je vous remercie de votre aide
 
Trier par date Trier par votes
Bruce68 à dit:
Bonjour à tous
Comment écrire une macro pour copier la valeur d'une date de la feuille1 en feuille2.
Je vous remercie de votre aide
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
Bonjour Bruce, Jacky,
Ou encore :
VB: 
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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.
VB: 
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.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
bonjour,
Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
XL 2019 repartir une quantite dans plusieurs cellules
Réponses
6
Affichages
124
dshz
D
P
  • Question Question
Microsoft 365 Exécution d'une formule en VBA
Réponses
9
Affichages
243
sylvanu
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
390
MATLEA
M
B
  • Question Question
XL 2021 trouver date anniversaire dans calendrier pour recopie
Réponses
12
Affichages
300
dysorthographie
C
  • Question Question
Microsoft 365 Incrémenter une liste par rapport à une 1ere liste
Réponses
2
Affichages
120
Chris5633
C
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
162
berru76
B
B
  • Question Question
XL 2021 Ajout dans ligne vba
Réponses
2
Affichages
439
sylvanu
J
  • Résolu(e)
Microsoft 365 Formule NB.SI.ENS
2
Réponses
17
Affichages
795
JPC33
J
B
  • Question Question
XL 2021 Recopie anniversaire dans calendrier
Réponses
7
Affichages
249
Dranreb
L
  • Question Question
XL 2013 Création de combinaisons + analyse
Réponses
3
Affichages
179
lepiouf
L
E
  • Résolu(e)
Microsoft 365 problème
2
Réponses
19
Affichages
851
ebe
E
B
  • Question Question
XL 2021 création planning avec nouveau calendrier
2
Réponses
16
Affichages
579
fanch55
  • Résolu(e)
XL 2016 recherche par macro
Réponses
5
Affichages
143
eastwick
T
  • Question Question
Microsoft 365 Problème d'accès à des boutons ActiveX dans un classeur depuis un xlam
Réponses
10
Affichages
1 K
ThierryP
T
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
609
sylvanu
  • Question Question
XL 2019 Copier des fichiers ".txt" selon la date de modification ou création
Réponses
10
Affichages
379
fanch55
B
  • Question Question
XL 2021 Recopie celle date et 3cellules consécutives avec des nombres
2
Réponses
17
Affichages
347
job75
R
  • Question Question
XL pour MAC Recopie sans doublon
Réponses
9
Affichages
346
rtlv17
R
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
137
sylvanu
P
  • Question Question
Microsoft 365 Création d'un fichier Excel pour gérer le bénévolat valorisé
Réponses
8
Affichages
205
Nain porte quoi
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…