Erreur d'exécution 1004

Bonjour à tous, depuis hier j'essaye tant bien que mal de réparer mon code mais rien n'y fait.. A chaque fois que je le lance il bug sur le if en gras.

Malheureusement le reste de ce code est confidentiel, donc je ne pourrais le publier sur ce site.

J'aimerais vraiment comprendre d'où vient mon erreur, en vous remerciant par avance.

Cordialement,

S.W

NB: Nom_F est une variable de type string qui fonctionne très bien

Sheets("Lal").Range("N5").End(xlDown).Activate
vrfi = Selection.Row

For p = 5 To vrfi - 1

saut = 0

If Worksheets("Lal").Range(Cells(p, 14)).Value <> Worksheets(Nom_F).Range(Cells(p + 12, 10)).Value Then

For n = 5 To vrfi

présence = 0

If Sheets("Lal").Range(Cells(n, 14)).Value = Sheets(Nom_F).Range(Cells(p + 12, 10)).Value Then

présence = 1

End If

Next n

Select Case présence

Case Is = 1

Sheets(Nom_F).Range(Cells(p + 12, 10)).EntireRow.Insert

Sheets(Nom_F).Range(Cells(p + 12, 10)).Value = Sheets("Lal").Range(Cells(p, 14)).Value

Case Is = 0

For z = p To vrf

If Sheets("Lal").Range(Cells(p, 14)).Value <> Sheets(Nom_F).Range(Cells(z + 12, 10)).Value Then

saut = saut + 1

End If

p = p - 1

Next z

End Select

End If

If Sheets("Lal").Range(Cells(i, 14)).Value = Sheets(Nom_F).Range(Cells(i + 12, 10)).Value Then

Sheets(Nom_F).Range(Cells(i + 12, 23)).Value = Sheets("Lal").Range(Cells(i, 15)).Value

End If

p = p + saut

Next p

Next i

End Sub

Bonjour,

pourquoi mélanger les Range et les Cells ?
Range("B13") = Cells(13,2)

Donc je mettrais :
If Worksheets("Lal").Cells(p, 14).Value <> Worksheets(Nom_F).Cells(p + 12, 10).Value Then

@ bientôt

LouReeD

Mais oui bien sûr, je suis tête en l'air!

En tout cas merci ! :)

Merci de vos remerciements !

@ bientôt

LouReeD

Rechercher des sujets similaires à "erreur execution 1004"