Coder: cellule est différente de : contient au moins "xxxx"

[timon]

Bonjour le forum,
Je ne sais pas si le titre est vraiment compréhensible donc voila je m'explique :
J'ai un userform qui rempli une base de données. Dessus il y a un bouton pour effacer les données, cependant il y a certaine données qui ne doivent pas être effacées du coup j'ai ajouté une fonction IF :

 IF .Cells(L, C) <> "Congé" And .Cells(L, C) <> "Déplacement*" Then

Ceci fonctionne pour "Congé" car c'est le texte exact cependant je n'arrive pas à coder le fait d'être différent de contient "déplacement". J'ai essayé avec

.Cells(L, C).Value Like "Déplacement*"

mais aucun succès...

Bref si quelqu'un connait un autre moyen je suis preneur

Merci d'avance

 

[phlaurent55]

Re : Coder: cellule est différente de : contient au moins "xxxx"

Bonjour timon,

essaie avec:
IF .Cells(L, C) <> "Congé" Or .Cells(L, C) <> "Déplacement*" Then

à+
Philippe

 

[timon]

Re : Coder: cellule est différente de : contient au moins "xxxx"

Bonjour phlaurent,
j'ai essayé avec OR mais du coup cela supprimer tout :s
Voici mon if complet

If .Range("I" & L) >= DTPicker1 And .Range("I" & L) <= DTPicker2 And .Cells(L, C) <> "Sam" And .Cells(L, C) <> "Dim" And .Cells(L, C) <> "Férié" And .Cells(L, C) <> "Jour offert" And .Cells(L, C) <> "Temps Partiel" And .Cells(L, C) <> "Congé" And .Cells(L, C) <> "*Déplacement*" Then
    .Cells(L, C) = ""

 

[Pierrot93]

Re : Coder: cellule est différente de : contient au moins "xxxx"

Bonjour,

essaye avec l'opérateur "like" :

If Not Range("A1") Like "*congé*" And Not Range("A1") Like "*déplacement*" Then MsgBox "ne contient pas"

bon après midi
@+

 

[timon]

Re : Coder: cellule est différente de : contient au moins "xxxx"

Bonjour Pierrot,

Merci c'est parfait !!