Fonction Split

[Fab117]

Salut, j'aimerais que ma macro récupère le contenu de la cellule "A1" (format nn/nn avec nn = nombres) et me l'éclate dans les cellules "A3" et "A4"

Avec

Range("A3") = Range("A1")
eclatement = Split(Selection.Value, "/", 2)
For n = 0 To UBound(eclatement)
Selection.Offset(0, n + 1) = eclatement(n)
Next n

je suis proche du but, mais j'aurais préféré plus simple du style :

Range("A3") = Split(Range("A1").Value, "/", 2)

Est-ce possible ?

Fab

 

[PascalXLD]

Re : Fonction Split

Bonjour

peut-être comme ceci

eclatement = Split(Range("A1"), "/")
Range("A3") = eclatement(0)
Range("A4") = eclatement(1)

Bon courage

 

[Catrice]

Re : Fonction Split

Bonjour,

Un exemple :
Sub Test()
Range("A3:A4").FormulaArray = Application.Transpose(Split(Range("A1").Value, "/", 2))
End Sub


Voir fichier joint.

 

[Bebere]

Re : Fonction Split

bonjour Catrice,Pascal,Fab

une autre
Range("A3:A4").Value = Application.Transpose(Split(Range("A1"), "/"))
à bientôt

 

[Fab117]

Re : Fonction Split

Salut,
Merci pour toutes vos réponses.
Avec un peu d'avance : Bonnes fêtes de Paques.

Fab