Images s’affichent avec Excel 2007 mais pas avec 2013

Bonjour le Forum,

Sur ma feuille tris j’effectue des tris avec 4 OptionButton, selon les résultats qui sont rentré sur la feuille liste.

Sur ma feuille tris j’ai des images qui corresponde à mes noms et ces images sont triées à chaque fois que je clic sur un OptionButton.

Je travaille avec Excel 2007 et je rencontre aucun problème tout fonctionne correctement.

Mon soucis c’est que mon fichier est partager avec mes collaborateurs et certains utilise excel 2007 (tout fonctionne bien aussi chez eux).

Mais d’autres personnes utilisent 2013 et là les problèmes arrivent.

Dès qu’on commence à naviguer sur les différents OptionButton les images disparaissent et ne réapparaissent plus.

Ils leur est impossibles de voir les images.

J’ai tout essayé mais impossible de trouver une solution.

Si quelqu’un à une idée pour faire apparaitre mes images avec 2013 je le remercie d’avance.

Balance58

Bonjour,

Quand tu mets ...Fill.Visible = msoFalse > sous 2013 et plus récent, il faut rétablir

...Fill.Visible = msoTrue

Aussi, tu dupliques le code pour Worksheet_Activate et Worksheet_Change > si tu apportes une correction, tu dois l'appliquer à 2 places. Il est préférable de placer le code séparément et de l'appeler de chacune des macros.

Private Sub Worksheet_Activate()
   Call traitementImages
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 Call traitementImages
End Sub

Private Sub traitementImages()
With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
    End With

    If [AG7] <> "" Then
            image = ActiveWorkbook.Path & "\Logos\" & [AG7] & ".jpg"
            Shapes("Rectangle 1").Fill.Visible = msoTrue
            Shapes("Rectangle 1").Fill.UserPicture image
        Else
            Shapes("Rectangle 1").Fill.Visible = msoFalse
        End If

        If [AG8] <> "" Then
            image = ActiveWorkbook.Path & "\Logos\" & [AG8] & ".jpg"
            Shapes("Rectangle 2").Fill.Visible = msoTrue
            Shapes("Rectangle 2").Fill.UserPicture image
        Else
            Shapes("Rectangle 2").Fill.Visible = msoFalse
        End If

        If [AG9] <> "" Then
            image = ActiveWorkbook.Path & "\Logos\" & [AG9] & ".jpg"
            Shapes("Rectangle 3").Fill.Visible = msoTrue
            Shapes("Rectangle 3").Fill.UserPicture image
        Else
            Shapes("Rectangle 3").Fill.Visible = msoFalse
        End If
        ...
        ...
        ...
        

ric

Bonsoir Ric et le Forum,

Merci c'est super vraiment superrrr, depuis le temps que je cherchais.

Et merci aussi pour le conseil.

Encore merci et bonne soirée à toi et au Forum.

Balance58

ric