Discussion :

[lycaon]

Bonjour à tous,

J'obtiens une erreur 1004 au moment de modifier la valeur de la cellule
"Ai".


Je ne comprends pas pour quelle raison.


En effet, en faisant un copier coller de

Code :

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

"=VLOOKUP(D" & i & ";'" & Workbooks(NomClasseurNouveauOrga).Worksheets(2).Name & "'!C1:IV65536;254;FALSE)"

(après calcul) dans mon fichier cible, ça
fonctionne parfaitement. Ce n'est donc pas la syntaxe qui est mauvaise.


J'ai une option Explicit qui m'interdit les erreurs de déclaration de
variables normalement.


Est ce que vous voyez pourquoi ça plante ?

Code :

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

1
2
3
4
Dim i As Long 
For i = 7 To Cells(Rows.Count, 2).End(xlUp).Row 
Range("A" & i).Value = "=VLOOKUP(D" & i & ";'" & Workbooks(NomClasseurNouveauOrga).Worksheets(2).Name & "'!C1:IV65536;254;FALSE)" 
Next

Merci à tous,


Lycaon.

[bidou]

Code :

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

Range("A" & i).Formula

plutôt

[AlainTech]

La plupart du temps, l'erreur 1004 vient d'un appel à un objet Excel qui n'existe pas.
Un exemple:

Code :

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

Cells(0, 1)

Il n'existe pas de Row(0).

[lycaon]

Merci pour ta réponse.

Ca me donne la même chose. J'ai aussi essayé .Text, .Formula R1C1 mais c'est pareil.

[lycaon]

La plupart du temps, l'erreur 1004 vient d'un appel à un objet Excel qui n'existe pas.
Un exemple:

Code :

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

Cells(0, 1)

Il n'existe pas de Row(0).

Ici, j'ai éxécuté "manuellement" l'action que je lui demande en utilisant les valeurs calculées par Excel (en mettant un watch sur l'expression contenant le vlookup) et tout va bien... mais il ne veut pas le faire tout seul !!!

[AlainTech]

Essaye:

Code :

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

Range("A" & i).Value = i

Pour voir si le problème ne vient pas d'une valeur prise par i

[bidou]

c'est bien avec formula mais il faut remplacer les ; par des virgules.

Du type

Code :

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

Range("A" & i).Formula = "=VLOOKUP(D" & i & ",'" & Workbooks(NomClasseurNouveauOrga).Worksheets(2).Name & "'!C1:IV65536,254,FALSE)"

[lycaon]

c'est bien avec formula mais il faut remplacer les ; par des virgules.

Du type

Code :

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

Range("A" & i).Formula = "=VLOOKUP(D" & i & ",'" & Workbooks(NomClasseurNouveauOrga).Worksheets(2).Name & "'!C1:IV65536,254,FALSE)"

Merci beaucoup!!!!
C'est tellement stupide comme erreur que je n'ai même pas pensé à vérifier la syntaxe de vlookup...

Encore merci

[AlainTech]

C'est résolu, alors?