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 -
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
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
-
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/
-
Merci pour l'info, j'ai donc partagé mon fichier sur : https://mon-partage.fr/f/etONJ6Kx/
-
-
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
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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
