Formules VBA

Bonjour le Forum

Je serai reconnaissant si vous pouvez m'aider sur ces deux point:

• Extraire un nombre d'une chaine de caractères en vba.
• Concaténer deux nombres en vba

Très Cordialement.

Bonjour,

Donne-nous des exemples concrets.

Bonjour Raja

Voila mon code qui ne marche pas:

FS1 = Sheets("Menu").Range("D4").Value

c'est une cellule sous la forme suivante aaaammjj expl:20151223

a = "=MID(FS1,1,4)"

je veux que cette variable extrait l'année de la cellule précédente

b = "=MID(FS1,5,2)"

je veux que cette variable extrait le mois de la cellule précédente

c = "=MID(FS1,7,2)"

je veux que cette variable extrait le jour de la cellule précédente

Range("G1").Select

ActiveCell.Value = "=CONCATENATE(c,""/"",b,""/"",a)" 

je veux que la cellule G1 concatène ces trois variables pour que la date s'affiche de la manière suivante 23/12/2015

Merci d'avance

Re,

Essaye le code suivant :

Sub test()
    [G1] = DateSerial(Left([D4], 4), Mid([D4], 5, 2), Right([D4], 2))
End Sub

NB : Faute de voir ton fichier et ainsi tes données, j'ai supposé que la cellule D4 contient une chaine de caractères et non pas une date et par conséquent un nombre.

Bonjour Raja,

Je vous remercie énormément, ça marche