[VBA-E] image dans boîte de dialogue

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

je voudrais savoir s'il était possible de rajouter une image dans une boîte de dialogue... merci d'avance
Code:

1 2 3 4 5 6 7 8 9 With Worksheets(1).Range("a:a") Set c = .Find(mot, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do sResult = sResult & c.Value & vbCrLf Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If
j'affiche une certaine liste dans une boîte qui apparaît à l'écran... Je voudrais savoir si je pouvais rajouter une photo pour chaque résultat... Mes photos sont sockées à un endroit précis donc je connais le chemin d'accès. De plus, est-il possible de la redimensionner...

merci d'avance pour toutes vos réponses

08/01/2007, 10h28
ouskel'n'or

Si j'ai bien compris, tu veux ajouter une image pour chaque ligne de sResult...
Comment se présente ta "boîte de dialogue" ? Est un Userform ?
Si oui, tu peux en effet ajouter une "Picture" pour chaque image, dimensionner et positionner chaque Picture, insérer une image et faire en sorte qu'elle soit affichée sans être déformée...
Mais on manque d'infos. Précise ta demande ;)
A+

voila tout le programme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub ecrire_mot()
 
  Dim wk As Workbook
  Dim c As Range ' Resultat de la recherche
  Dim mot As String, sResult As String
  mot = InputBox("saisissez la recherche")
  Dim f As Worksheet 'Feuille dans laquelle effectuer la rechercher
  Application.ScreenUpdating = False
  'Ouverture du classeur :
  Set wk = Workbooks.Open("file://localhost/users/sebneb/Desktop/liste DVD/LISTEDVD.xls")
  'Effectue recherche dans 1° feuille du classseur
  Sheets(1).Visible = False
   Set c = wk.Sheets(1).Cells.Find(What:=mot, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
 
 
     With Worksheets(1).Range("a:a")
    Set c = .Find(mot, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            sResult = sResult & c.Value & vbCrLf
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
 
End With
    If sResult <> "" Then
        MsgBox sResult
    Else
       MsgBox mot & " Introuvable"
    End If
    wk.Close False ' Fermetur de classeur sans sauvegarde...
   Application.ScreenUpdating = False  'Réactive l'affichage
End Sub

j'ai cherché ce qu'était une useform mais je n'ai toujours pas compris... donc j'espère que le code pourra t'aider à résoudre mon problème...

j'affiche mon sresult dans une msgbox...

@+

08/01/2007, 11h48
ouskel'n'or

D'après ta réponse, tes images sont à insérer dans une feuille de calculs... Alors, qu'appelles-tu "Boîte de dialogue" ? Si c'est le msgbox, alors non, tu ne peux pas afficher ta propre image dans un msgbox. Mais tu as une autre solution, l'utilisation d'un userform pour fabrique ta boîte de dialogue
Tu dis
A+
08/01/2007, 12h04
sebneb

en effet ma boîte de dialogue était ma msgbox...

sinon je suis preneur de toutes les idées permettant d'arriver à ce que je veux... je suis débutant donc je ne connais pas toutes les ficelles de cette programmation...

donc si t'as une idée je suis preneur... par contre mes résultats ne s'affichent pas dans une feuille de calcul... je les affiche directement dans la msgbox...
si t'as une solution pour faire l'opération que je faisais avant + pouvoir rajouter une photo avec pour chaque ligne de mes résultats je suis partant...

merci
08/01/2007, 12h31
SfJ5Rpw8

Citation:

Envoyé par sebneb

.....
j'ai cherché ce qu'était une useform mais je n'ai toujours pas compris...
...

Utiliser les UserForm en VBA Excel

et le contrôle image

II-K. Image

;)

Ok, pour l'userform, on a tous commencé par là, un userform dans lequel on veut mettre des choses.
Pour ça, dans l'éditeur VB, vas dans "Insertion" -> "Userform"
Tu as une fenêtre et une boîte à outils qui s'affiche.
Pour le résultat, insère un TextBox
Pour l'image, insère une image
Pour afficher le "résultat", la syntaxe est
Textbox1.text = LeRésultat
Pour insérer une image dans ton image, en supposant que mon image s'appelle "Statue.bmp" et qu'elle se trouve dans "D:\Dessins\", c'est
Image1.picture= LoadPicture("D:\Dessins\Statue.bmp")
Ensuite il te reste à insérer le code
Dans un module standard,
En tête de module, avant Sub ecrire_mot(), Déclare sResult en Public
Code:

1 2 Public sResult as string Sub ecrire_mot()
Ensuite tu modifies ces seules lignes de ta macro
Code:

1 2 3 4 5 6 7 8 9 10 If sResult <> "" Then 'A la place de MsgBox sResult tu mets Load Userform1 Userform1.show Else MsgBox mot & " Introuvable" End If wk.Close False ' Fermetur de classeur sans sauvegarde... Application.ScreenUpdating = False 'Réactive l'affichage End Sub
Rien d'autre à modifier

Dans l'userform :
Fais deux clics sur l'userform pour afficher la fenêtre de code
Dans la liste en haut et à droite, tu as les événements de l'userform.
Sélectionne "Initialize"
mets ton code dans
Code:

1 2 3 4 Private sub Userform_Initialize() TextBox1.text = sResult Image1.picture= LoadPicture(LeChemin & LeNomDuFichier.jpg) End sub
Commence par là, tu vas découvrir un nouveau monde qui te permettra de venir plus souvent sur le forum :mouarf:
A+

08/01/2007, 14h17
sebneb

j'ai fait exactement comme tu m'as dit... j'ai la userform qui apparaît lorsque j'exécute le programme mais il n'y a pas d'insérer ma recherche dans la userform...
08/01/2007, 14h20
ouskel'n'or

Désolé mais je dois partir, je te laisse avec bbil :mouarf:
Bon courage et cherche un peu par toi-même ;)
08/01/2007, 14h25
sebneb

merci pour ton aide... t'inkiet je cherche aussi de mon côté... ça fait 1 heure que j'essaye des choses pour voir apparaître ma liste recherchée dans la userform...

mais bon, c'est possible donc je dois pouvoir y arriver...
08/01/2007, 14h37
sebneb

c'est bon, j'ai réussi à afficher ma liste... par contre je voudrais qu'elle conserve les mêmes paramètres...

normalement ma liste s'affiche comme cela :

a
e
za
eerrr

et là en utilisant le userform je l'obtiens ainsi :

a e za eerrr
avec le signe de la touche "entrée" entre chaque lettre... donc comment faire pour avoir chaque mot à la ligne...

merci d'avance
08/01/2007, 15h20
AlainTech

Remplace

Code:

sResult = sResult & c.Value & vbCrLf

par

Code:

sResult = sResult & c.Value & vbLf
08/01/2007, 15h25
sebneb

nan malheureusement j'ai effectué le changement et j'obtiens toujours la même chose...
08/01/2007, 16h10
AlainTech

Dans quel type de contrôle affiches-tu ton résultat?

Edit -> Je viens de voir ce que ousk t'a expliqué.

Ta TextBox a-t-elle sa propriété Multiline à True?
08/01/2007, 17h13
sebneb

j'avais essayé d'utiliser le multiline mais je l'avais mal placé... mais l'affaire est résolue... maintenant il faut que j'insère une image...

est ce que les ".jpg" sont acceptés car cela ne marche pas avec le code de ouskel'n'or???

Voici mon code pour insérer une image...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
 Dim Fichier As String
Fichier = "file://localhost/users/sebneb/Desktop/liste_DVD/jaquettes/OSS117.jpg"
With TextBox1
        'Autorise les mutilignes dans le TextBox
        .MultiLine = True
        'Spécifie que la touche ENTRÉE ajoutera une nouvelle ligne.
        .EnterKeyBehavior = True
        Image1.Picture = LoadPicture(Fichier)
        TextBox1.Text = sResult
    End With
End Sub

lorsque j'exécute le programme j'ai une erreur d'exécution 53

donc j'aimerais savoir comment m'en sortir de cette erreur...

merci d'avance

08/01/2007, 18h29
SfJ5Rpw8

sur qu'elle ligne l'erreur ...? revoi aussi ton utilisation de With...? que fais Picture... à l'intérieur de celui-ci..?
08/01/2007, 20h14
sebneb

Citation:

Envoyé par bbil

sur qu'elle ligne l'erreur ...? revoi aussi ton utilisation de With...? que fais Picture... à l'intérieur de celui-ci..?

l'erreur a lieu sur la ligne

Code:

Image1.Picture = LoadPicture(Fichier)

ensuite Picture se trouve là car c'est la dernière utilisation que j'ai copié... j'ai testé de la placer un peu partout... voila...

Remplace

Citation:

Fichier = "file://localhost/users/sebneb/Desktop/liste_DVD/jaquettes/OSS117.jpg"

par

Code:

Fichier = "//localhost/users/sebneb/Desktop/liste_DVD/jaquettes/OSS117.jpg"

A+

Edit
Corrige ton code comme ça
Code:

1 2 3 4 5 6 7 8 9 Fichier = "//localhost/users/sebneb/Desktop/liste_DVD/jaquettes/OSS117.jpg" With TextBox1 'Autorise les mutilignes dans le TextBox .MultiLine = True 'Spécifie que la touche ENTRÉE ajoutera une nouvelle ligne. .EnterKeyBehavior = True .Text = sResult End With Image1.Picture = LoadPicture(Fichier)

08/01/2007, 23h07
sebneb

j'ai essayé la modif mais ça ne marche pas... je vais essayer de trouver autrement... encore merci

Voir 40 message(s) de cette discussion en une page