tri alphabétique

Le
sylvie.gautron
Bonjour,
Je voudrais savoir s'il existe une possibilité d'effectuer un tri
alphabétique à l'intérieur d'une même cellule, sous forme de macro ou autre.
exemple, cellule A1, lettres saisies : retains.
effectuer une manip pour les retrouver dans cet ordre : aeinrst
Merci d'avance pour votre aide
SG
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4811521
Bonjour,

Dans un module: alt+F11 puis insertion/module

Function TriCellule(cellule)
temp = cellule
For i = 1 To Len(temp)
For j = i To Len(temp)
If Mid(temp, j, 1) < Mid(temp, i, 1) Then
temp2 = Mid(temp, j, 1)
Mid(temp, j, 1) = Mid(temp, i, 1)
Mid(temp, i, 1) = temp2
End If
Next j
Next i
TriCellule = temp
End Function

dans le tableur: =TriCellule(A1)

JB

On 6 août, 14:56, "sylvie.gautron"
Bonjour,
Je voudrais savoir s'il existe une possibilité d'effectuer un tri
alphabétique à l'intérieur d'une même cellule, sous forme de macr o ou autre.
exemple, cellule A1, lettres saisies : retains.
effectuer une manip pour les retrouver dans cet ordre : aeinrst
Merci d'avance pour votre aide
SG


sylvie.gautron
Le #4654291
Tout marche très bien, merci pour le coup de main
"JB"
Bonjour,

Dans un module: alt+F11 puis insertion/module

Function TriCellule(cellule)
temp = cellule
For i = 1 To Len(temp)
For j = i To Len(temp)
If Mid(temp, j, 1) < Mid(temp, i, 1) Then
temp2 = Mid(temp, j, 1)
Mid(temp, j, 1) = Mid(temp, i, 1)
Mid(temp, i, 1) = temp2
End If
Next j
Next i
TriCellule = temp
End Function

dans le tableur: =TriCellule(A1)

JB

On 6 août, 14:56, "sylvie.gautron"
Bonjour,
Je voudrais savoir s'il existe une possibilité d'effectuer un tri
alphabétique à l'intérieur d'une même cellule, sous forme de macro ou
autre.
exemple, cellule A1, lettres saisies : retains.
effectuer une manip pour les retrouver dans cet ordre : aeinrst
Merci d'avance pour votre aide
SG


Publicité
Poster une réponse
Anonyme