VBA pop up

[anasimo]

Bonjour

j'ai une feuille où je vais mettre une liste des abréviations (tableau de 2 colonnes et 25 lignes) ...pour ne pas encombrer mon classeur je veux supprimer cette feuille
Y a un moyen de mettre un bouton cliquable pour avoir 1 popup ou s'affiche ce tableau (excel ou word peut importe)

Merci pour votre aide

 

[job75]

Bonsoir anasimo,

Le bouton peut par exemple ouvrir un UserForm dans lequel l'image de la plage s'affichera, il y a pas mal d'exemples sur XLD.

A+

 

[anasimo]

oui j'ai pensé à une image.
mais le tableau est amené à être mis à jour parfois

 

[patricktoulon]

re
bonsoir
si ce tableau est sensé subir des mises a jours pourquoi voudrais tu le supprimer ??
et mise a jour par quel moyen interne,externe ,manuel,etc..????
c'est pas clair ton histoire
perso un tableau structuré avec formule equiv/index me semble au contraire indispensable

 

[anasimo]

c'est un glossaire ne contenant ni formule ni adresses....c juste un petit lexique mis à jour occasionnellement...et je ne veux pas lui réservé toute une feuille

 

[patricktoulon]

re
d'accords ce glossaire te sert a alimenter un menu popup si je comprends biens ?
si c'est le cas tu pourrais enregistrer tes code produit/ libellés dans des names

 

[job75]

oui j'ai pensé à une image.
mais le tableau est amené à être mis à jour parfois

Cela ne posera pas de problème : l'image de la plage sera recréée chaque fois que l'on cliquera sur le bouton.

 

[patricktoulon]

Bonjour le fil
@job75
et quand on (change , ajoute , supprime) on fait quoi on refait l'image?
tant qu'a utiliser un userform autant le faire correctement avec une listbox par exemple
listbox1.add item "CCT":listbox1(.listbox1.listindex,1)="crédit à cour terme"
et ainsi de suite
codé en dur comme ça c'est facile a modifier dans le module userform

 

[anasimo]

Cela ne posera pas de problème : l'image de la plage sera recréée chaque fois que l'on cliquera sur le bouton.

Ah d'accord...donc si j'ai bien compris y aura un lien entre l'image et la plage ? et sera mise à jour à l'occasion de chaque modif (ajout ou suppression) du tableau mm si l'image est figée....sioui ça sera intéressant!!!!
Pour c'est de la science fiction quand vous m'avez de le faire tout ce que je connais en VBA c enregistrer 1 macro

je met un exemple du fichier en joint ...si le travail ne demande pas plus de 5 mn je demande kelk1 de faire un exemple ...sinon pas la peine de se casser la tête

Merci d'avance

 

[job75]

Bonjour anasimo, patricktoulon, le forum,

tant qu'a utiliser un userform autant le faire correctement avec une listbox par exemple

Avec une ListBox on n'a pas les couleurs...

Voyez le fichier joint et la macro affectée au bouton :

Sub POP_UP()
Dim P As Range, fichier$
Set P = Sheets("Liste").[A1].CurrentRegion 'la feuille Liste est masquée
fichier = ThisWorkbook.Path & "\MonImage.gif"
'---création du fichier image gif---
P.CopyPicture
With P.Parent.ChartObjects.Add(0, 0, P.Width, P.Height).Chart
    .Parent.Activate 'force le focus sur l'objet
    .Paste
    .Export fichier, "GIF"
    .Parent.Delete 'supprime le graphique temporaire
End With
'---dimensionnement et remplissage de l'UserForm---
With UserForm1
    .Width = P.Width
    .Height = P.Height + 20
    .PictureSizeMode = fmPictureSizeModeStretch
    .Picture = LoadPicture(fichier)
    Kill fichier 'suppression du fichier image
    .Show
End With
End Sub

Bon week-end.

 

[patricktoulon]

RE
ben il faudrait savoir
ce shhet il le veux ou pas ????
la question etait de faire un popup sans avoir a garder le sheets pour ca
dans le contexte d'une capture on garde le sheet et il me semble pas que c'est ce que le demandeur demande a moins que je n'ai pas compris

 

[anasimo]

Très bien fait job....Merci beaucoup

je suis preneur......en fin de compte je vais garder la feuille et la masquer) et opter pour la protection du classeur.

Il n'y a pas moyen de modifier le titre de la fenêtre "correspondance" par "fiche produit"

 

[patricktoulon]

code supprimé pour confidentialités

 

[anasimo]

stp patrick

est ce que tu peux supprimer les captures (j'ai mis des trucs internes à l'entreprise) et aussi le code (je l'ai copié)....j'avais mis le mauvais fichier (que je viens de supprimer)...Merci de votre compréhension...


je vais rejoindre un nv fichier

 

[job75]

Il n'y a pas moyen de modifier le titre de la fenêtre "correspondance" par "fiche produit"

Il suffit de modifier la propriété Caption de l'UserForm.