Discussion :

[chrisaccess]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

Bonjour,

un peu bourrin mais ça marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Une autre solution que celle de Joe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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


Cordialement.

[chrisaccess]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[kiki29]

Salut, à titre documentaire : Liste des fonctions VBA

[Marc-L]

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

[Invité]

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.