Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une macro
en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des 10
espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas pour
la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de caractère
au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une macro
en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des 10
espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas pour
la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de caractère
au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une macro
en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des 10
espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas pour
la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de caractère
au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une macro
en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des 10
espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas
pour la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de
caractère au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une macro
en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des 10
espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas
pour la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de
caractère au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une macro
en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des 10
espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas
pour la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de
caractère au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour.
Je n'ai pas trop compris ton problème... Si tu sélectionnes la plage et que tu fais un "remplacer" " " par ";" ?
Cordialement.
Daniel
"newsX" a écrit dans le message de news: evkpfd$5o7$
Bonjour.
Je n'ai pas trop compris ton problème... Si tu sélectionnes la plage et que tu fais un "remplacer" " " par ";" ?
Cordialement.
Daniel
"newsX" <hdi.idf.NoSpam@free.fr> a écrit dans le message de news: evkpfd$5o7$1@aioe.org...
Bonjour.
Je n'ai pas trop compris ton problème... Si tu sélectionnes la plage et que tu fais un "remplacer" " " par ";" ?
Cordialement.
Daniel
"newsX" a écrit dans le message de news: evkpfd$5o7$
Bonjour.
Je n'ai pas trop compris ton problème... Si tu sélectionnes la plage et
que tu fais un "remplacer" " " par ";" ?
Cordialement.
Daniel
"newsX" a écrit dans le message de news:
evkpfd$5o7$Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une
macro en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des
10 espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas
pour la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de
caractère au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour.
Je n'ai pas trop compris ton problème... Si tu sélectionnes la plage et
que tu fais un "remplacer" " " par ";" ?
Cordialement.
Daniel
"newsX" <hdi.idf.NoSpam@free.fr> a écrit dans le message de news:
evkpfd$5o7$1@aioe.org...
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une
macro en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des
10 espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas
pour la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de
caractère au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour.
Je n'ai pas trop compris ton problème... Si tu sélectionnes la plage et
que tu fais un "remplacer" " " par ";" ?
Cordialement.
Daniel
"newsX" a écrit dans le message de news:
evkpfd$5o7$Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une
macro en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des
10 espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas
pour la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de
caractère au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour,
Peut-être avec cette fonction trouvée dans un post:
Voici une fonction VBA qui effectue un
remplacement de caractère: ( par exemple : =StrReplace(A25; "!"; "")
================================================ > Function StrReplace(cible, anc, nouv)
z = 1
travail = cible
StrReplace = ""
While Len(travail) > 0
zz = InStr(z, travail, anc)
If (zz = 0) Then GoTo fin
StrReplace = StrReplace & Left(travail, zz - 1) & nouv
travail = Right(travail, Len(travail) - zz - Len(anc) + 1)
Wend
fin: StrReplace = StrReplace & travail
End Function
============================================ >
FetnatBonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une
macro en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des
10 espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas
pour la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de
caractère au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour,
Peut-être avec cette fonction trouvée dans un post:
Voici une fonction VBA qui effectue un
remplacement de caractère: ( par exemple : =StrReplace(A25; "!"; "")
================================================ > Function StrReplace(cible, anc, nouv)
z = 1
travail = cible
StrReplace = ""
While Len(travail) > 0
zz = InStr(z, travail, anc)
If (zz = 0) Then GoTo fin
StrReplace = StrReplace & Left(travail, zz - 1) & nouv
travail = Right(travail, Len(travail) - zz - Len(anc) + 1)
Wend
fin: StrReplace = StrReplace & travail
End Function
============================================ >
Fetnat
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une
macro en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des
10 espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas
pour la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de
caractère au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour,
Peut-être avec cette fonction trouvée dans un post:
Voici une fonction VBA qui effectue un
remplacement de caractère: ( par exemple : =StrReplace(A25; "!"; "")
================================================ > Function StrReplace(cible, anc, nouv)
z = 1
travail = cible
StrReplace = ""
While Len(travail) > 0
zz = InStr(z, travail, anc)
If (zz = 0) Then GoTo fin
StrReplace = StrReplace & Left(travail, zz - 1) & nouv
travail = Right(travail, Len(travail) - zz - Len(anc) + 1)
Wend
fin: StrReplace = StrReplace & travail
End Function
============================================ >
FetnatBonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une
macro en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des
10 espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas
pour la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de
caractère au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonsour® newsX avec ferveur ;o))) vous nous disiez :Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
par formule
=SUBSTITUE(A1;" ";CAR(59))
par VBA
Sub changeNewX()
For Each cellule In Range("A1:A21")
cellule.Value = Application.Substitute(cellule, " ", Chr(59))
Next
End Sub
--
--
@+
;o)))
Bonsour® newsX avec ferveur ;o))) vous nous disiez :
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
par formule
=SUBSTITUE(A1;" ";CAR(59))
par VBA
Sub changeNewX()
For Each cellule In Range("A1:A21")
cellule.Value = Application.Substitute(cellule, " ", Chr(59))
Next
End Sub
--
--
@+
;o)))
Bonsour® newsX avec ferveur ;o))) vous nous disiez :Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
par formule
=SUBSTITUE(A1;" ";CAR(59))
par VBA
Sub changeNewX()
For Each cellule In Range("A1:A21")
cellule.Value = Application.Substitute(cellule, " ", Chr(59))
Next
End Sub
--
--
@+
;o)))
Je souhaite remplacer seulement les 10er espaces en partant de la droite par
10 séparateurs et pas un de plus
Je souhaite remplacer seulement les 10er espaces en partant de la droite par
10 séparateurs et pas un de plus
Je souhaite remplacer seulement les 10er espaces en partant de la droite par
10 séparateurs et pas un de plus
Bonsour® newsX avec ferveur ;o))) vous nous disiez :Je souhaite remplacer seulement les 10er espaces en partant de la droite
par
10 séparateurs et pas un de plus
attention !!!!!
il ne doit pas y avoir 2 espaces contigüs, ni d'espace final
!!!!!!
Sub changeNewX()
For Each cellule In Range("A1:A21")
nbpv = 0
cible = cellule.Value
For Position = Len(cible) To 1 Step -1
If Mid(cible, Position, 1) = " " Then
Mid(cible, Position, 1) = ";"
nbpv = nbpv + 1
End If
If nbpv > 9 Then Exit For
Next
cellule.Value = cible
Application.StatusBar = cible
DoEvents
Next
End Sub
--
--
@+
;o)))
Bonsour® newsX avec ferveur ;o))) vous nous disiez :
Je souhaite remplacer seulement les 10er espaces en partant de la droite
par
10 séparateurs et pas un de plus
attention !!!!!
il ne doit pas y avoir 2 espaces contigüs, ni d'espace final
!!!!!!
Sub changeNewX()
For Each cellule In Range("A1:A21")
nbpv = 0
cible = cellule.Value
For Position = Len(cible) To 1 Step -1
If Mid(cible, Position, 1) = " " Then
Mid(cible, Position, 1) = ";"
nbpv = nbpv + 1
End If
If nbpv > 9 Then Exit For
Next
cellule.Value = cible
Application.StatusBar = cible
DoEvents
Next
End Sub
--
--
@+
;o)))
Bonsour® newsX avec ferveur ;o))) vous nous disiez :Je souhaite remplacer seulement les 10er espaces en partant de la droite
par
10 séparateurs et pas un de plus
attention !!!!!
il ne doit pas y avoir 2 espaces contigüs, ni d'espace final
!!!!!!
Sub changeNewX()
For Each cellule In Range("A1:A21")
nbpv = 0
cible = cellule.Value
For Position = Len(cible) To 1 Step -1
If Mid(cible, Position, 1) = " " Then
Mid(cible, Position, 1) = ";"
nbpv = nbpv + 1
End If
If nbpv > 9 Then Exit For
Next
cellule.Value = cible
Application.StatusBar = cible
DoEvents
Next
End Sub
--
--
@+
;o)))
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une macro
en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des 10
espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas pour
la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de caractère
au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une macro
en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des 10
espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas pour
la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de caractère
au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier
Bonjour,
Dans une cellule j'ai les chaines de caractère suivantes :
Club Pts J G N P F Bp Bc Pé Dif
et
Lens 2 60 26 9 8 9 0 30 35 0 -5
Je souhaiterais remplacer les 10 espaces en partant de la droite par 10
points virgule (ou autre symbole de séparateur).
Dans un premier temps j'ai pensé que je pouvais m'en sortir avec une macro
en mode enregistrement et faire les manipulations suivantes :
ActiveCell.FormulaR1C1 puis avec CTRL SHIFT FLECHE remplacer chacun des 10
espaces par Point Virgule
j'ai obtenu comme résultat :
Club;Pts;J;G;N;P;F;Bp;Bc;Pé;Dif
Ce qui en soit est bon pour cette chaine de caractère mais en aucun cas pour
la suivante.
Au total je devrais avoir à répéter cette macro sur 21 chaines de caractère
au maximum.
Si vous avez une solution à me suggérer
Merci
Xavier