VBA SELECT CASE avec LIKE

Bonsoir !

j'ai un souci avec mon code VBA

il s'agit de traiter les fichiers extraits apres telechrgement des fichiers XLS à partir d'un site Internet d'une banque avec les instructions SELECT CASE et LIKE

Relever dans cellule C2 qui peut etre soit "****1111" ce qui correspond au compte de Monsieur soit "****2222" qui correspond au compte de Madame , etc... donc une dizaine de comptes à traiter ( toujours precedés de 4 asteriques )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim nocompte as string Dim compte as string ... Range("C2").Select compte = Range("C2") Select Case compte Case compte Like "*1111" nocompte = "n°1111 Compte Monsieur" Case compte Like "*2222" nocompte = "n°2222 Compte Madame" Case Else nocompte = "compte inconnu" End Select

---

Mon code VBA me retourne toujours "compte inconnu" ==> ?
J'ai lu par ci qu'on ne peut pas utiliser SELECT CASE et LIKE et par là que des personnes ont reussi à le faire

Je suis d'accord pour remplacer par une autre forme de condition ( le plus simplement à comprendre ou le moins de lignes )

d'avance Merci et bon WE !

Bonjour aacmweb,

Cherche "SELECT CASE avec LIKE en VBA" sur ton ami google et tu trouves de suite ta réponse ! :ccool:
En effet, le SELECT CASE n'admet pas l'opérateur LIKE en l'état. Tu dois changer ceci :

Code:

---

1 2 3 4 5 6 7 8

Select Case True Case compte Like "*1111" nocompte = "n°1111 Compte Monsieur" Case compte Like "*2222" nocompte = "n°2222 Compte Madame" Case Else nocompte = "compte inconnu" End Select

---

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

j'etais obsedé par STRING en fait c'est TRUE/FALSE ==> ca marche !
Merci pour ton aide !
:D

Bonjour,

que tu peux aussi écrire :

Code:

---

1 2 3 4 5 6 7

If compte Like "*1111" Then nocompte = "n°1111 Compte Monsieur" ElseIf compte Like "*2222" Then nocompte = "n°2222 Compte Madame" Else nocompte = "compte inconnu" End If

---

eric

Merci ! je vais essayer demain !
:P