Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Erreur 1004 dans une boucle for

Erreur 1004 dans une boucle for

2 réponses
Avatar
Lycaon
Bonjour =E0 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 "=3DVLOOKUP(D" & i & ";'" &
Workbooks(NomClasseurNouveauOrga).Worksheets(2).Name &
"'!C1:IV65536;254;FALSE)" (apr=E8s calcul) dans mon fichier cible, =E7a
fonctionne parfaitement. Ce n'est donc pas la syntaxe qui est mauvaise.


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

Est ce que vous voyez pourquoi =E7a plante ?


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

Merci =E0 tous,

Lycaon.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Essaie ceci en prenant soin de modifier le nom du classeur
et de la feuille pour ceux désirés

'---------------------------
Sub test()

Dim i As Long
Dim X As Long
Dim D As String

D = "[Classeur1 .xls]Feuil2" & "'!C1:IV65536,254,FALSE)"
X = Cells(Rows.Count, 2).End(xlUp).Row

For i = 7 To X
Range("A" & i).Value = "=VLOOKUP(D" & i & ",'" & D
Next
End Sub
'---------------------------


"Lycaon" a écrit dans le message de news:

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 "=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 ?


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.
Avatar
Lycaon
Merci à toi.
Ta méthode fonctionne bien.
Cependant, mon erreur venait du fait que j'ai mis des points-virgules
à la place des virgules dans le vlookup !!!!

Comme quoi, on peut vraiment perdre du temps sur des stupidités.

Merci encore