manipuler les fonctions caracteres pour récupérer une partie de variable

bonjour tout le monde,

Je cherche à récupérer une partie du texte contenu dans une cellule excel et coller le résultat sur une autre feuille.

Pour cela, je place le contenu de la cellule dans une variable et applique les fonctions de caratère.

LA cellule contient : "51420842-RACI-11178-GIRARDOT"

et mon code est :

Code:

---

1 2 3

dim colc as string colcc = Range(colc & lign).Value Range("c" & debut).Value = Mid(coldc, 10, InStr(2, coldc, "-", 0))

---

je cherche à récupérer le "RACI" contenu entre les 2 tirets.
POur celà je combine 2 fonctions :
mid qui récupère au 10 ième caractère(nombre fixe) et j'utilise la fonction instr pour s'arrêter au tiret suivant (car il peut y 4 à 6 lettres à récupérer)

Pour cet exemple il me renvoit "RACI-1117",se qui n'est pas le résultat recherché.

J'ai du mal à comprendre ce résultat dont la fonction instr est la cause.
J'ai ajusté le premier argument de la fonction pour essayer de comprendre sans résultats.

Pouvez vous m'aider ?

merci

Bonjour,

un peu bourrin mais ça marche :

Code:

---

Mid(coldc, 10, InStr(10, coldc, "-") - InStr(1, coldc, "-") - 1)

---

Bonjour,

Une autre solution que celle de Joe

Code:

---

1 2	Range("c" & debut) = Split(colcc, "-")(1)

---

Attention dans le message, est-ce Colcc ou Coldc la valeur à récupérer ?


Cordialement.

bonjour,

merci à tous les 2 pour votre réponse rapide.

Je viens de comprendre le fonctionnement de la fonction split, elle va m'être utile !!!!

Je retiendrai la solution de eric beaucoup plus simple mais merci pour la réflexion Joé.
Joé, j'ai suivi ta logique pour comprendre le défaut que j'avais et j'ai pu voir les limites de instr

Eric a raison effectivement je colcc et coldc est la même chose, j'ai monté une sub essai pour le besoin de l'échange.

le bon codes est :

Code:

---

1 2 3

dim colc as string colcc = Range(colc & lign).Value Range("c" & debut).Value = Split(colcc, "-")(1)

---

Je conserve la variable colcc car je récupère son contenue pour une autre feuille

Grand merci à tous les 2

Par contre je ne sais pas où informer les gestionnaires du site, mais l'explication de la fonction split dans le tutoriel manipuler les caractères n'est pas claire.
Il faudrait des exemples plus commentés que celui en place. Comme par exemple en indiquant le résultat de chaque ligne du résultat.

Grand merci à tous les 2 pour les réponses !!!!:P:P:P:P:P

Citation:

---

Envoyé par chrisaccess

Je viens de comprendre le fonctionnement de la fonction split, elle va m'être utile !!!!

---

Bonjour,

Pour compléter l'explication, si tu dois stocker le contenu d'une fonction Split, fais le avec une variable de type Variant, car le résultat est une matrice à une dimension. Le code ci-dessous montre ligne après ligne le résultat obtenu après découpage.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Option Explicit   Sub TestSplit()   Dim ValeurEntreTirets As String Dim MatriceEntreTirets As Variant Dim I As Integer   With ActiveSheet   MatriceEntreTirets = Split(.Range("A1"), "-")   If UBound(MatriceEntreTirets, 1) > 0 Then   ValeurEntreTirets = "" For I = LBound(MatriceEntreTirets, 1) To UBound(MatriceEntreTirets, 1)   ValeurEntreTirets = ValeurEntreTirets & "Indice : " & I & ", valeur : " & MatriceEntreTirets(I) & Chr(10)   If IsNumeric(MatriceEntreTirets(I)) Then .Range("C" & I + 1) = "'" & MatriceEntreTirets(I) Else .Range("C" & I + 1) = MatriceEntreTirets(I) End If MsgBox ValeurEntreTirets, vbInformation Next I   End If   End With   End Sub

---

J'aurais pu mettre LBound(MatriceEntreTirets) et UBound(MatriceEntreTirets) car la matrice n'a qu'une dimension par défaut.

Cordialement.

Salut, à titre documentaire : Liste des fonctions VBA

Citation:

---

Envoyé par Eric KERGRESSE

si tu dois stocker le contenu d'une fonction Split, fais le avec une variable de type Variant

---

Bonjour Eric,

possible aussi avec une variable tableau de type String : Dim MatriceEntreTirets$() …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

Citation:

---

Envoyé par Marc-L

possible aussi avec une variable tableau de type String : Dim MatriceEntreTirets$() …

---

Bonjour Marc,

Tu as raison, mais c'est la force de l'habitude de ramener des données de différents types....

Cordialement.