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
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
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" wrote:
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
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" <sylvie.gaut...@wanadoo.fr> wrote:
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
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" wrote:
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
Tout marche très bien, merci pour le coup de main "JB" a écrit dans le message de news:
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" wrote:
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
Tout marche très bien, merci pour le coup de main
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1186405848.357420.95260@k79g2000hse.googlegroups.com...
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" <sylvie.gaut...@wanadoo.fr> wrote:
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
Tout marche très bien, merci pour le coup de main "JB" a écrit dans le message de news:
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" wrote:
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
