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

[AD95]

Bonjour à tous,

Dsl je sui un peu novice dans excel mais voilà j'expose mon besoin
Je recherche une formule qui me permet de dire que :

Si dans la feuille1 la colonne D2 contient le mot "Passe" alors Copier la colonne de A à C et la coller dans la Feuille2

En gros c'est si à la fin de l'année l'élève en CP "passe" alors l'enregistrer automatiquement dans la classe supérieur CE1

 

[Cousinhub]

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

=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

 

[job75]

Bonsoir AD95, Cousinhub;

Le fichier joint fonctionne sut toute version Excel depuis 2007.

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

=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+

 

[AD95]

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

=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

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

 

[AD95]

Bonsoir AD95, Cousinhub;

Le fichier joint fonctionne sut toute version Excel depuis 2007.

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

=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+

Bonjour job75,

Un grand merci pour ton retour ça marche parfaitement c'est bien le résultat attendu. Je vais le faire évoluer avec l'intégration d'un formulaire pour entrer le nom, prenom etc.... mais aussi un espèce de décompte sur le nombre de place disponible avec un max de 22 élèves. Je vais voir ce que ça donne. merci encore et bonne journée

 

[Cousinhub]

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

Bonjour,
Si tu as bien Office 365, alors tu as cette fonction...
Sinon, pense à bien définir ta version lorsque tu rédiges ta question
Bonne semaine

 

[job75]

Bonjour AD95, Cousinhub,

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

Alors vous aurez du VBA, utilisez donc cette macro :

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

A+