Separer les information d'une cellule en 3 cellules

Y compris Writer et toute autre question en lien avec les suites bureautiques Open Source
j
jeromechant
Membre habitué
Membre habitué
Messages : 69
Inscrit le : 30 novembre 2018
Version d'Excel : 365

Message par jeromechant » 1 décembre 2019, 17:51

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.
SÉPARER LES DONNÉES dans plusieur CELLULES .xlsx
(8.98 Kio) Téléchargé 1 fois
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'220
Appréciations reçues : 140
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 2 décembre 2019, 13:19

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
:btres:

8-)
A+
Jeromechant.xlsm
(15.04 Kio) Téléchargé 1 fois
j
jeromechant
Membre habitué
Membre habitué
Messages : 69
Inscrit le : 30 novembre 2018
Version d'Excel : 365

Message par jeromechant » 4 décembre 2019, 02:48

Merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message