Discussion :

[evx136]

Bonjour à tous

Une question: j'ai cette ligne de code qui fait un copier coller d'un fichier vers un autre

Code :

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

1
2
 
Feuille_Source.Range(Cells(lig, 4), Cells(lig, 15)).Copy Feuille_Cible.Cells(maligne, 98)

Seulement cette methode copie tout, formule, format.....

Peut on l'adapter pour ne copier que les valeurs ?

D'avance merci

[verredewhisky]

Code :

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

Feuille_Cible.Cells(maligne, 98).Value = Feuille_Source.Range(Cells(lig, 4), Cells(lig, 15)).Value

[Invité]

Bonjours,

Essaie cette Macro

Code :

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

1
2
3
4
5
6
7
8
Sub eee()
Dim source As Range, destination As Range
Const
Set source = Workbooks("Classeur1").Worksheets("Feuil1").Range("A1:D6") '.Value
Set destination = Workbooks("Classeur2").Worksheets("Feuil1").Range("A1:D6") '.Value
 
destination.Value = source.Value
End Sub

-------------------------------------------------------------

Petite rectif

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub eee()
Dim source As Range, destination As Range
Dim NomClasseurSource As String: NomClasseurSource = "Classeur1"
Dim NomFeuilleSource As String: NomFeuilleSource = "Feuil1"
Dim NomClasseurDestination As String: NomClasseurDestination = "Classeur2"
Dim NomFeuilleDestination As String: NomFeuilleDestination = "Feuil1"
Dim PlageDeCelluleCommune As String: PlageDeCelluleCommune = "A1:D6"
 
Set source = Workbooks(NomClasseurSource).Worksheets(NomFeuilleSource).Range(PlageDeCelluleCommune)
Set destination = Workbooks(NomClasseurDestination).Worksheets(NomFeuilleDestination).Range(PlageDeCelluleCommune).offset(0,0)
 
destination.Value = source.Value
 
End Sub

Un offset est effectivement possible, j'oubliais presque.

[evx136]

Bonjour
Nouveau2
Pas mal ça marche mais que sur la première cellule j'ai essayé en adaptant

Code :

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

1
2
3
4
5
   Dim source As Range, destination As Range
Set source = Feuille_Source.Range(Cells(lig, 4), Cells(lig, 15)) '.Value '.Value
Set destination = Feuille_Cible.Range(Cells(maligne, 98), Cells(maligne, 109)) '.Value
 
destination.Value = source.Value

Et la jai une erreur sur Set destination

VerreDeWhisky
Même remarque ça copie que la première cellule
J'ai donc adapté

Code :

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

 Feuille_Cible.Range(Cells(maligne, 98), Cells(maligne, 109)).Value = Feuille_Source.Range(Cells(lig, 4), Cells(lig, 15)).Value

Erreur 1004

sachant que lig et maligne sont des variables et que ces variables ont des valeurs différentes.

Tout ça pour eviter des .Copy et autre .Select

Mais merci de vous être penché sur le problème

[evx136]

Un grand merci Mercatog

ça marche très bien

Je vais de ce pas voir l'aide sur la propriété Resize.

mais pourquoi dans la ligne

Feuille_Cible.Cells(maLigne, 98).Resize(1, 12).Value

Resize(1, 12). pour agrandir la plage de la colonne 99 à 109 ?

Encore merci à vous tous

[mercatog]

Une remarque nécessaire
Écriture fausse

Code :

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

Feuille_Cible.Range(Cells(maligne, 98), Cells(maligne, 109)).Value

Écriture juste

Code :

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

Feuille_Cible.Range(Feuille_Cible.Cells(maligne, 98), Feuille_Cible.Cells(maligne, 109)).Value

[evx136]

Merci pour la remarque
J'en prend note
Et faire un essai avec cette éventualité.

Mais votre solution est je pense la plus adéquate

Cordialement

[mercatog]

Code :

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

Feuille_Cible.Cells(maLigne, 98).Resize(1, 12).Value = Feuille_Source.Cells(Lig, 4).Resize(1, 12).Value