Faire une macro avec Excel
Fermé
bisu325
-
Modifié par bisu325 le 16/09/2011 à 10:12
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 16 sept. 2011 à 10:33
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 16 sept. 2011 à 10:33
A voir également:
- Faire une macro avec Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Aller à la ligne excel - Guide
2 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
16 sept. 2011 à 10:31
16 sept. 2011 à 10:31
bonjour
c'est peut-^tre possible sans macro avec la fonction "convertir" mais
il faudrait voir comment est organisé la cellule avec ses 4 lignes
sinon on passera par vba
pour joindre une pièce
mettre le classeur sans données confidentielles en pièce jointe (format XL97-2003) sur
https://www.cjoint.com/
et faire un clic droit sur le lien proposé puis "copier l'adresse du lien" et coller dans le message de réponse
c'est peut-^tre possible sans macro avec la fonction "convertir" mais
il faudrait voir comment est organisé la cellule avec ses 4 lignes
sinon on passera par vba
pour joindre une pièce
mettre le classeur sans données confidentielles en pièce jointe (format XL97-2003) sur
https://www.cjoint.com/
et faire un clic droit sur le lien proposé puis "copier l'adresse du lien" et coller dans le message de réponse
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 657
16 sept. 2011 à 10:33
16 sept. 2011 à 10:33
bonjour
Une macro qui doit faire ce que tu veux.
La colonne avec le texte est la colonne "A" et il est ventilé sur les colonnes B (2) et suivantes. Tu peux bien sûr adapter les colonnes en fonction de ton classeur.
Une macro qui doit faire ce que tu veux.
La colonne avec le texte est la colonne "A" et il est ventilé sur les colonnes B (2) et suivantes. Tu peux bien sûr adapter les colonnes en fonction de ton classeur.
Public Sub ventiler()
Dim lig As Long, col As Integer, deb As Integer, pos As Integer
For lig = 1 To Cells(Rows(1).Cells.Count, 1).End(xlUp).Row
col = 2 'colonne B début ventilation
deb = 1: pos = 1
pos = InStr(deb, Cells(lig, "A"), Chr(10))
While pos > 0
Cells(lig, col).Value = Mid(Cells(lig, "A").Value, deb, pos - deb)
col = col + 1: deb = pos + 1
pos = InStr(deb, Cells(lig, "A"), Chr(10))
Wend
Cells(lig, col).Value = Mid(Cells(lig, "A").Value, deb)
Next lig
End Sub