Microsoft 365 Fonction SI

[aspect]

bonjour,
j'ai effectué un excel pour un EQUIPEMENT avec des appels d'images, la configuration de cet équipement est variable et donc je ne peux pas faire en sorte que visuellement les modules soient rapprochés.
J'utilise des cases (VRAI / FAUX) afin de faire apparaitre ou disparaitre les différents modules.
Je cherche une solution peut-être avec la fonction SI qui me permettrait lorsque je sélectionne par exemple les cases 11+15 alors j'affiche l'image qui se trouve dans mon onglet IMG correspondante; si je sélectionne 11 + 12 +15 alors j'affiche l'image correspondante à celle se trouvant dans l'onglet IMG et ainsi de suite.
merci pour vos idées.
Aspect

PS: j'ai bien un fichier de test mais il fait 3,3 Mo, et si je réduit encore, il ne sera plus compréhensif, j'espére que mon explication suffira

 

[TooFatBoy]

Hello,

j'ai bien un fichier de test mais il fait 3,3 Mo

Free File Transfer | Send Large Files Instantly | SendSpace

SendSpace lets you transfer large files quickly and securely for free. Enjoy hassle-free file sharing today.

www.sendspace.com

 

[Hecatonchire]

Bonjour à tous

Je propose

=LET(p_coches;B5:B8;
p_img;Img!B2:B5;
T_p;NBVAL(p_coches);
SIERREUR(INDEX(p_img;GRANDE.VALEUR(SEQUENCE(T_p;;T_p;-1)*p_coches;SEQUENCE(;SOMME(p_coches*1))));""))

a adapter

 

[aspect]

merci pour vos réponses, il n'y a pas de problème pour vous envoyer mon fichier mais je n'ai pas vos adresses emails

 

[Dranreb]

Bonjour.
Ces images de pièces sont-elle toujours dans le même ordre lorsqu'elles sont présentes ?
Il ne devrait pas être trop difficile de faire une macro s'exécutant lorsqu'on clique sur l'une d'elles, qui la déplace selon son lieu de départ, soit vers une zone de catalogue des éléments non installés, soit vers l'ensemble momentanément formé de façon à ce qu'ils soient tous jointifs dans ce dernier.

 

[Hecatonchire]

Si tu n'aimes pas pas le site que TooFatBoy ta gentiment proposé, chacun ses gouts 🙂 , tu peux aussi partage le fichier (ou la partie problématique) via un cloud ou le site https://www.swisstransfer.com/fr (limite 50 Go) par exemple.
Tu obtiendras une adresse/lien qu'il faudra publier/poster/copier ici dans un message.

! Attention forum publique ! Pas de données confidentielles (les effacer ou les remplacer) !

 

[aspect]

https://www.swisstransfer.com/d/ad9d7e00-16ba-40e5-9471-2e85704aa1d3

lien pour récupérer le fichier

 

[Dranreb]

je ne peux pas faire en sorte que visuellement les modules soient rapprochés.

Pourquoi ?
Pourtant les Shape ont des propriété Left et Width en lecture/écriture.

 

[Dranreb]

Sub MasquerToutesImagesEQUIPEMENT()
    ' Masquer les images
    ActiveSheet.Shapes("Image 4217").Visible = False
    ActiveSheet.Shapes("Image 80").Visible = False
    ActiveSheet.Shapes("Image 98").Visible = False
    ActiveSheet.Shapes("Image 43").Visible = False
    ActiveSheet.Shapes("Image 67").Visible = False
    ' Décocher les cases à cocher
    Range("B11").Value = False
    Range("B12").Value = False
    Range("B13").Value = False
    Range("B14").Value = False
    Range("B15").Value = False
End Sub
 
Sub Image11()
   ActiveSheet.Shapes("Image 4217").Visible = Range("B11").Value
   Jointifs 43, 67, 4217, 80, 98
   End Sub
Sub Image12()
   ActiveSheet.Shapes("Image 80").Visible = Range("B12").Value
   Jointifs 43, 67, 4217, 80, 98
   End Sub
Sub Image13()
   ActiveSheet.Shapes("Image 98").Visible = Range("B13").Value
   Jointifs 43, 67, 4217, 80, 98
   End Sub
Sub Image14()
   ActiveSheet.Shapes("Image 43").Visible = Range("B14").Value
   Jointifs 43, 67, 4217, 80, 98
   End Sub
Sub Image15()
   ActiveSheet.Shapes("Image 67").Visible = Range("B15").Value
   Jointifs 43, 67, 4217, 80, 98
   End Sub
Private Sub Jointifs(ParamArray TNum() As Variant)
   Dim X As Double, N As Integer
   X = 40
   For N = 0 To UBound(TNum)
      With ActiveSheet.Shapes("Image " & TNum(N))
         If .Visible Then .Left = X: X = X + .Width
         End With
      Next N
   End Sub

Module14 :

 

[Hecatonchire]

C'est normal les 150 images masquées de la feuilles EQUIPEMENT (saisi "volet" dans la zone de recherche en haut pour afficher le volet de sélection et ainsi pouvoir les "gérer") ?
Où doit apparaitre l'image finale ?
Les images en ligne 6 étaient là pour nous faire comprendre ou c'est ce que tu veux ? (ps l'image de gauche n'était pas bonne dans ce cas)

 

[aspect]

Je vous remercie pour vos réponses, j'ai testé en modifiant mon VB dans le fichier test, la réponse de Dranreb est celle qui correspond à ce que je recherche, je vais donc modifier en totalité mon fichier, TOP ! merci

Concernant les réponses à données à Hecatonchire, lorsque j'utilise la sélection des différents modules, ils apparaissent au-dessus du tableau, malheureusement je ne savais pas comment faire suivant mes choix de pouvoir les rapprocher les uns des autres.
Donc l'image finale devait correspondre à celle de gauche, sans les "BLANC" (c'est un exemple).

la réponse de Dranred devrait me permettre de modifier tout mon fichier (10 onglets)

 

[aspect]

Je vous remercie pour vos réponses, j'ai testé en modifiant mon VB dans le fichier test, la réponse de Dranreb est celle qui correspond à ce que je recherche, je vais donc modifier en totalité mon fichier, TOP ! merci

Concernant les réponses à données à Hecatonchire, lorsque j'utilise la sélection des différents modules, ils apparaissent au-dessus du tableau, malheureusement je ne savais pas comment faire suivant mes choix de pouvoir les rapprocher les uns des autres.
Donc l'image finale devait correspondre à celle de gauche, sans les "BLANC" (c'est un exemple).

la réponse de Dranred devrait me permettre de modifier tout mon fichier (10 onglets)

Par contre, afin d'améliorer encore la réponse de Dranred, est-il possible d'interdire la jonction de l'image 98 si l'image 80 n'est pas sélectionnée ?

 

[aspect]

Par contre, afin d'améliorer encore la réponse de Dranred, est-il possible d'interdire la jonction de l'image 98 si l'image 80 n'est pas sélectionnée ?

 

[Dranreb]

En affectant à sa cellules la valeur False si vous entendez par là ne pas l'inclure dans ce cas,
Sinon en insérant un autre Shape blanc visible à la place entre le 4217 et 98 à spécifier au Jointifs

 

[aspect]

En affectant à sa cellules la valeur False si vous entendez par là ne pas l'inclure dans ce cas,
Sinon en insérant un autre Shape blanc visible à la place entre le 4217 et 98 à spécifier au Jointifs