Microsoft 365 Copier la colonne de A à C si la colonne D contient

Cousinhub à dit:

Bonjour,
En A2 du 2ème onglet, mettre cette formule dynamique :

Code:

=FILTRE(Samedi_Matin_CP!A2:B6;Samedi_Matin_CP!D2:D6="Passe ")

Les plages sont à adapter, sauf si tu avais la bonne idée d'utiliser un Tableau Structuré (TS)
Et j'ai failli me faire avoir avec l'espace en fin du mot "Passe "
Bonne fin d'apm

Cliquez pour agrandir...

job75 à dit:

Bonsoir AD95, Cousinhub;

Le fichier joint fonctionne sut toute version Excel depuis 2007.

Formule (matricielle) en A2 du 2ème onglet :

Code:

=SIERREUR(INDEX(Samedi_Matin_CP!A:A;PETITE.VALEUR(SI(SUPPRESPACE(Samedi_Matin_CP!$D$2:$D$100)="Passe";LIGNE(Samedi_Matin_CP!$D$2:$D$100));LIGNE(A1)));"")

à tirer sur B2 puis vers le bas.

A+

Cliquez pour agrandir...

AD95 à dit:

Un grand merci pour ton retour Cousinhub j'ai fait le test sur mon fichier mais il trouve pas le =FILTRE j'ai =FILTRE.XML mais merci beaucoup pour ton retour j'ai testé celui de job75 et j'ai bien le résultat attendu. Encore merci de m'avoir accordé de ton temps et bonne journée à toi

Cliquez pour agrandir...

AD95 à dit:

Je vais le faire évoluer avec l'intégration d'un formulaire pour entrer le nom, prenom etc....

Cliquez pour agrandir...

Sub Filtrer()
Dim ncol%, colcritere%, n&, tablo, resu(), i&
ncol = 4 'nombre de colonnes
colcritere = 4
With Sheets("Samedi_Matin_CP")
    n = Application.CountIf(.Columns(colcritere), "Passe*")
    tablo = .[A1].CurrentRegion.Resize(, ncol)
End With
ReDim resu(1 To n, 1 To ncol)
n = 0
For i = 2 To UBound(tablo)
    If LCase(tablo(i, colcritere)) Like "passe*" Then
        n = n + 1
        resu(n, 1) = tablo(i, 1)
        resu(n, 2) = tablo(i, 2)
        resu(n, 3) = "CE1" 'classe à adapter
    End If
Next
'---restitution---
With Sheets("Samedi_Matin_CE1_Passe").[A2] '1ère cellule de destination, à adapter
    If n Then .Resize(n, ncol) = resu
    .Offset(n).Resize(Rows.Count - n - .Row + 1, ncol).ClearContents 'RAZ en dessous
End With
End Sub