XL 2019 Création fichier d'avancement

Gjerms · 30 Juillet 2020

Bonjour à tous

J'aurai besoin d'aide concernant un fichier de suivi pour des instruments que je suis en train de faire.Sur le fichier excel de suivi j'ai créé un tableau avec comme colonne le nom de l'instrument, le schéma de l'instrument et la photo de l'instrument.

On donnera comme nom à chaque instrument A, B, C et D et nous mettons "X" si nous avons bien retrouver le schéma ou la photo.
Mon problème est que certains instruments sont des assemblages de deux ou 3 autres. Par exemple D contient les instruments A et B et comme D n'a pas de schéma ou de photo. Mon souhait est que si nous avons bien retrouvé les schémas de A et de B alors la case schéma pour l'instrument D sera coché. Idem pour la photo.

J'espère avoir réussi à bien m'expliquer.

job75 · 30 Juillet 2020

Bonjour Gjerms, bienvenue sur XLD,

Relisez votre message, honnêtement est-ce compréhensible ?

A+

Gjerms · 30 Juillet 2020

job75 à dit:
Bonjour Gjerms, bienvenue sur XLD,

Relisez votre message, honnêtement est-ce compréhensible ?

A+

Désole je vais le reécrire pour etre plus compréhensible façon.

Gjerms · 31 Juillet 2020

Gjerms à dit:
Désole je vais le reécrire pour etre plus compréhensible façon.

Bonsoir
J'ai essayé de réexpliquer ma situation est ce plus compréhensible ?

A+

job75 · 31 Juillet 2020

Vous ne joignez pas de fichier alors utilisons la boule de cristal, formule en D2 du fichier joint :

Code:

=REPT("X";OU(B2="oui";C2="oui";SOMMEPROD((B$1:C1="oui")*NB.SI(B2:C2;"*"&A$1:A1&"*"));SOMMEPROD((B3:C$1000="oui")*NB.SI(B2:C2;"*"&A3:A$1000&"*"))))

Ligne $1000 à adapter au besoin.

Gjerms · 31 Juillet 2020

job75 à dit:
Vous ne joignez pas de fichier alors utilisons la boule de cristal, formule en D2 du fichier joint :

Code:

=REPT("X";OU(B2="oui";C2="oui";SOMMEPROD((B$1:C1="oui")*NB.SI(B2:C2;"*"&A$1:A1&"*"));SOMMEPROD((B3:C$1000="oui")*NB.SI(B2:C2;"*"&A3:A$1000&"*"))))

Ligne $1000 à adapter au besoin.

Bonjour

Merci pour votre réponse je vais essayer cela.
Pour le dossier la situation est un peu plus compliqué comme tableau et c'est avec des informations de mon travail donc je ne peux pas le partager.

Encore merci cordialement.

job75 · 31 Juillet 2020

Au post #5 Bien noter que D est cochée en D5 si au moins l'un des instruments A B C est coché.

S'il faut que les instruments A B C soient cochés tous les 3 on utilisera cette fonction VBA :

VB:

Function Coche(plage As Range, r As Range, sep As String) As String
Dim s, ub As Integer, n As Integer, e, i As Variant
For Each r In r
    If LCase(r) = "oui" Then Coche = "X": Exit Function
    s = Split(r, sep)
    ub = UBound(s) + 1
    If ub Then
        n = 0
        For Each e In s
            i = Application.Match(e, plage.Columns(1), 0)
            If IsNumeric(i) Then If LCase(plage(i, 2)) = "oui" Or LCase(plage(i, 3)) = "oui" Then n = n + 1
        Next
        If n = ub Then Coche = "X": Exit Function
    End If
Next
End Function

Le code doit être placé impérativement dans un module standard.

Voyez le fichier .xlsm joint et cette formule en D2 =Coche(A:C;B2:C2;"+")

job75 · 31 Juillet 2020

Pardon je n'avais pas déposé le bon fichier.

Gjerms · 2 Août 2020

job75 à dit:
Pardon je n'avais pas déposé le bon fichier.

Merci pour votre aide je regarde pour l’intégrer à mon autre fichier.
A la place du =Coche(A:C;B2:C2;"+") j'ai du mettre =Coche(A:C;B2:C2;" ; ") et ça fonctionne très bien sur mon fichier merci.

XL 2019 Création fichier d'avancement

Gjerms

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Gjerms

XLDnaute Nouveau

Gjerms

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Gjerms

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Gjerms

XLDnaute Nouveau

Discussions similaires