XL 2019 Remplir plusieurs labels d'un Useform avec les dates d'un calendrier automatique

vgendron à dit:

Bonjour,
bah déjà. par rapport à la version initiale du demandeur:
le nombre global de lignes est divisé par deux puisque la moitié des formulaires ont été supprimés
ensuite
pour le formulaire de saisie: on est passé de 1374 lignes à 403 lignes soit division par /3
pour les 15 modules d'origine: on passe de 430 lignes à 200 soit division par /2

donc à la grosse.. un nombre de ligne / 4 tout en ajoutant une gestion du format de saisie, plus une exploitation des tables structurées (ce qui n'était pas le cas) et une clarification du code qui est plus propre.

Donc. ok, ce n'est pas aussi court que ce que tu suggères, mais avoue que c'est déjà pas si mal pour une demande initiale qui n'était QUE de mettre des dates dans des boites...

et oui, on peut toujours faire mieux

PS: j'avais commencé à appliquer un tag sur tous les controls
déjà, c'est long à faire; surtout quand on est pas sur de quelle colonne alimente quel control (seul l'auteur du fichier peut le savoir à coup sur)
et ca oblige à revoir plus ou moins le projet.
Et perso.. si je devais reprendre le fichier complet, je donnerais des noms de controls qui correspondent aux noms des colonnes.. ainsi, si la colonne change de place, le code n'est pas impacté.. ce qui n'est pas le cas avec les tags qu'il faudrait ajuster..

Enfin, si ton impatience est motivée pour pouvoir dire "Je vous l'avais dit, ma solution est plus courte"
bah c'est pas la peine, on le sait bien que c'est plus court: on sait compter et on a bien conscience que 50 lignes, c'est plus long que 5..

Bon.. allez la France ! (Biathlon)

Cliquez pour agrandir...

vgendron à dit:

pour la macro "Doit" corrigée ca donne ca

VB:

Sub Doit() ' Macro doit 'pb de copie entre les feuilles==> le nombre de colonnes et les entetes ne correspondent pas entre les deux feuilles
    Application.ScreenUpdating = False 'empêche de voir l'execution des tâches
       
    With Sheets("Inscriptions").ListObjects("t_Inscriptions")
        .Range.AutoFilter Field:=21, Criteria1:=">0", Operator:=xlAnd, Criteria2:="<>-"
        On Error GoTo fin 'dans le cas ou le filtre ne donne aucune ligne
        Set ZoneToCopy = .DataBodyRange.SpecialCells(xlCellTypeVisible) 'on affecte le résultat du filtre à "ZoneToCopy"
    End With
   
    With Sheets("Doit").ListObjects(1) 'avec la table de l'onglet "Doit"
        .DataBodyRange.Offset(1, 0).ClearContents 'on vide la table SAUF la première ligne de données (sinon bug du à une ligne de donnée "Virtuelle")
        .Resize Range("$A$1:$AF$2") 'redimensionne à 1 ligne d'entete + 1 ligne de données
        LastLine = .ListRows.Count 'indice de la dernière ligne
               
        NbLigne = 0 'initialisation
        For N = 1 To ZoneToCopy.Areas.Count 'pour chaque "sous zone" de la plage "ZoneToCopy"
            NbLigne = ZoneToCopy.Areas(N).Rows.Count
            ReDim TabFinal(1 To NbLigne, 1 To 32) 'on créé le tableau du nombre de lignes NbLigne
            For i = 1 To UBound(TabFinal, 1) 'on remplit le tabeau
                For j = 1 To UBound(TabFinal, 2)
                    TabFinal(i, j) = ZoneToCopy.Areas(N).Item(i, j) 'Nom
                Next j
            Next i
            .DataBodyRange(LastLine, 1).Resize(UBound(TabFinal, 1), UBound(TabFinal, 2)) = TabFinal 'on colle le tableau dans la table
            LastLine = .ListRows.Count + 1 'indice de la dernière ligne de la table
        Next N
    End With
fin:
    Application.ScreenUpdating = True
    Sheets("Doit").Activate
End Sub

Cliquez pour agrandir...

une table structurée, en VBA = listobjecs()
ce qui est pratique, c'est que si tu veux mettre une donnée à la 20eme colonne (qui s'appelle TrucMuche)
tu peux utiliser la syntaxe
listbobjects("NomTable").databodyrange(ligne,20) ==> mais si tu déplaces la colonne.. bah il faut modifier le 20 dans le code
ou
Listobjects("NomTable").listcolumns(20).databodyrange(ligne) ==> meme punition

MAIS
Listobjects("NomTable").listcolumns("TrucMuche").databodyrange(ligne) ==> ici, le fait d'utiliser le nom de la colonne cible.. bah. tu te fous de savoir ou elle est dans la table.... donc. si elle bouge.. pas besoin de modifier le code
bon. il faut quand meme s'assurer que le Nome de la colonne cible est écrit EXACTEMENT comme dans la table (un espace peut faire toute la différence)
ensuite.. évidemment, si tu changes le nom de la colonne (TrucMuche), il faut aussi le modifier dans le code
y a quand meme un minimum..

Cliquez pour agrandir...

Sub test()

MsgBox Range("Tableau1[[#All],[trucmuche]]")(20).Address
MsgBox Range("Tableau1").ListObject.ListColumns("trucmuche").Range.Cells(20).Address
MsgBox Range("Tableau1").ListObject.ListColumns("trucmuche").Range(20).Address

End Sub