Separer les information d'une cellule en 3 cellules

Bonjour,

Pour chaque ligne j'ai une cellule qui contient:

M. pin - LIEU DIT FLA

Mme LANGRY Patric - 9 CHEMI DES ROVES

Mme ferr sandrine - 1 PLACE RAIU - 1 - 1 place raimu

Mlle Vaey Audy - 2 AVENUE ROND GAOS

M. igy gregry - 1 RUE LA AGUAS

M. alt davd - 46 LA SALVETAT - villa N°4 - 46 chee la salvat

Mme Carper Megne - 6 RUE SEHIN COER

Je souhaite les information de la cellulle dans 3 cellules max

Nom & Prenom Adresse 1 de livraison Adresse 2 de livraison

Il y a une separation " - " qui revient toujours mais le probleme en plus c'est que certains on 3 " - " ce qui me ferais 4 case mais je n'ai que 3 emplacement.

Salut jeromechant,

un double-clic sur la feuille démarre la macro.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tTab, tSplit, iCol%, sItem$
'
Cancel = True
tTab = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
For x = 1 To UBound(tTab, 1)
    tSplit = Split(tTab(x, 1), "-")
    For y = 0 To UBound(tSplit)
        iCol = IIf(y < 3, y + 3, 5)
        sItem = IIf(y < 3, tSplit(y), sItem & "-" & tSplit(y))
        Cells(x, iCol) = sItem
    Next
Next
'
End Sub

A+

13jeromechant.xlsm (15.04 Ko)

Merci

Rechercher des sujets similaires à "separer information"