Separer le contenu d'une cellule via VBA

Bonjour à tous, ou re pour certain

Le petit dernier pour la route après j'arrête... promis...

J'ai un problème avec un Select Case... voici le code (extrait)

theme = bdd.Worksheets("BDD").Range("B" & i + 4).Value
Select Case theme
                        Case Is = "ECOT VD3"
                        Sheets(nrapex).Range("V16").Value = "X"
                        Case Is = "PBMP" & Right(theme, 9) 'C'est ici mon soucis
                        Sheets(nrapex).Range("AC16").Value = "X" c'est ici mon soucis
                        Case Is = "AUTRE"
                        Sheets(nrapex).Range("AQ16").Value = "X"
                End Select

En clair, je souhaite que lorsque il rencontre (dans la colonne B de BDD), il me mette une croix dans la cellule V16 du rapport, ça c'est bon... mais là ou ça se corse pour moi c'est ça (voir commentaire dans le code)

Lorsque le theme est "PBMP" le contenu de la cellule de BDD est PBMP AM 001-01, et je voudrais que lorsque il rencontre ce genre de valeur il fasse comme suis :

Si les 4 premier caractere sont égale à PBMP alors fais une croix dans le rapport dans la cellule AC16, et inscris le reste dans la cellule xxx du rapport

Voilà tout... j'ai essayer plein de choses mais pas les bonne a priori

Merci à tous

Chris

Re,

Finalement je me répond à moi même

A priori c'est mieux avec If...End if

Select Case theme
                        Case Is = "ECOT VD3"
                        Sheets(nrapex).Range("V16").Value = "X"
                        'Case Is = PBMP & " " & "## ###-##"
                        'Sheets(nrapex).Range("AC16").Value = "X"
                        Case Is = "AUTRE"
                        Sheets(nrapex).Range("AQ16").Value = "X"
                End Select

                If Left(theme, 4) = "PBMP" Then
                    Sheets(nrapex).Range("AC16").Value = "X"
                    Sheets(nrapex).Range("AF16").Value = Right(theme, 9)
                End If

Voilà, si ça peut servir

Chris

Bonjour

Ma proposition c'était de remplacer ton Select Case ... End Select par des If.. ElseIf ...End IF

              If theme = "ECOT VD3" Then
                Sheets(nrapex).Range("V16").Value = "X"
              ElseIf Left(theme, 4) = "PBMP" Then
                Sheets(nrapex).Range("AC16").Value = "X"
              ElseIf theme = "AUTRE" Then
                Sheets(nrapex).Range("AQ16").Value = "X"
              End If