XL 2019 planning suivi stagiaire

p56 à dit:

Bonjour,
Oui, dans la "Function T_graph" il suffit d'indiquer l'ordre souhaité, ici par Id (et en option par date de début)

VB:

Function T_graph(cbx As Integer, deb As Long, fin As Long)
Dim Rq As Variant
    Rq = Array("`Formation`,`Lieux d'affectation`,`P_stagiaire`&' '&`N_stagiaire`", _
               "`Lieux d'affectation`,`Formation`,`P_stagiaire`&' '&`N_stagiaire`", _
               "`P_stagiaire`&' '&`N_stagiaire`,`Formation`,`Lieux d'affectation`")
       
    Req = "SELECT `Id`," & Rq(cbx) & _
          " ,`P_stagiaire`&' '&`N_stagiaire` AS Nom,`Début`,`Fin`,`Etat`" & _
          " ,`Institut de formation`,`Année de formation` " & _
          " FROM [Data$A:J] " & _
          " WHERE (NOT (`Fin` < " & deb & " OR `Début` > " & fin & "))" & _
          " AND ISNULL (`Etat`) " & _
          " ORDER BY `Id`"
          ' " ORDER BY " & Rq(cbx) & ", `N_stagiaire`"
          ' ou" ORDER BY `Début"
    Connect_xls ThisWorkbook.FullName
    T_graph = Select_Db(Req, 0)
    Close_Cnx
End Function

Cliquez pour agrandir...

p56 à dit:

Bonjour à tous,
@gouze : oui c'est possible
p56

Cliquez pour agrandir...

p56 à dit:

Ah non c'est assez simple
(+ correction du défaut relevé par @Fran_ )
P

Cliquez pour agrandir...

gouze à dit:

merci!

Cliquez pour agrandir...

p56 à dit:

Ah, tiens une erreur d'étourderie.
Dans le module "Accueil", procédure "Graphe", à la place de :
If UBound(Tdata, 1) > 0 Then
Il convient d'écrire :
If UBound(Tdata, 2) > 1 Then
Et ça devrait aller
P.

Cliquez pour agrandir...

p56 à dit:

Bonjour,
?? Merci de votre intérêt mais dans ce fichier il suffit de choisir l'année dans la liste déroulante, le choix va jusqu'en 2037
Avec la correction indiquée plus haut ça fonctionne
P

Cliquez pour agrandir...