Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion timon
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T

timon

Guest
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
 
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) = ""
 
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
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…