Erreur ''424'' VBA Excel

Bonjour à tous,
J'ai actuellement une erreur ( erreur "424")que je n'arrive pas à résoudre. Je cherche à copier une partie de mon tableau sur un autre fichier.
Voici mon code

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

Sub direction() ' déclaration variables Dim nbligne As Integer nbligne = 9 Dim case_copie As Integer case_copie = 10 Dim i As Integer Dim j As Integer     'Nombre de ligne dans tableau Do While (Workbooks("Fichier_Commun_ordo_qs_finition_Test.xlsm").Sheets("Feuil1").Cells(case_copie, 2).Value <> "")     nbligne = nbligne + 1 case_copie = case_copie + 1 Loop ' Copier les case 42 à 46 j=1 i = 42 Do While (i <> 46) Range(Cells(9, i), Cells(nbligne, i)).Value.Copy Destination:=Workbooks("direction2.xls").Sheets("Direction").Cells(9, j) i = i + 1 j = j + 1 Loop   End sub

---

le problème se situe au niveau de la ligne

Code:

---

Range(Cells(9, i), Cells(nbligne, i)).Value.Copy Destination:=Workbooks("direction2.xls").Sheets("Direction").Cells(9, j)

---

j'ai remarqué qu'en enlevant le ".Value" dans cette ligne l'erreur disparaissait, cependant cela prend en compte la formule de la cellule et non la valeur de la cellule.

Pouvez-vous m'aiguiller ? merci d'avance

Pour la prochaine fois, pense à indiquer le message d'erreur.
Quasiment personne ne connait les codes d'erreur par chœur et il est difficile d'en trouver la liste.

Citation:

---

Envoyé par SAP_Excel

Code:

---

Range(Cells(9, i), Cells(nbligne, i)).Value.Copy Destination:=Workbooks("direction2.xls").Sheets("Direction").Cells(9, j)

---

j'ai remarqué qu'en enlevant le ".Value" dans cette ligne l'erreur disparaissait,

---

Copy est une méthode qui s'applique à l'objet Range.
Elle ne peut pas s'appliquer à une valeur. Une valeur ne peut pas avoir de membre (ni méthode, ni propriété).

Citation:

---

cependant cela prend en compte la formule de la cellule et non la valeur de la cellule.

---

Classiquement :

Code:

---

1 2	Range(Cells(9, i), Cells(nbligne, i)).Copy Workbooks("direction2.xls").Sheets("Direction").Cells(9, j).PasteSpecial(xlPasteValues)

---

Ou encore :

Code:

---

1 2 3

With Workbooks("direction2.xls").Sheets("Direction") .Range(.Cells(9, j), .Cells(nbligne, j)).Value = Range(Cells(9, i), Cells(nbligne, i)).Value End With

---

Merci Menhir pour ta réponse rapide.
Promis la prochaine fois j'indique le message d'erreur :oops:
Je ne maitrise pas encore tous les concepts en VBA.
Je comprends comment fonctionne ton premier code mais pour le deuxième je ne comprends pas la subtilité ( la création d'une boucle With)

Citation:

---

Envoyé par SAP_Excel

pour le deuxième je ne comprends pas la subtilité ( la création d'une boucle With)

---

With n'est pas une boucle (ne pas confondre avec While). C'est juste la mise en commun d'un objet pour éviter d'avoir à le répéter plusieurs fois dans une partie de code.
Lire ça : https://msdn.microsoft.com/fr-fr/VBA...with-statement

Merci pour la précision !! Du coup je passe la discussion en mode " Résolu"