Bonjour le Forum,
Avec des listes de validation et des formules j’insère des images qui sont stocké dans un dossier (Logos) qui est dans le même répertoire que mon fichier.
Dans mon fichier j’ai plus de 50 feuilles.
Voila mon code en VBA
Le 1er pour les formules (j’en ai 33) et le second pour les listes de validation (26).
Private Sub Worksheet_Change(ByVal target As Range)
Dim image As String
Dim sh As Shape
If [AL8] <> "" Then
image = ActiveWorkbook.Path & "\Logos\" & [AL8] & ".jpg"
Shapes("Rectangle 1").Fill.UserPicture image
Else
Shapes("Rectangle 1").Fill.Visible = msoFalse
End If
If Not Intersect(target, [H13]) Is Nothing Then
If [H13] <> "" Then
image = ActiveWorkbook.Path & "\Logos\" & target.Value & ".jpg"
Shapes("Rectangle 5").Fill.UserPicture image
Else
Shapes("Rectangle 5").Fill.Visible = msoFalse
End If
End If
Je travail sur les lignes suivantes.
Pour les listes de validation elles sont de la ligne :
H13 à H25 et de V13 à V25
Et pour les formules :
AL8 à AL40
Vu le très grand nombre d’images que j’ai,
Ce que j’aimerais avoir si cela est possible c’est de stocké toutes les images dans le fichier « Logos » sans à avoir à ouvrir le fichier à chaque fois.
Merci beaucoup de votre aide
Marcelio
Avec des listes de validation et des formules j’insère des images qui sont stocké dans un dossier (Logos) qui est dans le même répertoire que mon fichier.
Dans mon fichier j’ai plus de 50 feuilles.
Voila mon code en VBA
Le 1er pour les formules (j’en ai 33) et le second pour les listes de validation (26).
Private Sub Worksheet_Change(ByVal target As Range)
Dim image As String
Dim sh As Shape
If [AL8] <> "" Then
image = ActiveWorkbook.Path & "\Logos\" & [AL8] & ".jpg"
Shapes("Rectangle 1").Fill.UserPicture image
Else
Shapes("Rectangle 1").Fill.Visible = msoFalse
End If
If Not Intersect(target, [H13]) Is Nothing Then
If [H13] <> "" Then
image = ActiveWorkbook.Path & "\Logos\" & target.Value & ".jpg"
Shapes("Rectangle 5").Fill.UserPicture image
Else
Shapes("Rectangle 5").Fill.Visible = msoFalse
End If
End If
Je travail sur les lignes suivantes.
Pour les listes de validation elles sont de la ligne :
H13 à H25 et de V13 à V25
Et pour les formules :
AL8 à AL40
Vu le très grand nombre d’images que j’ai,
Ce que j’aimerais avoir si cela est possible c’est de stocké toutes les images dans le fichier « Logos » sans à avoir à ouvrir le fichier à chaque fois.
Merci beaucoup de votre aide
Marcelio