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