Microsoft 365 Besoin de conseil - extraire des données pour mettre dans un tableau

sousou à dit:

Bonjour.
J'ai ajouté une procédure compilation() et deux noms dans la feuille tcd FR et EN

Pour finir actualise tes tcd

Cliquez pour agrandir...

sousou à dit:

Re
Les listes ne fonctionnaient déjà pas dans la version que tu m'a envoyé.
Les choix doivent-ils comprendre les deux langues en Même temps,
Si non validation de données: =EN ou =FR
en fonction de la langue souhaitée pour l'employé

Cliquez pour agrandir...

sousou à dit:

?
En principe la macro recalcul toutes les infos de la feuille planif.
Peux-tu préciser, ta méthode de travail , As-tu supprimer des infos de la feuille planif.
Si tu ne conserve pas toutes les données dans la feuille planif, il faut revoir notre façon de faire

Cliquez pour agrandir...

sousou à dit:

Si j'ai bien compris la feuille planif et réinitialisé toutes les semaines?
Je regarde...

Cliquez pour agrandir...

sousou à dit:

Juste dans la procédure deb.
La procédure raz() pourra te servir si tu veux effacer les données de la feuille mesdonnées

Cliquez pour agrandir...

sousou à dit:

La nuit portant conseil, à la vue de ta méthode, et pour gagner en rapidité.
J'ai changé la compilation, qui traitait toutes les lignes .
Elle a lieu maintenant à chaque adjonction de ligne, et j'ai ajouté une couleur sur la dernière ligne de chaque semaine, pour une meilleur visibilité

Cliquez pour agrandir...

Sub deb()
Application.ScreenUpdating = False

With Sheets("BdD")
lignedonnées = .UsedRange.End(xlDown).Row + 1
'.UsedRange.Range(.Cells(lignedonnées, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).Delete
.Activate
End With
cherche

End Sub

Sub construire(mazone, emp)
Dim table(7)
With Sheets("planif")
    For lg = 1 To mazone.Rows.Count
        For c = 1 To mazone.Columns.Count
        table(0) = emp.Value

        table(1) = .Cells(mazone.Row + lg, mazone.Column)
        table(3) = .Cells(mazone.Row + lg, mazone.Column + c)
        Set d = .Cells(mazone.Row, mazone.Column + c)
        
       table(5) = Format(d, "dddd dd mmmm yyyy")
        table(2) = Format(d, "hh:mm:ss")
        If table(3) = "" Then table(4) = 0 Else table(4) = 0.5
        table(6) = Format(d, "mmmm")
      
    With Sheets("BdD")
        For n = 0 To UBound(table)
            .Cells(lignedonnées - 1, n + 1) = table(n)
         Next
         Call compilation(lignedonnées - 1)
        
        lignedonnées = lignedonnées + 1
    End With
      Next
     Next
Sheets("BdD").Range("$a$" & lignedonnées - 2 & ":$g$" & lignedonnées - 2).Interior.Color = RGB(55, 555, 55)
End With

End Sub