Répertoire

bonjour,

J'ai trois onglets avec des noms et des montants (1 ou 0)

Je voudrais qu'un 4e onglet répertorie les noms où il n'y a que des 1.

Est-ce possible sans macro ?

Merci

ps : je vous joins mon fichier

je donne un cadeau à celui qui m'aidera

Bonjour,

Tant que ce ne sera pas un bec dans le cou ...

Sub TrouveLes1()
Dim Cl, Dlig, DligR As Integer
Dim Shr, Sh As Worksheet

Set Shr = Worksheets("résultat")
DligR = Shr.Cells(Rows.Count, "B").End(xlUp).Row    'dernière ligne
Shr.Range("B2:C" & DligR).ClearContents             'vide le champ

For Each Sh In Worksheets
    If Sh.Name <> "résultat" Then                               'si ce n'est pas la feuille résultat
        Dlig = Sh.Cells(Rows.Count, "B").End(xlUp).Row          'dernière ligne
        For Each Cl In Sh.Range("B2:B" & Dlig)                  ' évalue contenu cellule
            DligR = Shr.Cells(Rows.Count, "B").End(xlUp).Row    ' dernière ligne
            If Cl.Offset(0, 1) = 1 Then                         'test condition
                Shr.Cells(DligR + 1, "B") = Cl.Value            'copie valeur
                Shr.Cells(DligR + 1, "C") = Cl.Offset(0, 1).Value
            End If
        Next Cl
    End If
Next Sh
End Sub

ric