Probleme avec LIKE

Bonjour à tous,

je suis en train de faire un code pour rechercher dans une colonne un ";"

donc voici ce que j'ai fait comme code

If Columns("K:K").Value Like ";" Then

MsgBox "Attention il y a des lignes avec deux status, conserver que le dernier status"

Exit Sub

End if

Bin devinez quoi ??? ça fonctionne pas

Savez-vous pourquoi ?

Merci par avance pour votre aide.

Laurent

Bonjour,

Je suppose que dans les cellules concernées il n'y a pas que le caractère ";", donc il faut plutôt mettre "*;*"

désolé, j'ai oublié de préciser que j'avais aussi essayer en rajoutant "*;*" et que j'avais toujours le meme message d'erreur

Erreur d'exécution '13':

Incompatibilité de type

Je pense que le problème vient de ma selection, mais pas sur

Après, je crois que tu ne peux pas écrire ça :

Columns("K:K").Value 

Mais qu'il te faudra procéder avec une boucle :

For i = 1 To Range("K" & Rows.Count).End(xlUp).Row
    If Range("K" & i).Value Like "*;*" Then 
        MsgBox "Attention il y a des lignes avec deux status, conserver que le dernier status"
        Exit For
    End If
Next i

Super, ça fonctionne ... en effet, j'aurai du penser à faire de ce façon ...

Merci pour ton aide !