Mélanger cellule dans une colonne sue excel
Fermé
ng
-
14 sept. 2011 à 21:58
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 15 sept. 2011 à 08:21
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 15 sept. 2011 à 08:21
A voir également:
- Mélanger cellule dans une colonne sue excel
- Déplacer une colonne excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
3 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 681
14 sept. 2011 à 22:30
14 sept. 2011 à 22:30
bonjour
Quel ordre veux-tu mettre dans ta liste ?
- aléatoire ?
- personnalisé ?
- trié ?
Quel ordre veux-tu mettre dans ta liste ?
- aléatoire ?
- personnalisé ?
- trié ?
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 395
Modifié par Vaucluse le 15/09/2011 à 08:26
Modifié par Vaucluse le 15/09/2011 à 08:26
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?
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?
Raymond PENTIER
Messages postés
58328
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
28 mars 2024
17 088
15 sept. 2011 à 02:25
15 sept. 2011 à 02:25
Et quel est ton problème, ng ?
* Tu ne sais pas insérer une ligne ?
* Tu ne sais pas trier une liste ?
* Tu ne sais pas insérer une ligne ?
* Tu ne sais pas trier une liste ?
15 sept. 2011 à 07:57
Aléatoire, je veux en faite cas chaque fois l'ordre oit différent.
merci