UserForm rattaché à chaque cellule

Version imprimable

18/09/2011, 22h55
kbj_ihma

1 pièce(s) jointe(s)

UserForm rattaché à chaque cellule

bonsoir,
Dans le cadre de mon travail, j'ai réalisé une liste de documents qu'on voudrait mettre en ligne pour tous les employés. (cette liste n'est pas encore remplie entièrement)

Ce que je voudrai, c'est qu'en cliquant sur un des documents, donc sur l'une des cellules qui comporte le nom d'un document, je puisse avoir un userform qui me reprend le nom du document et qui affiche sa photo juste en dessous et nous donne la possibilité d'accéder à ce fichier, sinon de refermer.

l'idée est de mettre les photos dans le même emplacement que ce fichier excel, nommé de la même façon que les documents dans les cellules excel.

Vous verrez dans ce document un exemple du userform que je voudrai avoir en résultat.

Je vous avoue que je ne m'y connais pas du tout en VBA, si vous pouvez m'aider, ce sera très gentil à vous,
Merci d'avance
18/09/2011, 23h13
jfontaine

Bonjour,

Dans l'idée ou la Userform serait appeleé lors de l'entrée dans une cellule (Evenement SelectionChange), tu pourras charger l'image avec ce genre de code

Code:

Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Activecell.Value)
19/09/2011, 09h16
kbj_ihma

Help ...
Bonjour et merci pour ta réponse,

au niveau du cadre supérieur qui devrait reprendre le nom de la cellule active, j'ai marqué :
Code:

1 2 3 4 Private Sub Label1_Initialize() Label1.Text = ActiveCell.Value End Sub
mais ça marche pas.
J'ai aussi testé :
Code:

1 2 Label1.Text = ActiveCell.Name Label1.Name= ActiveCell.Name
sans succès
19/09/2011, 09h37
jfontaine

pour un label il faut utiliser la propriété Caption car text n'existe pas en VBA (sur cet objet)

Code:

Label1.Caption = ActiveCell.Value
19/09/2011, 11h00
kbj_ihma
Désolée mais j'ai essayé ce que tu m'a écris, mais ça n'a pas marché.

J'ai noté çà :
Code:

1 2 3 Private Sub Label1_Initialize() Label1.Caption = ActiveCell.Value End Sub
et je me suis mise dans une cellule où il y avait du texte pourtant.

Cordialement
19/09/2011, 11h09
jfontaine
Je mettrais ce code dans le Userform_Initialize
Code:

1 2 3 Private Sub UserForm_Initialize() Label1.Caption = ActiveCell.Value End Sub
19/09/2011, 11h17
kbj_ihma

Merci, y a au moins çà qui marche

bonsoir,

J'ai écris çà pour la partie image, mais ca ne marche pas :
Code:

1 2 3 4 5 6 Private Sub Image1_Initialize() Nom = Me.Value On Error Resume Next Fichier = ActiveWorkbook.Path & "\" & Nom & ".jpg" Me.Image1.Picture = LoadPicture(Fichier) End Sub
Est ce que vous pouvez me corriger s'il vous plait.

Cordialement

19/09/2011, 22h25
jfontaine

Qu'attends tu de cette ligne

Code:

Nom = Me.Value

Me correspond à l'objet de type contenant (Worksheet, Workbook, userform)
La propriété Value n'existe pas.
19/09/2011, 22h38
kbj_ihma
En fait,

Ce que je voulais, c'est que "Nom" prenne la valeur du Label1
pour qu'ensuite l'image soit cherchée dans le même dossier que le fichier Excel et qui va porter la valeur de "Nom"
Je croyais qu'il fallait faire comme çà mais visiblement non.

J'ai aussi essayé :
Code:

1 2 3 Private Sub Image1_Initialize() Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Activecell.Value) End Sub
:roll:

Plutôt dans l'evenement Initialize de la Userform

Code:

1
2
3
4
 
Private Sub UserForm_Initialize()
    Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Activecell.Value)
End Sub

Code:

1
2
3
4
 
Private Sub UserForm_Initialize()
    Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Label1.Caption)
End Sub

19/09/2011, 22h51
kbj_ihma

je viens d'essayer çà mais à l'execution, çà me donne un message d'erreur disant : fichier introuvable.
J'ai pourtant mis une image .jpeg avec le même nom de la cellule ou je me trouve.
20/09/2011, 17h45
patricktoulon

heu...!!!

bonjour

j'ai lu le fil de ta discussion et je me demande un truc quel image veux tu afficher

une capture du fichier en question ou une image quelconque??

dans le cas ou tu souhaite affiché dans ton userform le classur lui meme

tu pourrais t'inspirer de mon cliché de selection dans les contributions
tu a le lien dans mla signature
au plaisir
21/09/2011, 20h55
kbj_ihma

Bonsoir patricktoulon,

Merci pour ta proposition mais j'avoue que je n'ai pas compris comment faire.
L'image que je voudrai afficher, est un imprime écran de la première page de chaque document. Je voulais enregistrer ces imprimes écran en jpeg et les poser tous (en fichier caché) dans le même dossier où se trouverait ce document Excel.

Je ne sais pas écrire de code, donc je remercie quand même tout le monde.

Je vais noter résolu, même si çà ne l’est pas. Car même avec la meilleure volonté, je n'arrive pas à avancer.

Cordialement

Re bonsoir,
J'ai réussi à faire ce que je voulais finalement, voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
' pour reprend le nom du document et afficher la photo correspondante
 
Private Sub UserForm_Initialize()
 
    Dim Affiche As Variant
 
    Label1.Caption = ActiveCell.Value
 
    Image.Picture = LoadPicture()
 
    Affiche = ThisWorkbook.Path & "\" & Label1.Caption & ".jpg"
 
    If Dir(Affiche) <> "" Then
        Image.Picture = LoadPicture(Affiche)
    End If
 
End Sub
'Pour ouvrir le document (par son lien hypertexte
Private Sub CommandButton1_Click()
  ActiveCell.Select
  Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub