Discussion :

[lolo69490]

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

Code :

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

1
2
3
4
5

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
J'ai aussi essayé avec "*;*" mais rien... je pense que ça vient de ma selection, je dois pas le faire correctement...


Savez-vous pourquoi ?

Merci par avance pour votre aide.
Laurent

[lolo69490]

c'est bon, j'ai trouvé la solution en passant par un code for i= ...

Merci quand meme pour votre aide.

Bonnes vacances !!!!

[Menhir]

Like compare deux valeurs. Ca ne fonctionne pas sur une plage.

Ceci devrait mieux convenir :

Code :

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

1
2
3
4
If Not Columns("K:K").Find(";") Is Noting Then
    MsgBox "Attention il y a des lignes avec deux status, conserver que le dernier status"
    Exit Sub
End if

C'est du code tapé directement sur le forum et non testé. Tu auras donc peut-être du débugage à faire.

c'est bon, j'ai trouvé la solution en passant par un code for i= ...

C'est beaucoup plus lent et compliqué qu'un Find.

[lolo69490]

Bonjour Menhir,

merci pour ton code, ça marche nickel !!! je vais l'utiliser car plus simple que de faire for i=....

passe de bonnes vacances