VBA Erreur 1004 problème arg1 variable dans fonction vlookup/recherchev

[sangoben]

Bonjour,

Pourquoi Excel me renvoit-il une erreur quand je veux placer une référence variable dans l'arg1 de la fonction recherchev/vlookup, à savoir 'cells(ligne,3).value' ? Par contre quand je mets le contenu d'une cellule avec un argument fixe, je n'ai plus le message d'erreur 1004.

Voici mon code.

Sub Essai5()
Dim ligne
For ligne = 11 To 100
If Cells(ligne, 1) <> 0 Then
For i = 1 To 100
If Cells(ligne + i, 2) <> 0 Then
With Sheets("35 G Bordereau")
Cells(ligne+i, 3).Value = WorksheetFunction.VLookup(Cells(ligne, 3).Value, Sheets("35 G Quantitatif").Range("A1:F100"), 5, False)
End With
End If
Next
End If
Next
End Sub

Merci d'avance de vos solutions.

sangoben

 

[JNP]

Re : VBA Erreur 1004 problème arg1 variable dans fonction vlookup/recherchev

Bonsoir Sangoben ,

Sub Essai5()
Dim ligne
For ligne = 11 To 100
If Cells(ligne, 1) <> 0 Then
For i = 1 To 100
If Cells(ligne + i, 2) <> 0 Then
With Sheets("35 G Bordereau")
Cells(ligne+i, 3).Value = WorksheetFunction.VLookup(.Cells(ligne, 3).Value, Sheets("35 G Quantitatif").Range("A1:F100"), 5, False)
End With
End If
Next
End If
Next
End Sub

à mon avis, tu t'emmèles les pinceaux dans tes feuilles. Le With ne sert à rien si tu n'utilises pas de . (point) pour y faire référence. Je ne sais pas lesquels ont besoin d'un point...
Bonne soirée

 

[sangoben]

Re : VBA Erreur 1004 problème arg1 variable dans fonction vlookup/recherchev

Bonsoir Sangoben ,à mon avis, tu t'emmèles les pinceaux dans tes feuilles. Le With ne sert à rien si tu n'utilises pas de . (point) pour y faire référence. Je ne sais pas lesquels ont besoin d'un point...
Bonne soirée

Oui je pense aussi. D'autant plus qu'en réécrivant le code proprement cela fonctionne donc bon... J'ai pas très bien compris !

Que signifie exactement le point devant Cells ?

sangoben

 

[JNP]

Re : VBA Erreur 1004 problème arg1 variable dans fonction vlookup/recherchev

Re ,

Que signifie exactement le point devant Cells ?

Comme indiqué, le . se réfère au With.

Sheets("Feuil1").Range("A1") = 2

est équivalent à

With Sheets("Feuil1")
.Range("A1") = 2
End With

sachant que l'intérêt est de ne pas répéter ce qui est en With pour plusieurs critères, soit

Sheets("Feuil1").Range("A1").Value = 2
Sheets("Feuil1").Range("A1").Font = "Helvetica"
Sheets("Feuil1").Range("A1").Interior.ColorIndex = 2

est remplacé par

With Sheets("Feuil1").Range("A1")
.Value = 2
.Font = "Helvetica"
.Interior.ColorIndex = 2
End With

Bonne journée

 

[sangoben]

Re : VBA Erreur 1004 problème arg1 variable dans fonction vlookup/recherchev

Re ,Comme indiqué, le . se réfère au With.

Sheets("Feuil1").Range("A1") = 2

est équivalent à

With Sheets("Feuil1")
.Range("A1") = 2
End With

sachant que l'intérêt est de ne pas répéter ce qui est en With pour plusieurs critères, soit

Sheets("Feuil1").Range("A1").Value = 2
Sheets("Feuil1").Range("A1").Font = "Helvetica"
Sheets("Feuil1").Range("A1").Interior.ColorIndex = 2

est remplacé par

With Sheets("Feuil1").Range("A1")
.Value = 2
.Font = "Helvetica"
.Interior.ColorIndex = 2
End With

Bonne journée

Dac ! Nickel, on ne peut pas faire plus clair.

Merci

Bonne journée également

sangoben