Distribuer texte d'une cellule sur 4 autres cellules

[donogoo]

Bonjour à tous !!

J'aurais une petite question à vous posez si vous le voulez bien !

Voila, dans une cellule, j'ai une donnée du type " Directeur Général : M. George Abitbol" et j'aimerai mettre dans 4 cellules les infos suivantes :

1ere cellule : Directeur Général
2eme : M.
3ème : George
4eme: Abitbol

Savez vous comment faire cela ??

Merci beaucoup pour votre aide, cela me sauverait !

 

[donogoo]

Re : Distribuer texte d'une cellule sur 4 autres cellules

Petite précision... ce serait bien entendu du code VB dont j'aurais besoin !

Merci d'avance

 

[tbft]

Re : Distribuer texte d'une cellule sur 4 autres cellules

Bonjour

as tu essayé la fonction split de vba?


Option Explicit
Option Base 1

Function separation(texte As String, separateur1 As String, separateur2 As String)
Dim res1, res2, i, nb, res()
res1 = Split(texte, separateur1)
res2 = Split(res1(1), separateur2)
nb = UBound(res2)
ReDim res(2 + nb)
res(1) = res1(0)
For i = 0 To nb
res(i + 2) = res2(i)
Next i
separation = res
End Function

 

[mromain]

Re : Distribuer texte d'une cellule sur 4 autres cellules

bonjour donogoo

voici des fonction VBA à base de Split.

a+

 

[Temjeh]

Re : Distribuer texte d'une cellule sur 4 autres cellules

Bonjour

En formule


Aussi tu peut avec donnée ...convertir

Ce lien n'existe plus