Microsoft 365 Saisie par userform ne fonctionne pas

vgendron à dit:

plusieurs points

ton formulaire de saisie n'utilise pas la meme liste de nom que ce qui est autorisé dans la liste de validation de la table Data
(Jean-Clause vs Ferdinan JeanClaude)
le formulaire n'enregistre pas la date au bon format ==> il y a collision entre le format "date" mis dans les cellules du tableau, et le format "date" mis par le vba qui n'est pas une date, mais du texte..

il y a donc de la correction à faire
regarde pour ta macro vuesemaine que j'ai optimisée

VB:

Sub vuesemaine()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Dim jour As Range
    Dim Joueur As String
    Dim TabTS() As Variant
   
    TabTS = Sheets("Data").ListObjects(1).DataBodyRange.Value2
    With Sheets("Hebdomadaire")
        .Unprotect
        Joueur = .Range("E2")
       
        Lastline = .Range("A" & .Rows.Count).End(xlUp).Row
        If Lastline > 8 Then
            .Range("A9").Resize(Lastline - 8, 13).Clear
        End If
               
        For Each jour In .Range("masemaine")
            ligne = 9
            colonne = jour.Column
            For i = LBound(TabTS, 1) To UBound(TabTS, 1)
                If CDate(TabTS(i, 3)) = jour And TabTS(i, 2) Like Joueur & "*" Then
                    .Range("A" & ligne) = "#" & ligne - 8
                    .Cells(ligne, colonne) = TabTS(i, 1)
                    .Cells(ligne, colonne).Interior.Color = ChercheCouleur(CStr(TabTS(i, 1)))
                    '
                    ligne = ligne + 1
                End If
            Next i
        Next jour
        .Cells.WrapText = True
        .Range("E2").Select
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

vgendron à dit:

regarde la PJ
j'ai modifié la macro "VueMois"
et j'ai ajouté une feuille "ModèleMois"
plutot qu'une usine à gaz pour supprimer des lignes en fonction d'un nombre de cours.. j'ai préféré effacer tout le planning, et recopier directement la plage modèle

en ce qui concerne l'ajout de ligne entre les semaines.. i y a surement mieux à faire, déjà commencer par trier la table data par nom et par date

Cliquez pour agrandir...

vgendron à dit:

regarde mon post #8, j'y ai corrigé le pb de date

Cliquez pour agrandir...