HELP! comment inverser du texte séparé par // dans une cellule?Résolu

Question

bonjour,



j'ai une colonne contenant des cellules du type:



//liste de mots1//liste de mots2//liste de mots3...



je souhaite avoir:



//liste de mots3//liste de mots2//liste de mots1...



le nombre de listes de mots n'est pas identique pour chaque ligne.



une id&#233;e???



merci

econs · Accepted Answer

S'cuse, j'avais pas test&#233; et j'avais oubli&#233; le "Step -1" dans la boucle For. L&#224;, &#231;&#224; fonctionne !





Si tu appelles InverserColonne(4), tu inverses la 4&#232;me colonne :





Private Sub InverserColonne(lCol As Long)

' Sur les 10 premieres lignes de la colonne numCol (A=1, B=2, ... , I=9 )

Dim lLigne As Long

For lLigne = 1 To 10

    Inverser lLigne, lCol

Next lLigne

End Sub







Private Sub Inverser(lLigne As Long, lCol As Long)

Dim sTemp As String

Dim t() As String



sChaine = Sheets("Feuil1").Cells(lLigne, lCol)

t = Split(sChaine, "//")

sTemp = ""

For k = UBound(t) To LBound(t) Step -1 ' du dernier element au premier

    sTemp = sTemp & t(k) & "//"

Next k

Sheets("Feuil1").Cells(lLigne, lCol) = sTemp

MsgBox sTemp

End Sub

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

jannoman · Answer

utlise la fonction split :
dim t() as string
t = split(chaine, "//")
n = ubound(t)
for k = 1 to n
me.print t(n - k)
next k


essaye aussi le cas ou le tableau va de 1 &#224; n au lieu de 0 &#224; n-1, je ne sais pas



A+.
Thomas.

econs · Answer

Le tableau retourn&#233; par Split commence &#224; l'indice 0

Sinon, si tu ne connais pas les bornes du tableau, tu fais ceci :



Dim sTemp As String

Dim t() As String

t = Split(sChaine,"//")

sTemp = ""

For k=Ubound(t) To LBound(t)    ' du dernier element au premier

    sTemp = sTemp & t(k)

Next k


MsgBox sTemp


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

nicobentz · Answer

merci mais comment indiquer la colonne ou j'applique cette fonction?

econs · Answer

Private Sub InverserColonne(numCol As Long)

' Sur les 10 premieres lignes de la colonne numCol (A=1, B=2, ... , I=9 )

For ll = 1 To 10

    Inverser ll,numCol

Next ll

End Sub







Private Sub Inverser( lLigne As Long, numCol As Long)

 Dim sTemp As String

 Dim t() As String



sChaine = Sheets("Feuil1").Cells(lLigne,numCol)

 t = Split(sChaine,"//")

 sTemp = ""

 For k=Ubound(t) To LBound(t)    ' du dernier element au premier

     sTemp = sTemp & t(k)

 Next k

Sheets("Feuil1").Cells(lLigne,numCol) = sTemp

 MsgBox sTemp

End Sub




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

nicobentz · Answer

d&#233;sol&#233; de te d&#233;ranger encore mais j'utilise le d&#233;boggeur et tout marche
jusqu'&#224; sTemp = sTemp & t(k). la boucle saute directement sur
Cells(x, 45) sTemp sans passer par sTemp sTemp & t(k) donc
sTemp reste vide....et &#231;a marche pas, snif!



For x = 2 To maxx Step 1



    sChaine = Cells(x, 45)

    t = Split(sChaine, "//")

    sTemp = ""

        For k = UBound(t) To LBound(t) ' du dernier element au premier

        sTemp = sTemp & t(k)

        Next k

        

    Cells(x, 45) = sTemp

Next x

nicobentz · Answer

merci beaucoup pour ton aide!!!

bonne soir&#233;e

HELP! comment inverser du texte séparé par // dans une cellule?

7 réponses

Discussions similaires