Comment conserver le format source d'une cellule sur la cellule de destination ?

Version imprimable

Bonjour,

Je travaille sur une macro permettant de regrouper le contenu de plusieurs classeurs sur une feuille unique.

Tout fonctionne, sauf certains numéro de contrats qui apparaissent au format date. (exemple n° contrat 8-04 ressort sur la feuille de destination en date 04/08/2017)

Comment éviter cela ? 8O

Merci par avance pour vos lumières.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Sub Conso_Activité_Sites()
'
Application.ScreenUpdating = False
 
Sheets("Feuil1").Cells.ClearContents
 
 
' Conso_Activité_sites Macro
'
Dim appXL As Object
Dim fso As Scripting.FileSystemObject
Dim dossier As Scripting.Folder
Dim fichier As Scripting.File
Dim wbsource As Workbook
Dim ldest As Long
Dim lsource As Long, ncol As Long
Dim src As Worksheet, dst As Worksheet, tmp As Worksheet
Dim test As String
 
 
Set fso = New Scripting.FileSystemObject
Set dossier = fso.GetFolder("C:\XXXXX")
Set dst = ThisWorkbook.Sheets("Feuil1")
Set tmp = ThisWorkbook.Sheets("temp")
ldest = 1
For Each fichier In dossier.Files
    If Right(fichier.Name, 5) = ".xlsx" Or Right(fichier.Name, 4) = ".xls" Then
 
Workbooks.Open fichier.Path 'ouvrons le fichier'
        Set wbsource = Workbooks(fichier.Name)
        Set src = wbsource.Sheets("DB")
 
 
tmp.Range("A2:AQ111") = src.Range("A3:AQ112").Value
 
 
      For lsource = 2 To 111
            For ncol = 1 To 43
                dst.Cells(ldest, ncol) = tmp.Cells(lsource, ncol)
            Next
            ldest = ldest + 1
        Next
        wbsource.Close savechanges:=False
    End If
Next
 
Application.ScreenUpdating = True
 
End Sub

27/10/2017, 14h54
joe.levrai

Bonjour,

plutôt que d'utiliser un .value = .value (ligne 35 et 40), utilises la méthode Copy de l'objet Range, qui va embarquer le format de la cellule source

Code:

MaPlageSource.Copy MaPlageDestination
27/10/2017, 14h58
parmi
Bonjour,

Tu pourrais mettre le format de la cellule de destination en texte avant la copie (pour certaines données)
Code:

1 2 dst.Cells(ldest, ncol).NumberFormat = "@" dst.Cells(ldest, ncol) = tmp.Cells(lsource, ncol)
ou encore mettre le format de la cellule d'origine (à tester par contre...)
Code:

1 2 dst.Cells(ldest, ncol).NumberFormat = tmp.Cells(lsource, ncol).NumberFormat dst.Cells(ldest, ncol) = tmp.Cells(lsource, ncol)

Bonjour, merci pour ta réponse.

J'ai décomposé la plage de cellule à copier afin d'isoler que la colonne B à copier en texte.

Le résultat affiche VRAI ou FAUX ou GENERAL lorsque le NumberFormat est en général.

J'imagine que cela est lié au format des cellules sources, mais pourquoi cela n'affiche pas le contenu plutôt que la validation du format?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Workbooks.Open fichier.Path 'ouvrons le fichier'
        Set wbsource = Workbooks(fichier.Name)
        Set src = wbsource.Sheets("DB")
 
 
 
tmp.Range("A2:AB111") = src.Range("A3:AB112").Value
tmp.Range("C2:C111") = src.Range("C3:C112").NumberFormat = "@"
tmp.Range("D2:AQ111") = src.Range("D3:AQ112").Value
 
      For lsource = 2 To 111
            For ncol = 1 To 43
                dst.Cells(ldest, ncol) = tmp.Cells(lsource, ncol)
            Next
            ldest = ldest + 1
        Next
        wbsource.Close savechanges:=False
    End If
Next
 
Application.ScreenUpdating = True
 
End Sub

27/10/2017, 16h01
KarlBisk

Hello, Merci pour ta réponse.

Cela fonctionne, cependant la macro est du coup plus longue à s’exécuter.

Si tu as un tips pour alléger tout ça, ça serait top :)
27/10/2017, 16h17
Philippe Tulliez

Bonjour,

Citation:

Si tu as un tips pour alléger tout ça, ça serait top

La réponse de Joe Levrai utilise la méthode Copy qui me semble la plus simple et la plus courte à utiliser. C'est celle que j'allais proposer
27/10/2017, 16h33
KarlBisk

Merci à tous :)
27/10/2017, 16h38
Menhir

Citation:

Envoyé par KarlBisk

Le résultat affiche VRAI ou FAUX ou GENERAL lorsque le NumberFormat est en général.
J'imagine que cela est lié au format des cellules sources, mais pourquoi cela n'affiche pas le contenu plutôt que la validation du format?

Code:

tmp.Range("C2:C111") = src.Range("C3:C112").NumberFormat = "@"

Ca te semble naturel d'avoir deux "=" sur le même ligne de code ???

En plus, quand on traite à part le format et la valeur d'une cellule, on commence par mettre en place le format AVANT de mettre la valeur, pour éviter que celle-ci soit "déformer" par un éventuel format inadapté.

Mais, comme le dit Phillippe ( :coucou: ), l'usage de Copy permet de s'affranchir de tous ces problèmes.