select case avec n'importe quelle lettre

Blafi

XLDnaute Occasionnel
Bonsoir à tous,

C'est encore moi car je progresse doucement dans mes macros sur ma liste de livres..
J'ai écrit une macro qui utilise un select case afin qu'elle choisisse le cas d'une donnée de 2 caractères commençant par une certaine lettre (voir ci-dessous).
Le problème est que les personnes qui ont rentré les données ne les ont jamais écrites de la même façon : un coup avec un espace avant la 1ère lettre, un coup avec l'espace après et souvent sans espace, ce qui fait que j'ai deux lettres au lieu d'avoir une lettre et un espace...
Je cherche donc à dire à mon case "si le texte commence par P (par exemple) et quelque soit la deuxième lettre alors tu dois faire ceci.... Un genre de caractère de remplacement tel que "?" utilisé dans les noms de fichiers par exemple...

Voici mon code :

Select Case Cecel.Value
Case "ES"
Cecel.Value = "Essai"
Case "R ", " R"
Cecel.Value = "Roman"
Case "P ", "P ", " P"
Cecel.Value = "Policier"
Case "BA"
Cecel.Value = "Bande Déssinée"
Case "D ", "D?"
Cecel.Value = "Document"
Case "J "
Cecel.Value = "Junior"
End Select

Comment dire par exemple dans le cas des "R" un truc dans le genre "R" & ?

Merci de votre aide que je sais particulièrement fidèle et efficace...
 
C

Compte Supprimé 979

Guest
Re : select case avec n'importe quelle lettre

Salut Blafi

Il te faut 2 Select ... Case
1 pour les 2 lettres, l'autre pour 1 lettre

Pour l'unique lettre, il te suffit de dire
Code:
Select Case Left(Cecel.Value,1)
Case "R"
Case "P"
End Select

A+
 

Discussions similaires

Statistiques des forums

Discussions
312 432
Messages
2 088 376
Membres
103 837
dernier inscrit
philmyl04