Mélanger cellule dans une colonne sue excel
ng
-
Vaucluse Messages postés 27336 Date d'inscription Statut Contributeur Dernière intervention -
Vaucluse Messages postés 27336 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Dans une colonne excel j'ai une liste de nom d'arbre ( 1arbre par cellule). j'aurai besoin de changer quand je le désire l'ordre de cette liste, sachant que je vais rajouter au moins un arbre chaque jour. comment puis je faire
merci
Dans une colonne excel j'ai une liste de nom d'arbre ( 1arbre par cellule). j'aurai besoin de changer quand je le désire l'ordre de cette liste, sachant que je vais rajouter au moins un arbre chaque jour. comment puis je faire
merci
3 réponses
-
bonjour
Quel ordre veux-tu mettre dans ta liste ?
- aléatoire ?
- personnalisé ?
- trié ? -
Bonjour
pour une liste en A
1°) masquer la colonne B
2°)
clic droit sur l'onglet nom de la feuille
choisir visualiser le code
dans la fenêtre affichée, coller le code:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
On Error Resume Next
Dim Rw As Long
If Target.Column = 1 Then
Rw = Target.Row
Range("B" & Rw).Select
ActiveCell.FormulaR1C1 = "=RAND()"
Columns("A:C").Select
Sort.SortFields.Add Key:=Range("B:B"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("F_1").Sort
.SetRange Range("A:C")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
Range("A" & Rw + 1).Select
End With
End If
End Sub
chaque fois que vous entrez un nom en colonne A, l'ordre de la liste sera modifié aléatoirement
crdlmnt
ps
pour info, voila ce que ça donne
https://www.cjoint.com/?AIpizrVMdfq
pour remettre la liste A à 0, il faut afficher la colonne B et effacer les chiffres qui y sont placés par la macro.
Demandons nous si nous ne sommes pas seuls à comprendre ce que l'on explique? -
Et quel est ton problème, ng ?
* Tu ne sais pas insérer une ligne ?
* Tu ne sais pas trier une liste ?
