Erreur 1004 dans une macro

[Hellowa]

Bonjour à toutes et à tous
J'ai un bug dans une de mes macros,
Elle me renvoi l'image suivante:

Voici mon code

Sub calcul_matiere()
Dim ilig As Integer, i As Integer, icol As Integer
Dim poids As Long
'On recherche le matériau, sa densité et son prix
'Qu'on affiche en dessous
For icol = 2 To 6
    For ilig = 7 To Sheets("Configurations").Range("F65536").End(xlUp).Row
        If Sheets("Matiere").Cells(11, icol).Value = Sheets("Configurations").Cells(i, 5).Value Then
            poids = Sheets("Configurations").Cells(i, 6).Value
            Sheets("Matiere").Cells(15, icol).Value = Cells(12, icol) * Cells(13, icol) * Cells(14, icol) * poids
      End If
    Next ilig
Next icol
    
        
End Sub

Merci d'avance,
Cordialement,
Eloi

 

[mromain]

Re : Erreur 1004 dans une macro

bonjour,

l'erreur vient de ces lignes :

If Sheets("Matiere").Cells(11, icol).Value = Sheets("Configurations").Cells([B][COLOR=Red]i[/COLOR][/B], 5).Value Then
poids = Sheets("Configurations").Cells([B][COLOR=Red]i[/COLOR][/B], 6).Value

i n'est pas initialisé.
si on le remplace par ilig, la macro tourne.

a+

 

[Hellowa]

Re : Erreur 1004 dans une macro

Damned, merci mromain!!
Je ne voyais pas d'où celà pouvait venir, il me fallait un point de vue externe!

 

[pierrejean]

Re : Erreur 1004 dans une macro

bonjour Hellowa

Le probleme vient de i qui n'est pas defini dans ces 2 lignes

If Sheets("Matiere").Cells(11, icol).Value = Sheets("Configurations").Cells(i, 5).Value Then
            poids = Sheets("Configurations").Cells(i, 6).Value

je te suggere de le remplacer par ilig

a la bourre moi
Salut mromain

 

[Hellowa]

Re : Erreur 1004 dans une macro

Merci pierrejean et mromain!