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

 

[patricktoulon]

re
BEN JE SUIS bien ennuyé
j'ai téléchargé ton popup(4) et il veux plus s'enregistrer (message ="pour cause de partage")
le fait de copier tes cellules de "liste" dans un autre fichier boom c'est fini je peux plus rien faire

bref tu a un code qui est simple tu peux faire ca tout seul
perso j'ai pas envie de pourrir mon installation avec des fichiers corrompus
désolé

 

[patricktoulon]

re
bon j'ai pris celui de Job75
et j'ai remplacé ces codes
fini les captures et tout le toutim tout se passe dans l'userform

et tu a meme une methode "show améliorée"
c'est showX left,top

 

[anasimo]

Merci beaucoup patrick
job....ça répond pas parfaitement à ma deuxième demande
supposons je veux ajouter un 4eme bouton qui m'affiche j'ai un petit tableau F7:G20 dans la feuille 'liste".
comme j'ai dis ne te casse pas la tête...tes propositions me suffisent largement

 

[anasimo]

c bon j'ai trouvé comment détourner ça.
Sinon Merci infiniment Job...vous m'avez beaucoup à élaborer mon canevas.
Merci aussi patrick

 

[patricktoulon]

re
sinon il n'y a pas de soucis je peux te faire la même pour 36 tableaux différents avec le même code
tien 3 popup différents avec le même userform

 

[anasimo]

Merci beaucoup patrick...c'est exactement ce que je veux

 

[anasimo]

excuser mon ignorance...il ne peut pas y avoir une barre de défilement dans ce popup

 

[patricktoulon]

re
si tu veux dire une scroll bar???
alors oui on peut

 

[anasimo]

patrick
ton code ne prend pas en charge un tableau de 3 colonnes

 

[patricktoulon]

non
tu veux 36 colonnes ?

 

[anasimo]

non juste 3 colonnes pour certains cas....

 

[patricktoulon]

re
voila

1. autant de colonne que tu veux
2. un max de 300 de haut
3. si trop de données alors la scrollbars apparaît

 

[anasimo]

ah parfait du bon travail

j'a remarqué en faisant des tests tout à l'heure que par exemple la hauteur des lignes est fixe ...s'il saut de ligne et la taille de la cellule augmente..elle n'est pris en charge ...exemple de cette capture...la ligne 7 ...yajuste la capture de première de la phrase.....sinon fo mettre scroll horizontal

ça donne

 

[patricktoulon]

re
je t'ajoute ça donne moi 2 minutes
voila maintenant les hauteurs de lignes peuvent etre de différentes taille

 

[job75]

Fichier (6) semblable au fichier (5) mais avec la barre de défilement verticale dans l'UserForm :

Sub POP_UP()
Dim P As Range, x$, fichier$
Set P = Sheets("Liste").[A1].CurrentRegion 'la feuille Liste est masquée
x = UserForm1.Caption
Select Case Val(Right(ActiveSheet.DrawingObjects(Application.Caller).Text, 1))
    Case 1: Set P = P.Resize(8): UserForm1.Caption = x & " N° 1"
    Case 2: Set P = P.Resize(16): UserForm1.Caption = x & " N° 2"
    Case 3: UserForm1.Caption = x & " N° 3"
End Select
fichier = ThisWorkbook.Path & "\MonImage.gif"
'---création du fichier image gif---
P.CopyPicture xlScreen, xlBitmap
With P.Parent.ChartObjects.Add(0, 0, P.Width, P.Height).Chart
    While .Shapes.Count = 0 'en attente du collage
        DoEvents
        .Paste
    Wend
    .Export fichier, "GIF"
    .Parent.Delete 'supprime le graphique temporaire
End With
'---dimensionnement et remplissage de l'UserForm---
With UserForm1
    .Width = P.Width + 24
    .Height = P.Resize(6).Height + 30 'affiche 6 lignes
    .ScrollBars = fmScrollBarsVertical 'barre de défilement
    .ScrollHeight = P.Height
    .ScrollWidth = P.Width
    .PictureSizeMode = fmPictureSizeModeClip
    .Picture = LoadPicture(fichier)
    Kill fichier 'suppression du fichier image
    .Show
End With
End Sub

Bonne nuit.