Un cas de recherche

[rudymania]

Bonsoir à toutes et à tous,

J'ai mis mon fichier d'exemple en attaché. Je voudrais, à partir de la feuille "Données" obtenir le traitement qui est sur la feuille "résultat".

En résumé, déterminer pour chaque client, la localité du magasin dont il dispose.

Je vous remercie par avance pour votre aide.

 

[JBOBO]

Re : Un cas de recherche

Bonjour,

En C5 :

=GAUCHE(SI(Données!C7=1;Données!$C$6&"/";"")&SI(Données!D7=1;Données!$D$6&"/";"")&SI(Données!E7=1;Données!$E$6&"/";"")&SI(Données!F7=1;Données!$F$6&"/";"");NBCAR(SI(Données!C7=1;Données!$C$6&"/";"")&SI(Données!D7=1;Données!$D$6&"/";"")&SI(Données!E7=1;Données!$E$6&"/";"")&SI(Données!F7=1;Données!$F$6&"/";""))-1)

 

[tdenfert]

Re : Un cas de recherche

Bonjour,

avec ceci
=SI(Données!C7=1;Données!$C$6&SI(SOMME(Données!D7:F7)>0;"/";"");"")&SI(Données!D7=1;Données!$D$6&SI(SOMME(Données!E7:F7)>0;"/";"");"")&SI(Données!E7=1;Données!$E$6&SI(SOMME(Données!F7:F7)>0;"/";"");"")&SI(Données!F7=1;Données!$F$6;"")

 

[rudymania]

Re : Un cas de recherche

Je vous remercie pour votre aide, vos deux formules fonctionnent super bien
Merci

 

[david84]

Re : Un cas de recherche

Bonsoir,
une proposition VBA :

Sub test()
Dim DerLigne, Plage As Range, i&, j&, temp
DerLigne = Sheets("Données").Range("B" & Rows.Count).End(xlUp).Row
Set Plage = Sheets("Données").Range("B6:F" & DerLigne)
    For i = 7 To DerLigne
        For j = 3 To Plage.Columns.Count + 1
            If Sheets("Données").Cells(i, j) = "1" Then temp = temp & Sheets("Données").Cells(6, j) & "/"
        Next j
        Dim Tablo()
        ReDim Preserve Tablo(1 To Plage.Rows.Count, 1 To 2)
        Tablo(i - 6, 1) = Sheets("Données").Cells(i, 2)
        Tablo(i - 6, 2) = temp
        temp = ""
    Next i
 With Sheets("Résultat escompté")
 .[B5].Resize(Plage.Rows.Count, 2) = Tablo
    For i = 5 To DerLigne
        If .Cells(i, 3) <> "" Then .Cells(i, 3) = Left(.Cells(i, 3), Len(.Cells(i, 3)) - 1)
    Next i
 End With
End Sub

A+