XL 2013 importer des données sans modifier le format des cellules distinataires

chindou · 24 Octobre 2023

Bonjour le forum

J'utilise une macro pour importer les noms des profs de plusieurs fichiers sans les ouvrir (même nom de feuille sur ses fichiers et même tableaux) pour les lister dans le fichier principal "GRIEX" et sur une seul feuille nommée "Base" sachant que ma macro marche très bien.

Le seul problème que je rencontre c'est le format des cellules. Cette macro récupère les données et le format des cellules des fichiers sources, ces fichiers ont été remplis par déférents professeurs

Ce que je souhaite avoir c'est importer ces données mais garder le format de mes cellules destinataires sur la feuille "Base"

Je joins pour exemples mon fichier principal « griex » et le fichier rempli par les profs « lnfos_profs »

merci de votre précieuse aide

Phil69970 · 24 Octobre 2023

@chindou

En fin d'import tu peux lancer cette macro à affiner (j'ai fait les grandes lignes )

VB:

Sub Mise_en_forme()
Dim Derlig&

Derlig = Range("B" & Rows.Count).End(xlUp).Row

'Police
Range("B3:P" & Derlig).Font.Size = 11
Range("B3:P" & Derlig).Font.Bold = False
Range("B3:P" & Derlig).Font.Name = "Arial Narrow"

'Format date
Range("C3:C" & Derlig).NumberFormat = "m/d/yyyy"
Range("F3:F" & Derlig).NumberFormat = "m/d/yyyy"
Range("I3:J" & Derlig).NumberFormat = "m/d/yyyy"

'Format nombre
Range("G3:G" & Derlig).NumberFormat = "0"
Range("H3:H" & Derlig).NumberFormat = "0.00"
Range("K3:K" & Derlig).NumberFormat = "0.0"

Range("G3:H" & Derlig).HorizontalAlignment = xlGeneral
Range("G3:H" & Derlig).VerticalAlignment = xlCenter
End...

Phil69970 · 24 Octobre 2023

Bonjour @chindou

chindou à dit:
Ce que je souhaite avoir c'est importer ces données mais garder le format de mes cellules destinataires sur la feuille "Base"

C'est ta MFC qui te mets les différentes couleurs dans ton fichier destination

Supprime les MFC de la feuille "GRIEX.XLSM" et tu verras la différence !!
==> Import sans MFC

Merci de ton retour

chindou · 24 Octobre 2023

Bonjour Phil69970
Merci bien
Peut être que je n'ai bien éclairci le problème.
les MFC sont important pour ma feuille "Base " ce que rencontre comme problème la tailles des polices et les formats dates. je souhaite que lors du collage des données importer les cellules destinataires gardent toujours leurs formats concernant (taille, style de police ; date ou nombre)
c'est a dire coller que les valeurs

Phil69970 · 24 Octobre 2023

Re

Une piste :
On peut faire le contraire faire l'import comme tu le fais puis formater colonne par colonne comme tu le souhaites après l'import

chindou · 24 Octobre 2023

Bonsoir le forum
La piste que tu ma indiquer pour moi c'est pas compliquer, GRIEX est une application que je développe
pour les inspecteurs de la langue française dans le but de bien gérer leurs rapports pédagogiques
en plus les feuilles sont protégées donc c'est pas faciles pour un utilisateur qui ne maitrise pas bien Excel.
je cherche une solution VBA si possible pour dépasser ce problème.
Merci bien Phil69970

Phil69970 · 24 Octobre 2023

@chindou

En fin d'import tu peux lancer cette macro à affiner (j'ai fait les grandes lignes )

VB:

Sub Mise_en_forme()
Dim Derlig&

Derlig = Range("B" & Rows.Count).End(xlUp).Row

'Police
Range("B3:P" & Derlig).Font.Size = 11
Range("B3:P" & Derlig).Font.Bold = False
Range("B3:P" & Derlig).Font.Name = "Arial Narrow"

'Format date
Range("C3:C" & Derlig).NumberFormat = "m/d/yyyy"
Range("F3:F" & Derlig).NumberFormat = "m/d/yyyy"
Range("I3:J" & Derlig).NumberFormat = "m/d/yyyy"

'Format nombre
Range("G3:G" & Derlig).NumberFormat = "0"
Range("H3:H" & Derlig).NumberFormat = "0.00"
Range("K3:K" & Derlig).NumberFormat = "0.0"

Range("G3:H" & Derlig).HorizontalAlignment = xlGeneral
Range("G3:H" & Derlig).VerticalAlignment = xlCenter
End Sub

Macro à mettre dans la feuille "Base"

Comme cela c'est transparent pour l'utilisateur final

chindou · 25 Octobre 2023

Bonjour phil69970 bonjour le forum
Merci bien phil69970

XL 2013 importer des données sans modifier le format des cellules distinataires

chindou

XLDnaute Occasionnel

Pièces jointes

Phil69970

Phil69970

XLDnaute Barbatruc

chindou

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

chindou

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

chindou

XLDnaute Occasionnel

Discussions similaires