Discussion :

[retraite83]

Bonjour, j'ai cherché tout l'après midi et fait de multiples variantes sans détecter l'erreur...

pourquoi :

Code :

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

1
2
 
Workbooks(ficAdm).Sheets("Suivi").Range("B30") = Workbooks(ficAmine).Sheets("Suivi").Range("B5")

marche bien et

Code :

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

1
2
 
Workbooks(ficAdm).Sheets("Suivi").Range("B30:M30") = Workbooks(ficAmine).Sheets("Suivi").Range("B5:M5")

rien ne se passe (aucune copie des données)…

je suis dubitatif ...

[Patrice740]

Et avec une syntaxe correcte ?

Code :

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

Workbooks(ficAdm).Worksheets("Suivi").Range("B30:M30").Value = Workbooks(ficAmine).Worksheets("Suivi").Range("B5:M5").Value

[retraite83]

Effectivement..

j'ai été mal orienté par le fait que cela marche pour une seule cellule sans .value...

par contre le forme disparait à la copie, je pense qu'il vaudrait mieux copier la ligne entière pour garder la mise en forme (couleur de fond), quelque chose comme cela :

Code :

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

1
2
 
Workbooks(ficAdm).Sheets("Suivi").Row(30).Value = Workbooks(ficAmine).Sheets("Suivi").Row(5).Value

et pour plusieurs lignes :

Code :

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

1
2
 
Workbooks(ficAdm).Sheets("Suivi").Row(30:40).Value = Workbooks(ficAmine).Sheets("Suivi").Row(5:15).Value

reste la syntaxe...

[Patrice740]

Eh bien non, .Value ne prend en compte que la valeur de la ou des cellules !

Pour copier le format dans son intégralité, le plus simple est de passer par le presse papier :

Code :

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

1
2
3
4
5
6
'copie des formats
Workbooks(ficAmine).Worksheets("Suivi").Range("B5:M5").Copy
Workbooks(ficAdm).Worksheets("Suivi").Range("B30:M30").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
'copie des valeurs
Workbooks(ficAdm).Worksheets("Suivi").Range("B30:M30").Value = Workbooks(ficAmine).Worksheets("Suivi").Range("B5:M5").Value

[Patrice740]

Bonjour,

si tu veux conserver les formats il faut copier-coller :

Code :

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

Workbooks(ficAmine).Worksheets("Suivi").Range("B5:M5").Copy Workbooks(ficAdm).Worksheets("Suivi").Range("B30:M30")

eric

Bonjour Eric

c'est effectivement beaucoup mieux que d'utiliser le presse papier, avec la canicule, mes neurones sont au ralenti !!!

Dans le cas où il y aurait des formules, pour récupérer les valeurs et le formats le mieux est de faire :

Code :

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

1
2
Workbooks(ficAmine).Worksheets("Suivi").Range("B5:M5").Copy Workbooks(ficAdm).Worksheets("Suivi").Range("B30:M30")
Workbooks(ficAdm).Worksheets("Suivi").Range("B30:M30").Value = Workbooks(ficAmine).Worksheets("Suivi").Range("B5:M5").Value

[retraite83]

Merci c'est parfait

j'ai mis un peu de temps avant de réaliser que copy et .value = font la copie mais pas dans le même sens...

[eriiic]

Bonjour,

si tu veux conserver les formats il faut copier-coller :

Code :

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

Workbooks(ficAmine).Worksheets("Suivi").Range("B5:M5").Copy Workbooks(ficAdm).Worksheets("Suivi").Range("B30:M30")

eric

[retraite83]

Je vais tester les 2 solutions au moins pour comprendre