Plage de Range

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

pourquoi :

Code:

---

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

---

marche bien et

Code:

---

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 ...

Et avec une syntaxe correcte ?

Code:

---

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

---

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:

---

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

---

et pour plusieurs lignes :

Code:

---

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

---

reste la syntaxe...

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:

---

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

---

Bonjour,

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

Code:

---

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

---

eric

Je vais tester les 2 solutions au moins pour comprendre

Citation:

---

Envoyé par eriiic

Bonjour,

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

Code:

---

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:

---

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

---

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...

Citation:

---

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

---

Bah, tu n'y es pour rien, il n'avait pas précisé :-)
eric