Ressortir une liste suivant des critères differents

Laurent_6942 Messages postés 3 Statut Membre -  
ALS35 Messages postés 1034 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Désolé je suis nouveau donc je ne sais pas trop comment cela fonctionne encore...

J'ai un tableau qui se présente comme ceci:


Je souhaiterai ressortir dans un autre tableau, l'ensemble des actions correspondantes à la semaine en cours...
Exemple : semaine 10 on aura donc dans le tableau (avec les tps si possible)
Action n°1, 5, 6, 11,12, 13 .

J'ai essayé avec les fonctions INDEX et EQUIV mais sans succés...

Merci de votre aide

5 réponses

  1. Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168
     
    Bonjour,
    petite aide d'utilisation du forum : pour partager un fichier (étant toujours mieux qu'un screen), il faut passer par https://www.cjoint.com/ ou https://mon-partage.fr/
    0
  2. Laurent_6942 Messages postés 3 Statut Membre
     
    Merci pour l'info, j'ai donc partagé mon fichier sur : https://mon-partage.fr/f/etONJ6Kx/
    0
    1. Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168
       
      Est-ce cela qui doit être obtenu ?! :
      0
  3. Laurent_6942 Messages postés 3 Statut Membre
     
    Non , plutot ça
    0
  4. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    en vba faire Alt F11 sur la feuille concernée et coller ce code, qui se déclenchera au double clic sur le numéro de semaine en ligne 6:

    Option Explicit
    Dim colonne As Integer
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Range("D22").Value = "Semaine"
    Range("E22").Value = Target.Value
    colonne = Target.Column
    For_X_to_Next_Ligne
    End Sub
    Sub For_X_to_Next_Ligne()
    Dim FL1 As Worksheet, NoCol As Integer
    Dim NoLig As Long, Var As Variant
    Dim line As Integer
    line = 26
        Set FL1 = Worksheets("Feuil1")
        NoCol = colonne
        For NoLig = 7 To Split(FL1.UsedRange.Address, "$")(4)
            Var = FL1.Cells(NoLig, NoCol)
            If Var = "" Then
            Else
           FL1.Range("C" & NoLig + 1 & ":F" & NoLig + 1).Copy _
        Destination:=FL1.Range("C" & line)
            line = line + 1
            End If
        Next
        Set FL1 = Nothing
    End Sub
    

    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. ALS35 Messages postés 1034 Date d'inscription   Statut Membre Dernière intervention   147
     
    Bonjour,

    À tester :
    en Feuil2 avec des formules matricielles, à valider par Ctrl + Maj +Entrée, la formule se met alors entre {}
    en Feuil3 avec la puissante fonction Filtre uniquement si tu as Excel Microsoft 365.

    Le choix de la semaine se fait en C2

    https://mon-partage.fr/f/TZC25XKn/

    Cordialement
    0