Discussion :

[PPLILH2008]

Bonjour,

J'utilise un morceau de code très pratique pour copier des colonnes d'un fichier vers un autre.Quand les cellules sources sont des valeurs ça fonctionne à merveille, par contre dès qu'il y a une formule, ça ne fonctionne pas du tout. comment faire pour qu'il ne prenne que les valeurs?

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim ShSource As Worksheet, ShCibleA As Worksheet, ShCibleB As Worksheet
 
Application.ScreenUpdating = False
 
Set ShSource = ThisWorkbook.Sheets("Feuil1")
 
Workbooks.Open Filename:="H:\TEST 3.xls"
Set ShCibleA = ActiveWorkbook.Sheets("LHV")
Set ShCibleB = ActiveWorkbook.Sheets("MRS")
 
ShSource.Range("A:A").Copy ShCibleA.Range("A1")
ShSource.Range("B:B").Copy ShCibleA.Range("B1")
 
ShSource.Range("A:A").Copy ShCibleB.Range("A1")
ShSource.Range("B:B").Copy ShCibleB.Range("B1")
 
Workbooks("TEST .xls").Close False
 
Application.ScreenUpdating = True

Merci d'avance

[helios77]

Bonjour

Pense à mettre ton code entre balise ## pour plus de clareté
fait un truc dans le genre... c'st pour faire des collage spécila par valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Columns("D:D").Select
    Application.CutCopyMode = False
    Selection.Copy
    Columns("E:E").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Ce qui donnerais pour ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Dim ShSource As Worksheet, ShCibleA As Worksheet, ShCibleB As Worksheet
 
Application.ScreenUpdating = False
 
Set ShSource = ThisWorkbook.Sheets("Feuil1")
 
Workbooks.Open Filename:="H:\TEST 3.xls"
Set ShCibleA = ActiveWorkbook.Sheets("LHV")
Set ShCibleB = ActiveWorkbook.Sheets("MRS")
 
ShSource.Range("A:A").Select
Selection.Copy 
ShCibleA.Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 
ShSource.Range("B:B").Select
Selection.Copy 
ShCibleA.Range("B1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 
ShSource.Range("A:A").Select
Selection.Copy 
ShCibleB.Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 
ShSource.Range("B:B").Select
Selection.Copy 
ShCibleB.Range("B1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 
Workbooks("TEST .xls").Close False
 
Application.ScreenUpdating = True

[JackOuYA]

Bonsoir

Tu peu aussi t'inspirer de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Set ShSource = ThisWorkbook.Sheets("Feuil1")
 
Set ShCibleA = ThisWorkbook.Sheets("Feuil2")
 
ShCibleA.Range("A:A") = ShSource.Range("A:A").Value

[PPLILH2008]

Bonjour helios77 et JackOuYA

Merci pour vos réponces

J'ai placer le code de JackOuYA et ça fonctionne du tonner.C'est nickel