Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Récupérer une chaîne de texte

petipeton

XLDnaute Nouveau
Bonjour à tous !

J'ai en A1 un texte qui contient toujours le caractère j.
Je souhaite récupérer les valeurs qui se trouvent avant ce j dans une colonne puis, dans une autre colonne, les valeurs qui se trouvent après ce j.

Merci de votre aide !
 

Hulk

XLDnaute Barbatruc
Re : Récupérer une chaîne de texte

Hello Petipeton, Efgé, JHA, Forum,

Une petite version VBA...
Code:
Private Sub CommandButton1_Click()
    
    [B1] = Mid(Range("A1"), 1, InStr(1, Range("A1"), "j") - 1)
    [C1] = Mid(Range("A1"), InStr(Range("A1"), "j") + 1)

End Sub
Ou plus proprement...
Code:
Private Sub CommandButton1_Click()
    
    Dim Chaine As String

    Chaine = [A1]
    
    [B1] = Mid(Chaine, 1, InStr(1, Chaine, "j") - 1)
    [C1] = Mid(Chaine, InStr(Chaine, "j") + 1)

End Sub
Bonne fin de journée à tous et VIVA ESPAÑA
 

Discussions similaires

Réponses
6
Affichages
295
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…