Contenu récent par piga25

  1. piga25

    XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.

    Re, J'ai bien pensé au départ le faire par formule, mais le soucis c'est comment les recopier. Donc j'opte pour un code qui se déclenchera lorsque j'ouvre la feuille ou que je clique sur l'icone du reveil. J'ai relu tout mon code et je me suis aperçu de 2 bugs. J'ai corrigé et cela me semble...
  2. piga25

    XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.

    Bonjour vgendron, Le grand tableau est : A25:R44 Dans ce tableau il y a quatre équipes Equipe 1: C25:F44 Equipe 2: G25:J44 Equipe 3: K25:N44 Equipe 4: O25:R44 Chaque Equipe est composée d'un chef d'équipe (1ere ligne) suivi de 15 équipiers. Pour les missions elles sont sur les lignes: 27, 47...
  3. piga25

    XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.

    Bonjour, Automatiser la réponse en fonction de l'état d'une cellule. le problème est comment mettre : Indiquer « Fin » si et seulement si : la mission de l’équipe est « Terminée » la cellule située 2 colonnes à gauche est renseignée Ne pas effacer si la cellule est déjà renseignée. La...
  4. piga25

    XL 2016 Tableau croisé dynamique

    Bonsoir, C'est exactement ce que je recherche à faire. Néanmoins, comment fait on pour que Elément calculé soit opérationnel Edit: c'est bon j'ai trouvé, il faut cliquer sur une année (entête de colonne du TCD) Merci
  5. piga25

    XL 2016 Tableau croisé dynamique

    Bonjour, Les TCD n'étant pas ma tasse de thé, j'ai un petit problème pour la création d'un TCD. J'arrive à faire le TCD ayant pour ligne les mois et pour colonne les années. J'aimerai avoir la moyenne mensuelle des années pour chaque mois mais dans le TCD. Le résultat souhaité est dans le...
  6. piga25

    Userform suppression de ligne

    Bonjour, Par principe on fait une nouvelle discussion, néanmoins on peut faire référence à celle-ci. Comme vous êtes nouveau voici une solution mais sans userform, uniquement une boite de dialogue. Private Sub CommandButton1_Click() Dim nbLignesAsupprimer As Integer ' Afficher une...
  7. piga25

    XL 2019 Colorier ligne dont la date est inférieure à aujourd'hui

    Bonjour, avec mise en forme conditionnelle
  8. piga25

    Microsoft 365 Addition ligne selon critère

    Bonjour, A mettre en F3 puis à recopier vers le bas
  9. piga25

    XL 2016 Somme de d'années, mois, jours.

    Bonjour, Avec une colonne supplémentaire pour avoir le nombre de jours, puis cette formule: =DATEDIF(0;E12;"y")&" ans, "&DATEDIF(0;E12;"ym")&" mois, "&DATEDIF(0;E12;"md")&" jours"
  10. piga25

    XL 2016 problème avec une formule dans excel

    Bonjour chinel, JHA Sans ligne supplémentaire juste cette formule : =SI(JOURSEM(A5;2)>5;"Congé";SI(MOD(NO.SEMAINE(A5;2);3)=1;$D$1;SI(MOD(NO.SEMAINE(A5;2);3)=2;Pause!$B$3;Pause!$B$4))) S'adapte en modifiant votre première durée en D1
  11. piga25

    XL 2016 problème avec une formule dans excel

    Bonjour, Un essai avec cette formule : =SI(JOURSEM(A5;2)>5;"Congé";SI(MOD(NO.SEMAINE(A5;2);3)=1;"06h00-14h00";SI(MOD(NO.SEMAINE(A5;2);3)=2;"14h00-22h00";H2200-"06h00")))
  12. piga25

    Microsoft 365 Colorer la tâche "A", "B" etc si et seulement si le jour correspond (récurrence) et la bonne semaine, sinon... Ne pas colorer

    Bonjour Le plus simple c'est de faire correspondre les n° avec les n° de semaine réel
  13. piga25

    Microsoft 365 Colorer la tâche "A", "B" etc si et seulement si le jour correspond (récurrence) et la bonne semaine, sinon... Ne pas colorer

    Bonjour, Pour les semaines, formule à mettre en L2 =NO.SEMAINE(AUJOURDHUI())-43 Attention lorsque l'on va passer au 01/01/25 cela ne fonctionnera plus. Pour la mise en forme conditionnelle, modifier cette formule : =ET(EST.IMPAIR($L$2);ESTTEXTE($A6)*(JOURSEM(AUJOURDHUI();2)=COLONNE()-1)) en...
  14. piga25

    Microsoft 365 Index Match ligne et Mach colonne

    Bonjour, Un essai avec cela : Sub Transfert() ' Déclarer les variables Dim wsSource As Worksheet Dim wsResultat As Worksheet Dim lastRow As Long Dim i As Long ' Spécifier les noms des feuilles (ajuster si nécessaire) Set wsSource = ThisWorkbook.Sheets("Source") '...
Retour