select case avec n'importe quelle lettre

[Blafi]

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...

 

[Compte Supprimé 979]

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

Select Case Left(Cecel.Value,1)
Case "R"
Case "P"
End Select

A+

 

[Dranreb]

Re : select case avec n'importe quelle lettre

Bonsoir.
Il y a aussi:

Select Case Trim$(Cecel.Value)

Cordialement.