Bonjour =E0 tous,
J'ai un petit souci et j'aurai besoin d'aide.
J'ai Concaten=E9 des celulles dont le r=E9sultat est
X p X
p X X
X X p
p X p
et j' aimerai que dans ces celulles l'affichage se fa=E7e de la fa=E7on
suivant
X X p
X X p
X X P
Xpp
en bref , que les X se placent devant.
Comment les tri=E9es ?
Mreci pour toute solutions.
Frdey
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
Tatanka
Salut Fredy,
Une piste : En supposant que la plage A1:C4 ne contient que des x ou des p. 1) Copie cette fonction dans un module standard Function conca(plage As Range) For Each lettre In plage If lettre = "x" Then un = un & lettre Else deux = deux & lettre Next lettre conca = un & deux End Function 2) Entre la formule =conca(A1:C1) en D1 et recopie-là jusqu'en D4.
*** Cette fonction personnalisée ne fait pas de distinction entre majuscules et minuscules.
Cela te convient-il ?
Serge
"Fredy" a écrit dans le message de news:
Bonjour à tous, J'ai un petit souci et j'aurai besoin d'aide. J'ai Concatené des celulles dont le résultat est X p X p X X X X p p X p et j' aimerai que dans ces celulles l'affichage se façe de la façon suivant X X p X X p X X P Xpp en bref , que les X se placent devant.
Comment les triées ? Mreci pour toute solutions. Frdey
Salut Fredy,
Une piste :
En supposant que la plage A1:C4 ne contient que des x ou des p.
1) Copie cette fonction dans un module standard
Function conca(plage As Range)
For Each lettre In plage
If lettre = "x" Then un = un & lettre Else deux = deux & lettre
Next lettre
conca = un & deux
End Function
2) Entre la formule =conca(A1:C1) en D1 et recopie-là jusqu'en D4.
*** Cette fonction personnalisée ne fait pas de distinction entre
majuscules et minuscules.
Cela te convient-il ?
Serge
"Fredy" <laurent.fredy@wanadoo.fr> a écrit dans le message de news:
abb98633-d293-47af-9083-ff87b35a1d74@26g2000hsk.googlegroups.com...
Bonjour à tous,
J'ai un petit souci et j'aurai besoin d'aide.
J'ai Concatené des celulles dont le résultat est
X p X
p X X
X X p
p X p
et j' aimerai que dans ces celulles l'affichage se façe de la façon
suivant
X X p
X X p
X X P
Xpp
en bref , que les X se placent devant.
Comment les triées ?
Mreci pour toute solutions.
Frdey
Une piste : En supposant que la plage A1:C4 ne contient que des x ou des p. 1) Copie cette fonction dans un module standard Function conca(plage As Range) For Each lettre In plage If lettre = "x" Then un = un & lettre Else deux = deux & lettre Next lettre conca = un & deux End Function 2) Entre la formule =conca(A1:C1) en D1 et recopie-là jusqu'en D4.
*** Cette fonction personnalisée ne fait pas de distinction entre majuscules et minuscules.
Cela te convient-il ?
Serge
"Fredy" a écrit dans le message de news:
Bonjour à tous, J'ai un petit souci et j'aurai besoin d'aide. J'ai Concatené des celulles dont le résultat est X p X p X X X X p p X p et j' aimerai que dans ces celulles l'affichage se façe de la façon suivant X X p X X p X X P Xpp en bref , que les X se placent devant.
Comment les triées ? Mreci pour toute solutions. Frdey
Tatanka
Oups,
Je voulais écrire : Function conca(plage As Range) For Each lettre In plage If UCase(lettre) = "X" Then un = un & lettre Else deux = deux & lettre Next lettre conca = un & deux End Function
Serge
"Tatanka" a écrit dans le message de news: 9Gndk.10$
Salut Fredy,
Une piste : En supposant que la plage A1:C4 ne contient que des x ou des p. 1) Copie cette fonction dans un module standard Function conca(plage As Range) For Each lettre In plage If lettre = "x" Then un = un & lettre Else deux = deux & lettre Next lettre conca = un & deux End Function 2) Entre la formule =conca(A1:C1) en D1 et recopie-là jusqu'en D4.
*** Cette fonction personnalisée ne fait pas de distinction entre majuscules et minuscules.
Cela te convient-il ?
Serge
"Fredy" a écrit dans le message de news:
Bonjour à tous, J'ai un petit souci et j'aurai besoin d'aide. J'ai Concatené des celulles dont le résultat est X p X p X X X X p p X p et j' aimerai que dans ces celulles l'affichage se façe de la façon suivant X X p X X p X X P Xpp en bref , que les X se placent devant.
Comment les triées ? Mreci pour toute solutions. Frdey
Oups,
Je voulais écrire :
Function conca(plage As Range)
For Each lettre In plage
If UCase(lettre) = "X" Then un = un & lettre Else deux = deux & lettre
Next lettre
conca = un & deux
End Function
Serge
"Tatanka" <garnote3ENLEVER@videotron.ca> a écrit dans le message de news: 9Gndk.10$oC2.25@weber.videotron.net...
Salut Fredy,
Une piste :
En supposant que la plage A1:C4 ne contient que des x ou des p.
1) Copie cette fonction dans un module standard
Function conca(plage As Range)
For Each lettre In plage
If lettre = "x" Then un = un & lettre Else deux = deux & lettre
Next lettre
conca = un & deux
End Function
2) Entre la formule =conca(A1:C1) en D1 et recopie-là jusqu'en D4.
*** Cette fonction personnalisée ne fait pas de distinction entre
majuscules et minuscules.
Cela te convient-il ?
Serge
"Fredy" <laurent.fredy@wanadoo.fr> a écrit dans le message de news:
abb98633-d293-47af-9083-ff87b35a1d74@26g2000hsk.googlegroups.com...
Bonjour à tous,
J'ai un petit souci et j'aurai besoin d'aide.
J'ai Concatené des celulles dont le résultat est
X p X
p X X
X X p
p X p
et j' aimerai que dans ces celulles l'affichage se façe de la façon
suivant
X X p
X X p
X X P
Xpp
en bref , que les X se placent devant.
Comment les triées ?
Mreci pour toute solutions.
Frdey
Je voulais écrire : Function conca(plage As Range) For Each lettre In plage If UCase(lettre) = "X" Then un = un & lettre Else deux = deux & lettre Next lettre conca = un & deux End Function
Serge
"Tatanka" a écrit dans le message de news: 9Gndk.10$
Salut Fredy,
Une piste : En supposant que la plage A1:C4 ne contient que des x ou des p. 1) Copie cette fonction dans un module standard Function conca(plage As Range) For Each lettre In plage If lettre = "x" Then un = un & lettre Else deux = deux & lettre Next lettre conca = un & deux End Function 2) Entre la formule =conca(A1:C1) en D1 et recopie-là jusqu'en D4.
*** Cette fonction personnalisée ne fait pas de distinction entre majuscules et minuscules.
Cela te convient-il ?
Serge
"Fredy" a écrit dans le message de news:
Bonjour à tous, J'ai un petit souci et j'aurai besoin d'aide. J'ai Concatené des celulles dont le résultat est X p X p X X X X p p X p et j' aimerai que dans ces celulles l'affichage se façe de la façon suivant X X p X X p X X P Xpp en bref , que les X se placent devant.
Comment les triées ? Mreci pour toute solutions. Frdey
michdenis
En choisissant la plage de cellules que tu désires : '-------------------------- Sub test() Dim T As String, C As Range For Each C In Range("A1:A4") T = Replace(UCase(C), "X", "") C.Value = Application.Rept("X", Len(C) - Len(T)) & T Next End Sub '--------------------------
"Fredy" a écrit dans le message de news: Bonjour à tous, J'ai un petit souci et j'aurai besoin d'aide. J'ai Concatené des celulles dont le résultat est X p X p X X X X p p X p et j' aimerai que dans ces celulles l'affichage se façe de la façon suivant X X p X X p X X P Xpp en bref , que les X se placent devant.
Comment les triées ? Mreci pour toute solutions. Frdey
En choisissant la plage de cellules que tu désires :
'--------------------------
Sub test()
Dim T As String, C As Range
For Each C In Range("A1:A4")
T = Replace(UCase(C), "X", "")
C.Value = Application.Rept("X", Len(C) - Len(T)) & T
Next
End Sub
'--------------------------
"Fredy" <laurent.fredy@wanadoo.fr> a écrit dans le message de news: abb98633-d293-47af-9083-ff87b35a1d74@26g2000hsk.googlegroups.com...
Bonjour à tous,
J'ai un petit souci et j'aurai besoin d'aide.
J'ai Concatené des celulles dont le résultat est
X p X
p X X
X X p
p X p
et j' aimerai que dans ces celulles l'affichage se façe de la façon
suivant
X X p
X X p
X X P
Xpp
en bref , que les X se placent devant.
Comment les triées ?
Mreci pour toute solutions.
Frdey
En choisissant la plage de cellules que tu désires : '-------------------------- Sub test() Dim T As String, C As Range For Each C In Range("A1:A4") T = Replace(UCase(C), "X", "") C.Value = Application.Rept("X", Len(C) - Len(T)) & T Next End Sub '--------------------------
"Fredy" a écrit dans le message de news: Bonjour à tous, J'ai un petit souci et j'aurai besoin d'aide. J'ai Concatené des celulles dont le résultat est X p X p X X X X p p X p et j' aimerai que dans ces celulles l'affichage se façe de la façon suivant X X p X X p X X P Xpp en bref , que les X se placent devant.
Comment les triées ? Mreci pour toute solutions. Frdey
Fredy
Rebonjour, La solution de michdenis me va parfaitement. Merci à vous 2 pour votre aide. Fredy
On 10 juil, 15:44, "michdenis" wrote:
En choisissant la plage de cellules que tu désires : '-------------------------- Sub test() Dim T As String, C As Range For Each C In Range("A1:A4") T = Replace(UCase(C), "X", "") C.Value = Application.Rept("X", Len(C) - Len(T)) & T Next End Sub '--------------------------
Rebonjour,
La solution de michdenis me va parfaitement.
Merci à vous 2 pour votre aide.
Fredy
On 10 juil, 15:44, "michdenis" <michde...@hotmail.com> wrote:
En choisissant la plage de cellules que tu désires :
'--------------------------
Sub test()
Dim T As String, C As Range
For Each C In Range("A1:A4")
T = Replace(UCase(C), "X", "")
C.Value = Application.Rept("X", Len(C) - Len(T)) & T
Next
End Sub
'--------------------------
Rebonjour, La solution de michdenis me va parfaitement. Merci à vous 2 pour votre aide. Fredy
On 10 juil, 15:44, "michdenis" wrote:
En choisissant la plage de cellules que tu désires : '-------------------------- Sub test() Dim T As String, C As Range For Each C In Range("A1:A4") T = Replace(UCase(C), "X", "") C.Value = Application.Rept("X", Len(C) - Len(T)) & T Next End Sub '--------------------------
