comment scinder par le biais d'une macro une cellule en=20
deux.=20
les cellules choisies dans une colonne contiennent des=20
noms et l'on veut que les 4 premi=E8res lettres soient dans=20
la 1er cellule et le reste dans la seconde.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour alex Tu sélectionnes ta plage puis tu exécutes ceci : For Each c In Selection.Cells c.Offset(0, 1).Value = Right(c, Len(c) - 4) c.Value = Left(c, 4) Next c Cordialement Pascal
"alex" a écrit dans le message de news:06a901c3ad08$554429e0$ comment scinder par le biais d'une macro une cellule en deux. les cellules choisies dans une colonne contiennent des noms et l'on veut que les 4 premières lettres soient dans la 1er cellule et le reste dans la seconde.
merci d avance
Bonjour alex
Tu sélectionnes ta plage puis tu exécutes ceci :
For Each c In Selection.Cells
c.Offset(0, 1).Value = Right(c, Len(c) - 4)
c.Value = Left(c, 4)
Next c
Cordialement
Pascal
"alex" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:06a901c3ad08$554429e0$a401280a@phx.gbl...
comment scinder par le biais d'une macro une cellule en
deux.
les cellules choisies dans une colonne contiennent des
noms et l'on veut que les 4 premières lettres soient dans
la 1er cellule et le reste dans la seconde.
Bonjour alex Tu sélectionnes ta plage puis tu exécutes ceci : For Each c In Selection.Cells c.Offset(0, 1).Value = Right(c, Len(c) - 4) c.Value = Left(c, 4) Next c Cordialement Pascal
"alex" a écrit dans le message de news:06a901c3ad08$554429e0$ comment scinder par le biais d'une macro une cellule en deux. les cellules choisies dans une colonne contiennent des noms et l'on veut que les 4 premières lettres soient dans la 1er cellule et le reste dans la seconde.
merci d avance
ru-th
Salut
Donnée/convertir Largeur fixe 2ème étape, tu positionnes la séparation après le 4ème caractère
pour la macro Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(4, 1))
a+ rural thierry
"alex" a écrit dans le message de news: 06a901c3ad08$554429e0$ comment scinder par le biais d'une macro une cellule en deux. les cellules choisies dans une colonne contiennent des noms et l'on veut que les 4 premières lettres soient dans la 1er cellule et le reste dans la seconde.
merci d avance
Salut
Donnée/convertir Largeur fixe
2ème étape, tu positionnes la séparation après le 4ème caractère
pour la macro
Columns("A:A").TextToColumns Destination:=Range("A1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(4, 1))
a+
rural thierry
"alex" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 06a901c3ad08$554429e0$a401280a@phx.gbl...
comment scinder par le biais d'une macro une cellule en
deux.
les cellules choisies dans une colonne contiennent des
noms et l'on veut que les 4 premières lettres soient dans
la 1er cellule et le reste dans la seconde.
Donnée/convertir Largeur fixe 2ème étape, tu positionnes la séparation après le 4ème caractère
pour la macro Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(4, 1))
a+ rural thierry
"alex" a écrit dans le message de news: 06a901c3ad08$554429e0$ comment scinder par le biais d'une macro une cellule en deux. les cellules choisies dans une colonne contiennent des noms et l'on veut que les 4 premières lettres soient dans la 1er cellule et le reste dans la seconde.
merci d avance
merci de me compiler tout cela pour que je puisse faire un copier coller dans ma macro
cordialement Alexis
-----Message d'origine----- Salut
Donnée/convertir Largeur fixe 2ème étape, tu positionnes la séparation après le 4ème caractère
pour la macro Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(4, 1))
a+ rural thierry
"alex" a écrit dans le message de
news: 06a901c3ad08$554429e0$ comment scinder par le biais d'une macro une cellule en deux. les cellules choisies dans une colonne contiennent des noms et l'on veut que les 4 premières lettres soient dans la 1er cellule et le reste dans la seconde.
merci d avance
.
merci de me compiler tout cela pour que je puisse faire
un copier coller dans ma macro
cordialement
Alexis
-----Message d'origine-----
Salut
Donnée/convertir Largeur fixe
2ème étape, tu positionnes la séparation après le 4ème
caractère
pour la macro
Columns("A:A").TextToColumns Destination:=Range("A1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(4, 1))
a+
rural thierry
"alex" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 06a901c3ad08$554429e0$a401280a@phx.gbl...
comment scinder par le biais d'une macro une cellule en
deux.
les cellules choisies dans une colonne contiennent des
noms et l'on veut que les 4 premières lettres soient dans
la 1er cellule et le reste dans la seconde.
merci de me compiler tout cela pour que je puisse faire un copier coller dans ma macro
cordialement Alexis
-----Message d'origine----- Salut
Donnée/convertir Largeur fixe 2ème étape, tu positionnes la séparation après le 4ème caractère
pour la macro Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(4, 1))
a+ rural thierry
"alex" a écrit dans le message de
news: 06a901c3ad08$554429e0$ comment scinder par le biais d'une macro une cellule en deux. les cellules choisies dans une colonne contiennent des noms et l'on veut que les 4 premières lettres soient dans la 1er cellule et le reste dans la seconde.
