Discussion :

[CNANJO]

Bonjour à toutes et à tous,

Je présente mon problème :

Je développe une macro sous Excel. Je souhaiterai récupérer dans une cellule une chaine fondue dans un texte au sein d'une même cellule. Elle peut prendre diverses forme comme suit :

xx/xx/xxxx
01/11/2008

Comme vous l'avez compris, il s'agit d'une date.

Je veux donc arriver à coder dans la philosophie suivante :

"repérer la position du premier caractère lorsque je trouve une suite de caractères de la forme:
"2 caractères" + "/" + "2 caractères" + "/" + "4 caractères"
"

Pour m'expliquer au mieu, je ferais une comparaison avec windows. En effet, sous windows, lorsqu'on ouvre une fenêtre de recherche de fichier, nous pouvons rechercher, par exemple, le fichier "macro.xls" en tapant :
"m?cro.xls".

En faite le point d'interrogation signifie dans ce cas :"un et un seul caractère qui peut être n'importe lequel".

C'est donc l'équivalent en VB que je recherche.

N'ayant rien trouvé de probant dans l'aide, je fais appel à vos connaissances


Merci d'avance !


Un débutant qui doit très vite rendre un projet à son chef !

[tirex28]

Bonsoir et bienvenu sur dvp,

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
    Dim i As Long, Texte As String
 
    Texte = "Nous sommes le 21/11/2008"
 
    i = InStr(1, Texte, "/")
    If Mid(Texte, i - 2, 10) Like "##/##/####" Then
        MsgBox i - 2
    End If
End Sub

Cordialement,

Tirex28/

[decondelite]

Une solution qui fonctionne lorsque mid et like ne suffisent pas: l'utilisation des expressions régulières.