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

Transfert de données en changeant de format sous VBA

  • Initiateur de la discussion Initiateur de la discussion Poussin
  • 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 !

Poussin

XLDnaute Occasionnel
Bonjour à tous,

Je souhaite transférer une colonne d'un onglet vers une colonne d'un autre onglet en changeant le format des données.

Actuellement je recopie à l'identique le contenu de la cellule de la façon suivante :

Code:
    Worksheets("Feuil2").Range("A" & xf2lg).Copy Worksheets("Feuil3").Range("A" & xf2lg - 1)

Voilà ce que je souhaiterais maintenant faire avec les données Date. Le format de la colonne de l'onglet 1 est 30/06/2007 je voudrais donc ne prendre en compte que l'année et ainsi que la colonne de l'onglet 2 soit 2007.

Merci de votre aide.

Cordialement
 
Re : Transfert de données en changeant de format sous VBA

Mercii Jean-Marcel pour ta réponse.

Je n'arrive pas à mettre seulement 2007 quand je transfère la colonne. De plus le format personnalisé mmmm ne fonctionne pas que dois-je faire.

Encore merci pour ton aide.
 
Re : Transfert de données en changeant de format sous VBA

En effet j'importe les données depuis un autre fichier Excel cependant je dois retraiter ces données importées et je dois pour la Date ne retenir que l'année or la date d'origine est DD/MM/AAAA et je veux la faire passer en AAAA.

Encore merci.
 
Re : Transfert de données en changeant de format sous VBA

Salut

il suffit de rajouter la seconde ligne :
Code:
Worksheets("Feuil2").Range("A" & xf2lg).Copy Worksheets("Feuil3").Range("A" & xf2lg - 1)
Worksheets("Feuil3").Range("A" & xf2lg - 1) = Year(Worksheets("Feuil3").Range("A" & xf2lg - 1))
pour alléger le code, tu peux te contenter d'expressions du genre
Code:
Range("Tableau[[#Headers],[Colonne1]]").ActiveCell = "Date"
 
Re : Transfert de données en changeant de format sous VBA

Merci merci beaucoup ça fonctionne nickel j'en profite pour te demander une question à laquelle je n'avais pas eu de réponses

Je voudrais obtenir l'image suivante automatiquement c'est à dire qu'avec VBA je crée 3 TCD et ainsi pour l'un j'applique le champ 2007, l'autre 2008 et l'autre 2009. Comment faut-il coder ceci ou y-t-il une autre solution comme par exemple ne créer qu'un seul TCD.

Après je récupère les données dans un nouvel onglet qui me donnera les caractéristiques par année. Pour finir je compte sauvegarder ce dernier onglet récapitulatif en fichier PDF.

Encore merci à toi cela me permet d'avancer rapidement.
 

Pièces jointes

  • Capture.jpg
    16.4 KB · Affichages: 49
  • Capture.jpg
    16.4 KB · Affichages: 51
  • Capture.jpg
    16.4 KB · Affichages: 51
- 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

Réponses
11
Affichages
933
Réponses
10
Affichages
807
Réponses
7
Affichages
990
  • Question Question
Microsoft 365 macro vba sumifs
Réponses
5
Affichages
750
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…