Message à h2so4

Question

Re,

Désolé de vous déranger, mais je n'ai pas vérifié le 2ème code que vous m'aviez créé cet après-midi.

Il ne fonctionne pas. Je voulais un tri par cellule et par colonne, là ce n'est pas le cas. Cela aurait pu être bon si j'avais réussi à faire un collé-copié de la colonne A mais ça ne fonctionne pas non plus !

Si vous avez la gentillesse et le temps disponible de revoir le fichier Excel ci-joint je vous remercie.

Bonne soirée,

Sub trierlacellule()
For Each c In Range("A300:A1000")
If c = Empty Then Exit For
tableau = Split(c.Value, "-")
NbMin = LBound(tableau)
For var1 = UBound(tableau) To LBound(tableau) Step -1
    For var2 = NbMin + 1 To var1
        If tableau(var2 - 1) > tableau(var2) Then
vartemp = tableau(var2 - 1)
            tableau(var2 - 1) = tableau(var2)
            tableau(var2) = vartemp
        End If
    Next var2
Next var1
For i = 0 To UBound(tableau)
j = j & "-" & tableau(i)
Next i
c.Value = Mid(j, 2)
Next
End Sub

eriiic · Answer

Tu devrais rester sur le topic en question, plus de chance qu'il voit ton message. eric...

h2so4 · Answer

En effet.....