Discussion :

[TigerCX]

Bonjour à tous,

J'essaie d'informatiser une feuille manuscrite en excel pour être capable de transmettre plus rapidement l'information. Je pourrais le faire en PHP, mais comme nous n'avons pas encore un serveur interne dans l'entreprise, je m'essaie en excel avant.

Voici la feuille à informatiser

Dans les 2 lignes du bas, ce sont les numéro de véhicules utilisables, donc la liste de base. On ne s'occupera pas de la liste des véhicules en réparations pour l'instant. Je veux que pour chaque cellule de la colonne «Véhicule utilisé» on ait une liste déroulante pour choisir un véhicule disponible dans la liste du bas. Je veux aussi que lorsqu'on clique sur une autre cellule de véhicule, la liste déroulante n'affiche que les véhicule qui sont disponibles selon les heures d'utilisation.

Un exemple concret : Si je mets un véhicule #1234 dans l'assignation A-07 (11h00 à 15h00), je veux que le véhicule #1234 soit disponible pour l'assignation P-08 (15h00-19h00).

Je ne sais pas si c'est possible de le faire en VBA ou en formule.

Voici ce que j'avais fait, mais je ne suis pas entièrement satisfait : http://www.tigercx.com/crap/OUTIL_Re..._TEMPLATE.xlsm

Dans cette feuille excel, je me suis créé 3 colonnes pour dynamiser mes listes. 2 problèmes me viennent en tête. Le premier étant d'ordre esthétique, le fait d'avoir des espaces blancs dans la liste n'est pas agréable à l'oeil, mais je pourrais vivre avec. Ce qui ne fonctionne pas c'est le fait que si 2 pièces de travail ne se chevauchent pas (comme dans l'exemple donnée ci-haut), le véhicule utilisé dans la première pièce n'est toujours pas disponible pour la deuxième pièce.

Je me débrouille relativement bien en excel, mais dans le cas présent, j'aimerais bien avoir une piste à suivre pour m'en sortir !

Merci

[Daniel.C]

Bonjour,

La macro se trouve dans le module ThisWorkbook. Elle se déclenche quand tu change un numéro de bus :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim C As Range, Plage As Range, Tabl(), Ctr As Integer, Txt As String
    Dim X As Range, I As Integer, Tabl2(), Sem As Variant
    Dim HeurDeb As Date, HeurFin As Date
    Sem = Array("LUNDI", "MARDI", "MERCREDI", "JEUDI", "VENDREDI", "SAMEDI", "DIMANCHE")
    ReDim Tabl2(0)
    Ctr = -1
    If Not IsNumeric(Application.Match(Sh.Name, Sem, 0)) Then Exit Sub
    Application.EnableEvents = False
    With Sh
        ReDim Tabl(Application.CountA(.Range("B27:R28")) - 1)
        For Each C In .Range("B27:R28")
            If C.Value <> "" Then
                Ctr = Ctr + 1
                Tabl(Ctr) = C.Value
            End If
        Next C
        Set Plage = Union(.Range("B6", .Cells(5, 2).End(xlDown)), .Range("H6", .Cells(5, 8).End(xlDown)), _
        .Range("N6", .Cells(5, 14).End(xlDown))).Offset(, 4)
        If Intersect(Plage, Target) Is Nothing Then Exit Sub
        HeurDeb = Target.Offset(, -3)
        HeurFin = Target.Offset(, -2)
        For Each C In Plage
            Txt = ""
            Erase Tabl2
            ReDim Tabl2(0)
            Ctr = -1
            For Each X In Plage
                If (HeurDeb >= X.Offset(, -3) And HeurDeb < X.Offset(, -2)) Or _
                    (HeurFin >= X.Offset(, -3) And HeurFin < X.Offset(, -2)) And X.Value <> "" Then
                    Ctr = Ctr + 1
                    ReDim Preserve Tabl2(Ctr)
                    Tabl2(Ctr) = X.Value
                End If
            Next X
            If Tabl2(0) = "" Then
                For I = 0 To UBound(Tabl)
                        Txt = Txt & "," & Tabl(I)
                Next I
            Else
                For I = 0 To UBound(Tabl)
                    If Not IsNumeric(Application.Match(Tabl(I), Tabl2, 0)) Then
                        Txt = Txt & "," & Tabl(I)
                    End If
                Next I
            End If
            Txt = Right(Txt, Len(Txt) - 1)
            C.Validation.Delete
            C.Validation.Add xlValidateList, , , Txt
    Next C
    End With
    Application.EnableEvents = True
End Sub

Regarde le clahttps://www.dropbox.com/s/ryr57gg29f...LATE.xlsm?dl=0

[TigerCX]

Merci beaucoup pour le document. Je l'ai essayé et ça semble très fonctionner. Il me reste à comprendre la macro car j'aime bien comprendre ce que je fais ! Si j'ai des questions, je reporterai ici !

Merci encore !