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

timon

XLDnaute Nouveau
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 :

Code:
 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
Code:
.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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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
Code:
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

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

Bonjour,

essaye avec l'opérateur "like" :
Code:
If Not Range("A1") Like "*congé*" And Not Range("A1") Like "*déplacement*" Then MsgBox "ne contient pas"
bon après midi
@+
 

timon

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

Bonjour Pierrot,

Merci c'est parfait !!
 

Discussions similaires


Haut Bas