Discussion :

[arkhang]

Bonjour à tous,

Je suis confronté à quelque chose d'étrange, voici le programme suivant qui me pose problème:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sheets("Résultat").Select
        DerniereLigne3 = Range("A65536").End(xlUp).Row
        'Suppression des collaborateurs sortis (Non présent sur ES)
        Range("I2") = "=VLOOKUP(RC[-8],es!C[-7]:C[-6],2,0)"
        Range("I2").AutoFill Destination:=Range("I2:I" & DerniereLigne3)
        Range("I2:I" & DerniereLigne3).Copy
        Range("I2:I" & DerniereLigne3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        For i = DerniereLigne3 To 2 Step -1
            If Range("I" & i).Value = "#N/A" Then
                Rows(i).Delete
            End If
        Next i

C'est au niveau du texte en rouge que ça bug .. ça me met une erreur d'incomptabilité n°13 ... Je ne comprends pas.
Je cherche tout simplement, après ma recherchev, à supprimer les colonnes comportant en colonne I "#N/A", je ne comprends pas la nature de l'erreur en question. J'ai testé avec Cells, .. , like ... Rien ne marche.

I Need You ! Thanks !!

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If Range("I" & i).Text = "#N/A" Then

[arkhang]

C'est parfait merci !

C'est le code erreur "#N/A" qui ne peut être reconnu par une valeur dans le Range en fait ?

[Invité]

exacte l'erreur vient d'une formule quand tu appel la valeur tu régénéré l'erreur!