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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !