Discussion :

[rob1son76]

Bonjour,

Je souhaite trouver dans un fichier excel de 30000 ligne les abréviation de monsieur, madame.
Pour cela j'utilise un like et je colorie la ligne en rouge lorsqu'il trouve ma chaine.
Le programme marche sur les 600 première lignes et après j'ai un message d'erreur incompatibilité de type 13.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
nbli = Range("A65536").End(xlUp).Row
 
 
For i = 2 To nbli
    If Cells(i, 14) Like "*onsieur *" Or Cells(i, 14) Like "*adame *" Or Cells(i, 14) Like "*ademoiselle *" Then
    'Or Cells(i, 14) Like "*M.*" Then
    'Or Cells(i, 14) Like "m." Or Cells(i, 14) Like "Mme " Then
    'Or Cells(i, 14)Like "mme " Or Cells(i, 14) Like "Melle" Or Cells(i, 14) Like "melle " Or Cells(i, 14) Like " M " Or Cells(i, 14) Like "MR " Or Cells(i, 14) Like "MR." Then
    Rows(i).Select
    Selection.Interior.Color = 255
    End If
Next i

Merci de m'aider!!!

[rob1son76]

Le problème viens que si j'ai "#NOM?" dans ma cellule, même après avoir fait copier coller juste les valeurs, ca bug.

Vous savez pourquoi?
et comment savoir sur qu'elle ligne j'ai l'erreur de type 13?

[illight]

Dans un premier temps, pour voir sur quelle ligne de ton fichier vient l'erreur, il suffit de rajouter une gestion d'erreur dans ton code. Un truc dans ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
On Error GoTo lineError 'à mettre juste sous le début de ta fonction
 
nbli = Range("A65536").End(xlUp).Row
 
 
For i = 2 To nbli
    If Cells(i, 14) Like "*onsieur *" Or Cells(i, 14) Like "*adame *" Or Cells(i, 14) Like "*ademoiselle *" Then
    'Or Cells(i, 14) Like "*M.*" Then
    'Or Cells(i, 14) Like "m." Or Cells(i, 14) Like "Mme " Then
    'Or Cells(i, 14)Like "mme " Or Cells(i, 14) Like "Melle" Or Cells(i, 14) Like "melle " Or Cells(i, 14) Like " M " Or Cells(i, 14) Like "MR " Or Cells(i, 14) Like "MR." Then
    Rows(i).Select
    Selection.Interior.Color = 255
    End If
Next i
 
 
Lineerror:
msgbox i

[illight]

Le problème viens que si j'ai "#NOM?" dans ma cellule, même après avoir fait copier coller juste les valeurs, ca bug.

Vous savez pourquoi?
et comment savoir sur qu'elle ligne j'ai l'erreur de type 13?

Pour répondre à cette question, il suffit de rajouter une condition dans ton SI, et vérifier si la cellule contient une erreur

[Invité]

Salut,

Comme dit par illight, tu peux mettre une condition:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test()
    Dim Cel As Range
    Set Cel = Cells(6, 5)
 
    If IsError(Cel) = False Then
        If Cel Like "*onsieur *" Then
            ' Ton code ici
        End If
    End If
 
End Sub

[Invité]

Code :

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

1
2
3
If TypeName(Cells(1, 1).Value) <> "Error" Then
'ton code
End If