VBA pop up

patricktoulon

XLDnaute Barbatruc

• 2 Novembre 2019

• #31

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é

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Novembre 2019

• #32

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

 

Pièces jointes

• POP U V pat.xlsm

  24 KB · Affichages: 9

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 2 Novembre 2019

• #33

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

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 2 Novembre 2019

• #34

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Novembre 2019

• #35

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

 

Pièces jointes

• POP U V pat.xlsm

  26.6 KB · Affichages: 6

Dernière édition: 2 Novembre 2019

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 2 Novembre 2019

• #36

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

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 2 Novembre 2019

• #37

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Novembre 2019

• #38

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

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 2 Novembre 2019

• #39

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Novembre 2019

• #40

non
tu veux 36 colonnes ?

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 2 Novembre 2019

• #41

non juste 3 colonnes pour certains cas....

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Novembre 2019

• #42

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

 

Pièces jointes

• POP U V pat.xlsm

  28.4 KB · Affichages: 6

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 2 Novembre 2019

• #43

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Novembre 2019

• #44

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

 

Pièces jointes

• POP U V pat.xlsm

  28.6 KB · Affichages: 7

Dernière édition: 2 Novembre 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Novembre 2019

• #45

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

VB:

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.

 

Pièces jointes

• POP UP(6).xlsm

  30.9 KB · Affichages: 14

Vote positif 0 Vote négatif