Discussion :

[EricBOG]

Bonjour,

J'ai des cellules avec ce type de référence:
BAUM_EX_130101_130131_20488
VUE_BAUMEN_130101_141231_19972

Il m'en faut extraire les deux premiers groupes de 6 caratères qui sont en fait deux dates.
Le problème est qu'ils ne commencent jamais au même endroit, que ce soit en partant du début ou de la fin de la chaine.

En revanche, cela commence toujours par le premier chiffre en partant de la gauche, ou encore, le caractére après le deuxième "_"

Malgré mes recherches sur le net, je n'ai pas réussi à trouver la solution.

Quelqu'un aurait il une idée?

Merci d'avance.

Eric

[Invité]

Un exemple avec la fonction 'Split()':

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
Option Explicit
 
Public Sub Extraction()
 
  Dim str1 As String, str2 As String
 
  str1 = "BAUM_EX_130101_130131_20488"
  str2 = "VUE_BAUMEN_130101_141231_19972"
 
  Debug.Print (str1)
  Debug.Print (Split(str1, "_")(2))
  Debug.Print (Split(str1, "_")(3))
 
  Debug.Print (str2)
  Debug.Print (Split(str2, "_")(2))
  Debug.Print (Split(str2, "_")(3))
 
End Sub

[EricBOG]

Nikel. Merci bcp, je ne connaissais pas!