Microsoft 365 Excel - Répartition Charge de travail (mensuel)

danielco à dit:

Bonjour,

Pour la colonne B, essaie, en B2 à recopier vers lke bas :

VB:

=LET(tbl;MAP($E$1:$I$1;E2:I2;LAMBDA(p;j;SI(j>0;j&"J - "&p;"")));JOINDRE.TEXTE(CAR(10);1;tbl))

Cliquez pour agrandir...

=SIERREUR(JOINDRE.TEXTE(CAR(10);VRAI;FILTRE((E2:I2)&"J - "&$E$1:$I$1;E2:I2>0));"")

danielco à dit:

@Kristelle1555
Le point 2 est une simple soustraction :

Code:

=C2-SOMME(E2:I2)

Sous quelle forme eux-tu le point 3 ?

Daniel

Cliquez pour agrandir...

ChTi160 à dit:

Bonjour le Fil
juste pour Saluer Claude !
ce que j'ai mis pour te permettre de faire différemment ! Lol
rien de Compliquer à voir donc
le Code Modifié:

VB:

Private Sub Cdb_Enregistrer_Click()
Dim ws As Worksheet
Dim L As Integer
Dim Tbl As ListObject 'on dit que tbl est l'objet
 Dim LstR As ListRow
     Application.ScreenUpdating = False
  Set ws = Sheets("Tableau Projets")
    If MsgBox("Etes-vous certain de vouloir Insérer ce nouvel élément?", vbYesNo, "Demande de confirmation") = vbYes Then
         Set Tbl = ws.ListObjects("Tbl_Projets")         'ou se trouve tbl qui est l'objet appelé Tbl_Projets
        Set LstR = Tbl.ListRows.Add                            'ici on rajoute une ligne au Tbl_Projets
       With LstR 'avec la Ligne qui vient d'être créée
         .Range(1) = CDbl(Me.Txt_Index) 'on ajoute en sa première Cellule
         .Range(2) = Me.Cbx_Projet   'etc
         .Range(3) = Me.Cbx_Nom
         .Range(4) = CDate(Me.Txt_DateDebut)
         .Range(5) = CDate(Me.Txt_DateFin)
         .Range(6) = CDbl(Me.Txt_NbrJour)
       End With
    End If
    MsgBox ("Données enregistrer dans le tableau !")  
    Créer_Lsv 'On va mettre a jour la ListView
Application.ScreenUpdating = True  
End Sub

je pense qu'a cette heure tu dors ! Lol
Cordialement
Jean marie

Cliquez pour agrandir...