Bonjour,
je veux réaliser un planning avec un bouton permettant de demander le nom de la personne et ensuite sa tranche horaire pour ainsi la visualiser en couleur sur une plage horaire. Cela fonctionne (fichier : Pièce jointe 215481 mais j'ai l'intention de créer un trie permettant d'avoir ce genre de résultat :


Pièce jointe 215480

Mon code étant pour le moment de cette manière :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub trie()
Dim Ax As Integer
Dim Dx As Integer
Dim Dexex As Integer
Dim tableauexcel As Application
 
 
For Ax = 7 To 69 Step 2
 
For Dx = 9 To 69 Step 2
 
If Range("AL" & Ax) > Range("AL" & Dx) Then
 
Worksheets("Feuil1").Range("A" & Ax, "AF" & Ax).Copy _
Destination:=Worksheets("Feuil1").Range("A74", "AF74")
 
Worksheets("Feuil1").Range("A" & Dx, "AF" & Dx).Copy _
Destination:=Worksheets("Feuil1").Range("A" & Ax, "AF" & Ax)
 
 
Worksheets("Feuil1").Range("A74", "AF74").Copy _
Destination:=Worksheets("Feuil1").Range("A" & Dx, "AF" & Dx)
 
 
Range("AL74") = Range("AL" & Ax)
Range("AL" & Ax) = Range("AL" & Dx)
Range("AL" & Dx) = Range("Al74")
 
Exit For
 
 End If
 
Next
 
Next
End Sub
Je vous demande votre aide si quelqu'un peut m'aider sa serait formidable pour que je finalise ce fichier.