Discussion :

[SAP_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 :

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

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

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

[Menhir]

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.

Code :

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

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

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

Classiquement :

Code :

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

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

Ou encore :

Code :

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

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

[SAP_Excel]

Merci Menhir pour ta réponse rapide.
Promis la prochaine fois j'indique le message d'erreur
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)

[Menhir]

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

[SAP_Excel]

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