Figer un groupe précis de cellules (Excel 2013) Résolu/Fermé

Question

Bonjour, Je cherche à figer un groupe de cellules.
ou une photo devra venir s'afficher.

La fonction classique "Figer les volets" ne me propose pas cette possibilité.

Cela est-il possible ?


Merci

cs_Le Pivert · Answer

Bonjour,

Si c'est pour insérer une image, pourquoi ne pas fusionner un groupe de cellules, pour y mettre ton image?

Voir ce post 

https://forums.commentcamarche.net/forum/affich-31374289-vba-comment-inserer-des-images-dans-des-cellules-fusionnees-ave

Viking58 · Answer

Merci cs_Le Pivert.

Bien trop tordu pour ma petite tête... Trop lourd, trop long et pas mal de cette sal.. d'anglais en commentaires.

Mon emplacement d'affichage d'image est une fusion de cellules.

J'ai réalisé une base de données avec toutes les photos. Je vais essayer de relier chacune cellule comportant les Marques, Types, Années avec un lien hyper texte.
Il faut que je trouve comment afficher la photo dans l'écran prévu, soit, J3.

Le Pingou · Answer

Bonjour,
J'ai pensé que vous voulez afficher l'image selon un  choix .... Est-ce que ceci pourrait vous aider : https://www.cjoint.com/?3ABwXQelnNt

Viking58 · Answer

Nous nous rapprochons...

Le but recherché est le suivant:
1) Figer l'écran de visualisation de photo, tout en arrivant à scroller les colonnes détaillant la miniature.
2) Cliquer sur les cellules de Type, Pays, miniature (n'importe laquelle), et voir apparaitre la photo dans le cadre prévu à cet effet.

J'ai 146 lignes de miniatures. (de la ligne 3 à la ligne 248).
Comme dit plus haut, j'ai une base de données de 146 photos, numérotées de 1 à 146.

Le Pingou · Answer

Bonjour,
Moi pas du tout, désolé que ce ne soit pas dans le bon sens.

Le Pingou · Answer

Bonjour,
J'ai une petite idée, peut-être en utilisant un formulaire pour l'affichage de l'image.....
Pouvez-vous mettre un fichier partiel sur  https://www.cjoint.com/  et poster le lien ?

Raymond PENTIER · Answer

Non, Viking68, ce n'est pas possible de figer quelques cellules d'une feuille.

Une solution serait d'afficher la photo sur une seconde feuille, et d'afficher les deux feuilles simultanément en faisant 
Affichage/Nouvelle fenêtre puis Affichage/Réorganiser tout/Vertical 

Cordialement.

cs_Le Pivert · Answer

C'est dommage que tu ne veuilles pas te mettre au vba. Voici un exemple, il suffit d'adapter les colonnes, les cellules fusionnées et ton  dossier image

http://www.cjoint.com/data3/3ADjE5hjqQU.htm

cs_Le Pivert · Answer

ATTENTION  Viking68

Dans l'exemple que je t'ai donné, si tu as d'autres images elles vont être effacer!

Je vois comment pallier ce problème

cs_Le Pivert · Answer

voici le code corrigé:

Option Explicit
Dim nom As String
Dim chemin As String
Dim image As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
image = ActiveSheet.Shapes.Count
If image > 0 Then
ActiveSheet.Shapes(image).Delete
End If
 chemin = ThisWorkbook.Path & "\Dossierimage\" 'a adapter le nom du dossier jpg
If Not Intersect(Target, Range("B:B")) Is Nothing Then 'a adapter les colonnes
 Selection.Offset(0, -1).Select
 ElseIf Not Intersect(Target, Range("C:C")) Is Nothing Then 'a adapter les colonnes
 Selection.Offset(0, -2).Select
ElseIf Not Intersect(Target, Range("A:A")) Is Nothing Then 'a adapter les colonnes
nom = Target.Value
If nom = "" Then Exit Sub
Range("F17:K37").Select 'cellule fusionnées a adapter
InsererImage
 End If
End Sub
 Sub InsererImage()
 Dim myPicture As String, MyRange As Range
 myPicture = chemin & nom & ".JPG"
Set MyRange = Selection
InsertAndSizePic MyRange, myPicture
End Sub
Sub InsertAndSizePic(Target As Range, PicPath As String)
Dim p As Picture
Dim hauteur, largeur As Integer
 Application.ScreenUpdating = False
On Error GoTo EndOfSubroutine:
 Set p = ActiveSheet.Pictures.Insert(PicPath)
 largeur = p.Width
 hauteur = p.Height
With Target
If largeur > hauteur Then 'image portrait ou paysage
        p.Left = .Left
        p.Top = .Top
        p.Width = .Width
        Else
        p.Left = .Left
        p.Top = .Top
        p.Height = .Height
        End If
    End With
EndOfSubroutine:
End Sub

cs_Le Pivert · Answer

Pour ceux qui seraient intéressés, voici la dernière mouture qui ne supprime que l'image contenue dans les cellules fusionnées. Ne pas tenir compte du précédent post

Option Explicit
Dim nom As String
Dim chemin As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Retirerimages 'supprimer image cellules fusionnées
chemin = ThisWorkbook.Path & "\Dossierimage\" 'a adapter le nom du dossier jpg
If Not Intersect(Target, Range("B:B")) Is Nothing Then 'a adapter les colonnes
 Selection.Offset(0, -1).Select
 ElseIf Not Intersect(Target, Range("C:C")) Is Nothing Then 'a adapter les colonnes
 Selection.Offset(0, -2).Select
ElseIf Not Intersect(Target, Range("A:A")) Is Nothing Then 'a adapter les colonnes
nom = Target.Value
If nom = "" Then Exit Sub
Range("F17:K37").Select 'cellule fusionnées a adapter
InsererImage
 End If
End Sub
 Sub InsererImage()
 Dim myPicture As String, MyRange As Range
 myPicture = chemin & nom & ".JPG"
Set MyRange = Selection
InsertAndSizePic MyRange, myPicture
End Sub
Sub InsertAndSizePic(Target As Range, PicPath As String)
Dim p As Picture
Dim hauteur, largeur As Integer
 Application.ScreenUpdating = False
On Error GoTo EndOfSubroutine:
 Set p = ActiveSheet.Pictures.Insert(PicPath)
 largeur = p.Width
 hauteur = p.Height
With Target
If largeur > hauteur Then 'image portrait ou paysage
        p.Left = .Left
        p.Top = .Top
        p.Width = .Width
        Else
        p.Left = .Left
        p.Top = .Top
        p.Height = .Height
        End If
    End With
EndOfSubroutine:
End Sub
Sub Retirerimages()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
    If Sh.TopLeftCell.Address = "$F$17" Then 'a adapter cellules fusionnées
      Sh.Delete
       End If
  Next Sh
End Sub

Viking58 · Answer

Merci encore à tous...
Je ne veux pas partir dans des choses trop complexes.
Puisque pour vous ça à l'air bon, je passe en résolu.