Discussion :

[Glawiiin]

Bonjour,

Je me permets de demander de l'aide sur votre forum pour un projet que j'ai à réaliser, voilà le principe :

Dans un tableau j'ai répertorié un certain nombres d'événements en précisant des critères date/prix/lieu/type (colonnes A,B,C ...). J'ai créé une macro qui a pour objectif d'afficher un "Userform" dans lequel se trouvent une sélection selon les mêmes 4 critères (menu déroulant pour chaque critère).

Le but de cette macro est d'afficher dans un onglet "RESULTAT" les lignes dont les critères correspondent au choix effectué et d'y associer une photo. (si jamais le critère n'a pas été sélectionné dans le userform, la macro ne doit pas en tenir compte).

Voilà l'objectif. Pour les personnes qui souhaitent m'apporter leur aide, merci d'essayer de faire un truc le plus simple possible s'il vous plait (même si c'est un peu plus lourd), mes compétences se limitent aux bases de VBA.

Merci infiniment.

[bastou93]

Salut,

Juste une petite question, il y a autant de ligne pour chaque colonne? Et quand tu dit

les lignes dont les critères correspondent, il faut que la date + le prix +... soit comme indiqué ou 1 seul suffit?

J'ai ma petite idée en fonction de ta réponse je te mettrais le code que je vois

Bastien

Code :

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

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
'Fonction qui recherche les lignes en fonctions des choix des listebox
Private sub FindLine()
 
'Collection ou seront stocker toutes tes lignes
line as new Collection
 
'Récupère la derniere ligne de ta colonne la plus rempli
LastRow = WorksheetFunction.Max(Range("A1").End(x1Down).Row,Range("B1").End(x1Down).Row,Range("C1").End(x1Down).Row,Range("D1").End(x1Down).Row)
 
'Récupère la valeur de tes combo
ladate = USERFORM.COMBO1.value
prix = USERFORM.COMBO2.value
lieu = USERFORM.COMBO3.value
type = USERFORM.COMBO4.value
 
'Parcour toutes tes cellules des colonnes
For i=0 to LastRow 
 
	'test si cela correspond à tes critères
	If Range("A" & i) = ladate And Range("B" & i) = prix And Range("C" & i) = lieu And Range("D" & i) = type Then
		'Si cela correspond on ajoute la lettre de la ligne dans la collection
		line.Add Split(Rows(i).Address(RowAbsolute:=Flase),":")(1)	'JE NE SUIS PAS SUR a 100%
	end If
next i
 
'Pour l'histoire de la photo j'ai pas tout pigé
 
'Pour balayer tes lignes
 
for i=1 to line.Count
	'Affiche la lettre de la ligne
	msgbox line(i)
next i

Dis moi ce que tu en penses A TESTER et mettre en Option Explicit et tout pour test car j'ai pas excel ici

[Glawiiin]

Bonjour,

désolé pour le retard.
Avec un peu de mal mais grâce à tes indications j'ai réussis à faire en sorte que mon programme fonctionne, merci.

Concernant l'image : j'ai désormais dans un onglet "RESULTAT" le listing de la recherche que j'ai effectué avec quatre colonnes remplies : DATE/LIEU/DESIGNATION/PRIX en gros.

A partir de cette liste j'insère une ligne vide entre chaque ligne et redimensionne la hauteur de cette ligne (j'ai réussis seul ), mais je voudrais que pour chaque ligne, la macro cherche l'image correspondant à la désignation.
Je comptais procéder de la manière suivante :

Code :

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

1
2
3
4
5
6
        ActiveSheet.Pictures.Insert("F:\NOM DE LA DESIGNATION.jpg").Select
 
    With Selection
        .ShapeRange.Left = Sheets("MENU").Cells(i, 3).Left
        .ShapeRange.Top = Sheets("MENU").Cells(i, 3).Top
    End With

D'ou mes questions :
* Comment faire en sorte que dans le code du chemin de l'image excel prenne la valeur de la case i-1,3 et y ajoute juste ".jpg" (l'image correspondant à la désignation portera le même nom + ".jpg").
* Comment redimensionner l'image à la hauteur de la ligne

Merci