Discussion :

[lio62]

bonsoir,

j'ai 2 petites bases de données qui contiennent toutes deux environ 4 colonnes et 10 lignes, elles sont toutes deux dans deux feuilles excel différentes, je voudrai les voir apparaitre dans un userform sans possibilité de modification. une simple consultation.
il faut savoir que c'est du matériel sorti donc pas toujours le meme.

dans un autre userform ou dans la meme j'ai dans une feuille de calcul (une autre) une bd avec 3 colonnes et 40 lignes avec mon materiel en dotation et le materiel restant (3 colonnes) je voudrai l'afficher également dans un userform sans possibilité de modif en sachent que la colonne "restant" change bien evidemment.

le plus simple est avec des textbox, des labels avec quoi ????

merci

a+

[ouskel'n'or]

Tu peux copier la plage de cellules avec vba
Pour copier en bitmap, j'ai ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Worksheets("Feuil1").Range("E6:I27").CopyPicture xlScreen, xlBitmap

A défaut d'une autre solution, tu peux enregistrer en tant que .jpg, l'affecter à un image et supprimer le .jpg.
Le mieux serait de coller directement une copie d'écran (depuis le bloc-note dans une image...) mais ça, chais pas faire
A+

[lio62]

salut ouskel


tu veux dire que ta solution me permettrait d'afficher celà dans un userform?


merci a+

[ouskel'n'or]

J'ai trouvé ça pour la copie d'écran dans un userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwflags As Long, ByVal dwExtraInfo As Long)
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function Clipboard Lib "user32" (ByVal Dessin As Long) As Long
 
Private Sub CopieDécran_Click()
Dim msg As String, intx As Integer, Titre
Call keybd_event(vbKeySnapshot, 0, 0&, 0&)  'envoie la code de la touche Print Screen (la capture dans le press papier)
OpenClipboard 0
 
SavePicture Clipboard.GetData(0), "c:\Image.bmp"
end sub

Reste plus qu'à faire un mix des deux codes...
Implique que l'userform soit "modal",
que tu sélectionnes tes cellules à l'aide de la souris dans un inputbox Type = 8 (!!!) (explications fournies gratuitement par bbil la semaine dernière)
Que cette sélection soient copiées dans le presse-papier
Ainsi tu "devrais" pouvoir la récupérer pour enregistrer l'image et la récupérer dans un contrôl image.
Jamais fait.
Il y a peut-être plus simple mais je ne connais pas
Bon courage,
Bonne chance,
Bonne nuit

EmptyClipboard et les autres sont là pour vider le presse-papier

[cafeine]

Il y a ça :
http://www.developpez.net/forums/sho...d.php?t=258635

[lio62]

ok merci a tous deux mais je me demande si je ne vais pas revenir a ma première idée, les laisser voir la feuills avec les infos sans possibilité de modifier juste imprimer ce sera peut etre moins lourd mais je vais quand meme essayer vos solutions, juste y gouter pour voir au debut!!!



merci bsr
a+

[ouskel'n'or]

Tu peux (momentanément oublier la mienne, j'utilise SavePicture qui n'existe pas dans VBA (sans doute dans VB6)
Désolé
Mais tu as la solution de Cafeine
A+

[lio62]

ok merci ouskel j'essaye ca