Discussion :

[aacmweb]

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 !

[Kimy_Ire]

Bonjour aacmweb,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aacmweb]

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

[eriiic]

Bonjour,

que tu peux aussi écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aacmweb]

Merci ! je vais essayer demain !