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.
Separer les information d'une cellule en 3 cellules
- jeromechant
- Membre habitué
- Messages : 69
- Inscrit le : 30 novembre 2018
- Version d'Excel : 365
-
- SÉPARER LES DONNÉES dans plusieur CELLULES .xlsx
- (8.98 Kio) Téléchargé 1 fois
- curulis57
- Passionné d'Excel
- Messages : 3'220
- Appréciations reçues : 140
- Inscrit le : 4 janvier 2016
- Version d'Excel : 2016 FR / 2019 FR
Salut jeromechant,
un double-clic sur la feuille démarre la macro.
A+
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+
-
- Jeromechant.xlsm
- (15.04 Kio) Téléchargé 1 fois
- jeromechant
- Membre habitué
- Messages : 69
- Inscrit le : 30 novembre 2018
- Version d'Excel : 365
Merci
-
- Sujets similaires
- Réponses
- Vues
- Dernier message
-
-
regroupement d'information de cellules colorées
par kevinteamgravity » 3 avril 2018, 16:33 » dans Excel - VBA - 2 Réponses
- 126 Vues
-
Dernier message par kevinteamgravity
4 avril 2018, 11:14
-
-
-
SÉparer les donnÉes sur plusieurs cellules
par jeromechant » 1 décembre 2019, 08:26 » dans Excel - VBA - 8 Réponses
- 124 Vues
-
Dernier message par gmb
1 décembre 2019, 23:50
-
-
- 2 Réponses
- 1506 Vues
-
Dernier message par babouze64
25 avril 2014, 02:43
-
-
Séparer une donnée dans 2 cellules quand il y a un espace
par deejay » 10 juillet 2014, 08:59 » dans Excel - VBA - 4 Réponses
- 216 Vues
-
Dernier message par deejay
10 juillet 2014, 14:55
-
-
-
Scinder information des cellules en plusieurs lignes
par tanaclar » 17 mai 2019, 17:45 » dans Excel - VBA - 6 Réponses
- 107 Vues
-
Dernier message par tanaclar
22 mai 2019, 16:26
-
-
-
Séparer contenu dans d'autres cellules d'une autre page
par Matt06 » 10 septembre 2019, 18:59 » dans Excel - VBA - 8 Réponses
- 102 Vues
-
Dernier message par Matt06
14 septembre 2019, 16:08
-