Discussion :

[gaby12]

Bonjour à tous
Pour un rapport de test de machine , j'utilise excel et je dois inserer une image ou une autre quelque part sur la feuille suivant le nom de la machine qui est ecrit dans la cellule R5
Qu'elle est la procedure ? VBA ou condition simple
Où dois-je stocker les differentes images? ( sachant que les utilisateurs ne travailleront pas obligatoirement sur le réseau)
Puis-je les stocher dans une page de ce dossier.

Merci d'avance

[excfl]

Bonsoir le forum,

Selon la valeur de la cellule A1 : l'image apparaît ou pas.

excfl

[gaby12]

Boujour à tous,
Merci pour la reponse
est-ce que le principe est le même pour une image ou une autre ou encore un autre ?
Où stocker ces images car elles doivent être intimement lié à ce fichier car celui-ci sera utilisé par multiples personnes qui n'ont pas accés au reseau.
Merci d'avance

[excfl]

Bonjour le forum,

On peut ajouter autant d'images que nécessaire.

excfl

[gaby12]

Merci beaucoup
Je n'avais pas vu les deux lignes ecrites sous l'image
je vais appliquer...
Bonne journée

[gaby12]

merci
impeccable

comme je pousse plus loin:
la valeur de la cellule est une désignation de machine , genre CVB1030,CVB2050,CVB2661 ... ou ES100, ES200;ES300...
et une image correspond aux CVB , une autre au ES ...ect
pour vulgariser l'affaire, comme si j'avais des images de voitures ( berline,break, cabriolet ...) quelque soit la taille

j'ai donc modifier le code comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
[NB.SI(R5;"*CVB*"] Then ActiveSheet.Shapes("CVBtop").Visible = True Else ActiveSheet.Shapes("CVBtop").Visible = False
If [R5].Value = "20" Then ActiveSheet.Shapes("EStop").Visible = True Else ActiveSheet.Shapes("EStop").Visible = False

End Sub

mais ça coince

Merci d'avance