Supprimer le contenu d'une cellule après un crochet

Bonjour,

J'aimerais savoir si il est possible en vba, de supprimer le contenu d'une cellule après un caractère spécifique, ici le crochet.

Je vous mets un fichier excel en PJ pour illustrer ma demande.

Merci d'avance de votre aide.

Bonjour,

Function EntreCrochets(ByVal ChaineAvecCrochet As String) As Variant

     If UBound(Split(ChaineAvecCrochet, "]")) > 0 Then
        EntreCrochets = "[" & Split(Split(ChaineAvecCrochet, "]")(0), "[")(1) & "]"
     Else
        EntreCrochets = ""
     End If

End Function

Super merci beaucoup !

Bonjour,

J'ai bien noté que la fonction personnalisée d'Éric convenait ... mais on pouvait faire la même chose avec une simple formule, il me semble :

=GAUCHE(B1;TROUVE("]";B1))

Même résultat (et même erreur retournée s'il n'existe pas de crochet fermant dans la cellule). On va dire que c'est pour la postérité

Bravo U Milité,

Mon niveau de connaissance sur des formules basiques est complètement nul...Et je réinvente la roue... Mais j'aime ça.

En ce qui concerne ta formule, puisque c'est la syntaxe VBA qui est demandée :

=LEFT(B1,FIND("]",B1))

C'est beaucoup plus efficace que ce que j'ai fait.

Re-bonjour,

@Eric Kergresse : la demande était "faire en vba" ... tu y as donc répondu dans les termes demandés