code Listbox

Version imprimable

04/06/2008, 16h24
fabien114

code Listbox

Bonjour,

J'ai un soucis dans mon code et j'arrive pas à voir pourquoi. A vrai dire je débute en VBA :oops:

J'arrive pas à afficher plus de 10 (j'en ai 12 à afficher) éléments dans le tableau. Des que je rajoute dans le code pour afficher d'autre lignes j'ai un bug.

Autres questions:
Je n'ai pas de doublons dans ma sélection de critères sauf pour mes colonnes contenant juste des nombres => J'ai réussi à enlever mes doublons sur mes colonnes contenant des nombres en forçant le type de donnée en format "texte". Y a t'il une autre solution, car ca m'oblige à double cliquez sur mes cellules puis à faire "entrée" pour valider.

Merci par avance de votre aide ;)
04/06/2008, 16h31
mayekeul

bonjour,

et ça coince à quelle ligne exactement, ici, ça à l'air de fonctionner mais bon...
04/06/2008, 16h42
fabien114
Ah ce niveau la:
Code:

1 2 .List(.ListCount - 1, 8) = Range("I" & lgLigDeb).Value .List(.ListCount - 1, 9) = Range("J" & lgLigDeb).Value
Des que je rajoute une ligne comme

Code:

.List(.ListCount - 1, 10) = Range("K" & lgLigDeb).Value

ça plante
04/06/2008, 16h52
Jean-Pierre49

Bonjour

ColumnCount a une limite de 10 (0 a 9)

Désolé:cry:

Bon courage
04/06/2008, 17h00
fabien114

Merci de la réponse rapide.

Arfff :?:? Çà m'embête beaucoup ça. :(
04/06/2008, 17h04
Jean-Pierre49

tu peux peu être en mettre deux cote à cote et regler le probleme

oui pas bête ;)

Sinon j'ai vu ce code sur internet et il marche. J'arrive à avoir plus de 10 colonnes:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim Plg as Variant With Sheets("Données1) Plg = .Range("A0:K40") End With With ListBoxParquet .Clear .ColumnCount = 11 .ColumnWidths = "33;65;35;30;57;48;65;35;52;35;35" .List = Plg End With
Mais est ce qu'il est adaptable avec mon code:
Code:

1 2 3 .List(.ListCount - 1, 8) = Range("I" & lgLigDeb).Value .List(.ListCount - 1, 9) = Range("J" & lgLigDeb).Value etc, etc

bonsoir

tu peux tester cette adaptation

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
    Dim Tableau() As Variant
    Dim i As Integer
 
 
    ' Boucle de la 2me à la dernière ligne de la feuille
    For lgLigDeb = 2 To Range("A" & Cells.Rows.Count).End(xlUp).Row
 
        If Range("A" & lgLigDeb).Value Like Critere1 And Range("B" & lgLigDeb).Value _
            Like Critere2 And Range("D" & lgLigDeb).Value Like Critere3 And _
            Range("E" & lgLigDeb).Value Like Critere4 And Range("F" & _
            lgLigDeb).Value Like Critere5 And Range("G" & lgLigDeb).Value _
            Like Critere6 And Range("H" & lgLigDeb).Value Like Critere7 Then
 
            i = i + 1
            ReDim Preserve Tableau(1 To 11, 1 To i)
 
            Tableau(1, i) = Range("A" & lgLigDeb).Value
            Tableau(2, i) = Range("B" & lgLigDeb).Value
            Tableau(3, i) = Range("C" & lgLigDeb).Value
            Tableau(4, i) = Range("D" & lgLigDeb).Value
            Tableau(5, i) = Range("E" & lgLigDeb).Value
            Tableau(6, i) = Range("F" & lgLigDeb).Value
            Tableau(7, i) = Range("G" & lgLigDeb).Value
            Tableau(8, i) = Range("H" & lgLigDeb).Value
            Tableau(9, i) = Range("I" & lgLigDeb).Value
            Tableau(10, i) = Range("J" & lgLigDeb).Value
            Tableau(11, i) = lgLigDeb
        End If
    Next lgLigDeb
 
    ListBoxLocataire.List() = Application.Transpose(Tableau)

bonne soirée
michel

05/06/2008, 10h29
fabien114

Bonjour,

Nickel, c'est ce qu'il me fallait. Merci :king:

Je commence à en voir le bout, j'ai juste quelques détails à régler:

1. Quand on clic sur prix en bas a droite, si on met un chiffre avec une point => bug. Mais avec un virgule ça fonctionne très bien. On peut y remédier?

2. J'ai modifié le code pour que lorsque l'on sélectionne des critères, la colonne de ses critères ne s'affiche pas dans mon tableau. Ca fonctionne bien mais si je sélectionne un critère non présent dans ma listbox => bug.

3. Et enfin. J'ai une colonne dans mon fichier excel qui contient le nom d'un fichier PDF. J'aimerai que lorsque l'on clic sur une ligne de la listbox, il m'ouvre le fichier pdf correspondant. J'arrive à avoir un fichier pdf en cliquant sur une ligne mais avec un chemin absolu et sans recherche du bon fichier (cf code)

PS: dans la pièce jointe je n'ai mis qu'un fichier pdf.
05/06/2008, 10h58
ouskel'n'or

1. Quand on clic sur prix en bas a droite, si on met un chiffre avec une point => bug. Mais avec un virgule ça fonctionne très bien. On peut y remédier?
Oui, sans doute, si tu nous dis de quel contrôle il s'agit
Le mieux est que tu montres où ça bug (la ligne concernée)... et donc... avec le code

2. J'ai modifié le code pour que lorsque l'on sélectionne des critères, la colonne de ses critères ne s'affiche pas dans mon tableau. Ca fonctionne bien mais si je sélectionne un critère non présent dans ma listbox => bug.
Où sélectionnes-tu ce critère ? Pas dans la liste puisqu'il n'existe pas... Sans le code pas de salut...

3. Et enfin. J'ai une colonne dans mon fichier excel qui contient le nom d'un fichier PDF. J'aimerai que lorsque l'on clic sur une ligne de la listbox, il m'ouvre le fichier pdf correspondant.Pour ça, on peut te dépanner, mais le mieux est de le faire à partir de ton code ;)

J'arrive à avoir un fichier pdf en cliquant sur une ligne mais avec un chemin absolu et sans recherche du bon fichier (cf code)
C'est gentil de mettre le pdf mais ce qui serait intéressant serait de pouvoir tester ce code... et là, tu nous obliges à tout ré-écrire...
En outre, il toujours intéressant de placer le code sur le forum. Ton fichier joint disparaîtra bientôt, le code reste. Ainsi, si une solution t'es donnée, il sera possible de la retrouver ;)

NB - Je sais que tes questions concernent un même fichier, mais essaie autant que possible de ne poser qu'une question par discussion. Sinon, les réponses qui vont t'être données devront rappeler chaque fois la question concernée.

Merci pou cette rapidité :king:. En effet je poste tous ici (peut être à tord) pour éviter d'ouvrir autant de sujet que de questions.

Pour le code désolé, je pensais que la pièce jointe contenant la base et le code suffirait.

Pour cette discution je continue ici? En notant pour la prochaine fois de faire d'autres post suivant le type de mes questions. ;)

1.
Voici ou ça bloque:

Code:

1
2
3
4
5
            If parametres.bouton_pv = True Then
                Tableau(j, i) = Range("L" & lgLigDeb).Value * parametres.Coeff.Value
            Else
                Tableau(j, i) = Range("L" & lgLigDeb).Value
            End If

2.
Le code modifié pour enlever les colonnes en fonction des critères:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
    ' Boucle de la 2me à la dernière ligne de la feuille
    For lgLigDeb = 2 To Range("A" & Cells.Rows.Count).End(xlUp).Row
 
        If Range("A" & lgLigDeb).Value Like Critere1 And Range("B" & lgLigDeb).Value Like Critere2 And Range("D" & lgLigDeb).Value Like Critere3 And _
            Range("E" & lgLigDeb).Value Like Critere4 And Range("F" & lgLigDeb).Value Like Critere5 And Range("G" & lgLigDeb).Value Like Critere6 And _
            Range("H" & lgLigDeb).Value Like Critere7 And Range("I" & lgLigDeb).Value Like Critere8 And Range("J" & lgLigDeb).Value Like Critere9 And _
            Range("M" & lgLigDeb).Value Like Critere10 Then
 
            i = i + 1
            j = 1
            ReDim Preserve Tableau(1 To 13, 1 To i)
 
            If RechercheC1.Value = "" Then
                Tableau(j, i) = Range("A" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC2.Value = "" Then
                Tableau(j, i) = Range("B" & lgLigDeb).Value
                j = j + 1
            End If
            Tableau(j, i) = Range("C" & lgLigDeb).Value
            j = j + 1
            If RechercheC3.Value = "" Then
                Tableau(j, i) = Range("D" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC4.Value = "" Then
                Tableau(j, i) = Range("E" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC5.Value = "" Then
                Tableau(j, i) = Range("F" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC6.Value = "" Then
                Tableau(j, i) = Range("G" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC7.Value = "" Then
                Tableau(j, i) = Range("H" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC8.Value = "" Then
                Tableau(j, i) = Range("I" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC9.Value = "" Then
                Tableau(j, i) = Range("J" & lgLigDeb).Value
                j = j + 1
            End If
            Tableau(j, i) = Range("K" & lgLigDeb).Value
            j = j + 1
 
            If parametres.bouton_pv = True Then
                Tableau(j, i) = Range("L" & lgLigDeb).Value * parametres.Coeff.Value
            Else
                Tableau(j, i) = Range("L" & lgLigDeb).Value
            End If
            'j = j + 1
            'Tableau(j, i) = lgLigDeb
        End If
    Next lgLigDeb
 
    ListBoxParquet.List() = Application.Transpose(Tableau)

3.
Le code ma fonction pour afficher le pdf:

Code:

1
2
3
4
Private Sub ListBoxParquet_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
        Shell "cmd /c start acrord32.exe ""C:\Documents and Settings\FABIEN.ARB114\Bureau\Demande de prix parquet\Fiches techniques\quorum.pdf"""
 
End Sub

pour l'instant il ouvre quoiqu'il arrive le même fichier pdf.

Merci pour votre précieuse aide ;);)

PS: la totalité de mon code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
 
Private Sub Aff_parametres_Click()
    parametres.Show
End Sub
 
Private Sub Imprimer_Click()
    If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Recherche.PrintForm
End Sub
 
Private Sub ListBoxParquet_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    'pour ouvrir un fichier pdf
        Shell "cmd /c start acrord32.exe ""C:\Documents and Settings\FABIEN.ARB114\Bureau\Demande de prix parquet\Fiches techniques\quorum.pdf"""
 
End Sub
 
Private Sub RechercheC1_Change()
    ' Rechercher les données en fonction des critères sélectionnés
    Call Rechercher
End Sub
 
Private Sub RechercheC2_Change()
    Call Rechercher
End Sub
 
Private Sub RechercheC3_Change()
    Call Rechercher
End Sub
 
Private Sub RechercheC4_Change()
    Call Rechercher
End Sub
 
Private Sub RechercheC5_Change()
    Call Rechercher
End Sub
 
Private Sub RechercheC6_Change()
    Call Rechercher
End Sub
 
Private Sub RechercheC7_Change()
    Call Rechercher
End Sub
 
Private Sub RechercheC8_Change()
    Call Rechercher
End Sub
 
Private Sub RechercheC9_Change()
    Call Rechercher
End Sub
 
Private Sub RechercheC10_Change()
    Call Rechercher
End Sub
 
Private Sub UserForm_Initialize()
    Range("A2").Select
 
    ' Initialiser les listes des critères
    Call InitCombo(RechercheC1, "A")
    Call InitCombo(RechercheC2, "B")
    Call InitCombo(RechercheC3, "D")
    Call InitCombo(RechercheC4, "E")
    Call InitCombo(RechercheC5, "F")
    Call InitCombo(RechercheC6, "G")
    Call InitCombo(RechercheC7, "H")
    Call InitCombo(RechercheC8, "I")
    Call InitCombo(RechercheC9, "J")
    Call InitCombo(RechercheC10, "M")
 
    ' Rechercher les données en fonction des critères sélectionnés
    ' ce call est pas obligatoire, tester sans
    Call Rechercher
End Sub
 
Private Sub Rechercher()
    ' Rechercher les données en fonction des critères
    Dim rCel As Range
    Dim lgLig As Long
    Dim lgLigDeb As Long
    Dim i As Integer
    Dim j As Integer
 
    Dim Critere1 As String
    Dim Critere2 As String
    Dim Critere3 As String
    Dim Critere4 As String
    Dim Critere5 As String
    Dim Critere6 As String
    Dim Critere7 As String
    Dim Critere8 As String
    Dim Critere9 As String
    Dim Critere10 As String
 
    Critere1 = "*"
    If RechercheC1.Value <> "" Then Critere1 = RechercheC1.Value
    Critere2 = "*"
    If RechercheC2.Value <> "" Then Critere2 = RechercheC2.Value
    Critere3 = "*"
    If RechercheC3.Value <> "" Then Critere3 = RechercheC3.Value
    Critere4 = "*"
    If RechercheC4.Value <> "" Then Critere4 = RechercheC4.Value
    Critere5 = "*"
    If RechercheC5.Value <> "" Then Critere5 = RechercheC5.Value
    Critere6 = "*"
    If RechercheC6.Value <> "" Then Critere6 = RechercheC6.Value
    Critere7 = "*"
    If RechercheC7.Value <> "" Then Critere7 = RechercheC7.Value
    Critere8 = "*"
    If RechercheC8.Value <> "" Then Critere8 = RechercheC8.Value
    Critere9 = "*"
    If RechercheC9.Value <> "" Then Critere9 = RechercheC9.Value
    Critere10 = "*"
    If RechercheC10.Value <> "" Then Critere10 = RechercheC10.Value
 
    ListBoxParquet.Clear
 
    Dim Tableau() As Variant
 
    ' Boucle de la 2me à la dernière ligne de la feuille
    For lgLigDeb = 2 To Range("A" & Cells.Rows.Count).End(xlUp).Row
 
        If Range("A" & lgLigDeb).Value Like Critere1 And Range("B" & lgLigDeb).Value Like Critere2 And Range("D" & lgLigDeb).Value Like Critere3 And _
            Range("E" & lgLigDeb).Value Like Critere4 And Range("F" & lgLigDeb).Value Like Critere5 And Range("G" & lgLigDeb).Value Like Critere6 And _
            Range("H" & lgLigDeb).Value Like Critere7 And Range("I" & lgLigDeb).Value Like Critere8 And Range("J" & lgLigDeb).Value Like Critere9 And _
            Range("M" & lgLigDeb).Value Like Critere10 Then
 
            i = i + 1
            j = 1
            ReDim Preserve Tableau(1 To 13, 1 To i)
 
            If RechercheC1.Value = "" Then
                Tableau(j, i) = Range("A" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC2.Value = "" Then
                Tableau(j, i) = Range("B" & lgLigDeb).Value
                j = j + 1
            End If
            Tableau(j, i) = Range("C" & lgLigDeb).Value
            j = j + 1
            If RechercheC3.Value = "" Then
                Tableau(j, i) = Range("D" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC4.Value = "" Then
                Tableau(j, i) = Range("E" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC5.Value = "" Then
                Tableau(j, i) = Range("F" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC6.Value = "" Then
                Tableau(j, i) = Range("G" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC7.Value = "" Then
                Tableau(j, i) = Range("H" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC8.Value = "" Then
                Tableau(j, i) = Range("I" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC9.Value = "" Then
                Tableau(j, i) = Range("J" & lgLigDeb).Value
                j = j + 1
            End If
            Tableau(j, i) = Range("K" & lgLigDeb).Value
            j = j + 1
 
            If parametres.bouton_pv = True Then
                Tableau(j, i) = Range("L" & lgLigDeb).Value * parametres.Coeff.Value
            Else
                Tableau(j, i) = Range("L" & lgLigDeb).Value
            End If
            'j = j + 1
            'Tableau(j, i) = lgLigDeb
        End If
    Next lgLigDeb
 
    ListBoxParquet.List() = Application.Transpose(Tableau)
End Sub
 
Private Sub InitCombo(LCombo As Object, nomCol As String)
    Dim lig As Long
    Dim nbElement As Integer
    Dim trouveElm As Boolean
 
    LCombo.Clear
 
    ' Boucle de la ligne 2 à la dernière ligne dans la colonne nomCol
    For lig = 2 To Range(nomCol & Cells.Rows.Count).End(xlUp).Row
        trouveElm = False
 
        ' Vérifier que l'élément à ajouter dans la liste n'existe pas déjà
        For nbElement = 0 To LCombo.ListCount - 1
            ' L'élément est déjà présent dans la liste, sortie de la boucle
            If LCombo.List(nbElement) = Range(nomCol & lig).Value Then
                trouveElm = True
                Exit For
            End If
        Next nbElement
 
        ' Elément non trouvé dans la liste, l'ajouter
        If trouveElm = False Then LCombo.AddItem Range(nomCol & lig).Value
 
    Next lig
End Sub

Tu ne dis pas sur quelle ligne mais bon... teste ça ;)

Code:

1
2
3
         If parametres.bouton_pv Then 's'il s'agit d'un checkbox ou d'un booléen, pas besoin de "= true"
                'si c'est un textbox...
                Tableau(j, i) = Range("L" & lgLigDeb).Value * Val(parametres.Coeff.Value)

A la deux ...
A+

Edit
2. Sur quelle ligne le problème ?

3. Utilise ShellExecute, évite d'avoir à nommer l'application
'Utilise la fonction ShellExecute Lib etc...

Code:

1
2
3
4
5
6
7
8
9
'Déclaration en tête de module
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub ListBoxParquet_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    NomFich = "C:\Documents and Settings\FABIEN.ARB114\Bureau\Demande de prix parquet\Fiches techniques\quorum.pdf"
    ShellExecute 0, vbNullString, NomFich, vbNullString, vbNullString, 0
End sub

1. Problème résolu :king:

2. le souci est à la ligne

Code:

ListBoxParquet.List() = Application.Transpose(Tableau)

3.
Ou dois-je mettre ce code:
Code:

1 2 3 4 'Déclaration en tête de module Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Je l'ai mis juste avant
Code:

1 2 3 4 Private Sub ListBoxParquet_DblClick(ByVal Cancel As MSForms.ReturnBoolean) NomFich = "C:\Documents and Settings\FABIEN.ARB114\Bureau\Demande de prix parquet\Fiches techniques\quorum.pdf" ShellExecute 0, vbNullString, NomFich, vbNullString, vbNullString, 0 End sub
et il me met cela. cf piéce jointe

De plus, comment dans le nom de fichier, récupérer le champ correspondant à ma recherche et qu'il ouvre ce fichier pdf en fonction du chemin ou se situe le fichier excel (pas de chemin absolu)?

05/06/2008, 12h17
ouskel'n'or

2. Je ne connais pas "Application.Transpose" (Transpose n'est pas dans les méthodes d'Application VBA97 - 2003) ce qui ne veut pas dire que ça n'existe pas... mais dans ce cas, peut-être manque-t-il une référence à ton projet (???)
3.

Citation:

Envoyé par ousk'

'Déclaration en tête de module

J'aurais dû ajouter "d'un module standard", celui qui te sert à ouvrir ton userform par exemple.

4.De plus, comment dans le nom de fichier, récupérer le champ correspondant à ma recherche et qu'il ouvre ce fichier pdf en fonction du chemin ou se situe le fichier excel (pas de chemin absolu)? Comprends pas ta question : Où se trouve ton pdf ?
"... en fonction..." qu'entends-tu par là ?
A+

Edit
Je précise : "Transpose existe bien mais dans un collage spécial."
05/06/2008, 13h27
fabien114

3.

Citation:

J'aurais dû ajouter "d'un module standard", celui qui te sert à ouvrir ton userform par exemple.

désolé mais je comprend pas. Dans mon projet je n'ai pas de module. :?

4.
Dans mon dossier TOTO j'ai mon fichier excel et un dossier Fiches techniques qui contient mes fiches pdf.

Si je déplace mon dossier TOTO, je veux que lorsque je double clic sur une ligne de ma listbox il m'ouvre le fichier pdf correspondant. En sachant que le nom du fichier pdf se trouve dans une colonne (colonne "N") de ma base de données excel.

En fait il faut remplacer:

Code:

NomFich = "C:\Documents and Settings\FABIEN.ARB114\Bureau\Demande de prix parquet\Fiches techniques\quorum.pdf"

par
nomfich = chemin ou se trouve le fichier excel + \fiches techniques\ + celulle au croisement de la colonne N et de la ligne que l'on a double cliqué
05/06/2008, 13h48
ouskel'n'or
3.

Citation:

désolé mais je comprend pas. Dans mon projet je n'ai pas de module

Eh bien ajoutes-en un. Il te servira à ouvrir ton userform
Dans VB-Editor -> Insertion -> Module.
Tu mets les déclarations en tête de module. Ensuite tu ajoutes la macro servant à activer l'userform
Code:

1 2 3 4 Sub ouvrirUSF() Load Userform1 Userform1.show End sub
Et si tu as un bouton dans ta feuille pour ouvrir l'userform, tu mets derrière l'événement Click du bouton
Code:

1 2 3 Private sub TonBouton_Click() OuvrirUSF End sub
Ainsi, toutes les déclarations seront prises en compte où que que ce soit, dans le code de l'usf ou non.
Je te réponds à 4. dans le post suivant pour ne pas tout mélanger.
05/06/2008, 13h50
ouskel'n'or

4. Pour connaître le répertoire du classeur contenant la macro qui en a besoin, c'est

Code:

Chemin = Thisworkbook.path

Sinon... tu dis

3.
En suivant ton code je n'ai plus de message d'erreur. :king: Voila le code de mon module.
Code:

1 2 3 4 5 6 7 8 9 10 'Déclaration en tête de module Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Sub ouvrirRecherche() Application.ScreenUpdating = False Load Recherche Recherche.Show End Sub
Mais par contre le shellexecute ne se lance pas (pas de message d'erreur). :?

4.
J'arrive à obtenir le chemin. :king: Maintenant je n'ai plus qu'as remplacer le "quorum.pdf" par une variable qui serait égal à la colonne "N" de ma ligne cliqué. Sauf que c'est une donnée qui n'est pas dans ma liste box.
Code:

1 2 3 4 Private Sub ListBoxParquet_DblClick(ByVal Cancel As MSForms.ReturnBoolean) NomFich = ThisWorkbook.Path & "\Fiches techniques\" & "quorum.pdf" ShellExecute 0, vbNullString, NomFich, vbNullString, vbNullString, 0 End Sub

05/06/2008, 14h40
ouskel'n'or

3. Je vais regarder ça. Sans doute un paramètre à modifier, un réro à remplacer ;)
4. Sauf que c'est une donnée qui n'est pas dans ma liste box.
Bref, donc... qu'y a-t-il dans ta listbox ? Un rapport entre la sélection et la ligne correspondante dans la feuille ?
Si oui, on a deux solutions
Tu dis
A+

4.
Dans ma liste box il y a cela:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
    For lgLigDeb = 2 To Range("A" & Cells.Rows.Count).End(xlUp).Row
 
        If Range("A" & lgLigDeb).Value Like Critere1 And Range("B" & lgLigDeb).Value Like Critere2 And Range("D" & lgLigDeb).Value Like Critere3 And _
            Range("E" & lgLigDeb).Value Like Critere4 And Range("F" & lgLigDeb).Value Like Critere5 And Range("G" & lgLigDeb).Value Like Critere6 And _
            Range("H" & lgLigDeb).Value Like Critere7 And Range("I" & lgLigDeb).Value Like Critere8 And Range("J" & lgLigDeb).Value Like Critere9 And _
            Range("M" & lgLigDeb).Value Like Critere10 Then
 
            i = i + 1
            j = 1
            ReDim Preserve Tableau(1 To 13, 1 To i)
 
            If RechercheC1.Value = "" Then
                Tableau(j, i) = Range("A" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC2.Value = "" Then
                Tableau(j, i) = Range("B" & lgLigDeb).Value
                j = j + 1
            End If
            Tableau(j, i) = Range("C" & lgLigDeb).Value
            j = j + 1
            If RechercheC3.Value = "" Then
                Tableau(j, i) = Range("D" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC4.Value = "" Then
                Tableau(j, i) = Range("E" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC5.Value = "" Then
                Tableau(j, i) = Range("F" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC6.Value = "" Then
                Tableau(j, i) = Range("G" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC7.Value = "" Then
                Tableau(j, i) = Range("H" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC8.Value = "" Then
                Tableau(j, i) = Range("I" & lgLigDeb).Value
                j = j + 1
            End If
            If RechercheC9.Value = "" Then
                Tableau(j, i) = Range("J" & lgLigDeb).Value
                j = j + 1
            End If
            Tableau(j, i) = Range("K" & lgLigDeb).Value
            j = j + 1
 
            If parametres.bouton_pv Then
                Tableau(j, i) = Range("L" & lgLigDeb).Value * Val(parametres.Coeff.Value)
            Else
                Tableau(j, i) = Range("L" & lgLigDeb).Value
            End If
        End If
    Next lgLigDeb
 
    ListBoxParquet.List() = Application.Transpose(Tableau)

La colonne contenant le nom du fichier pdf et la N. Je ne l'ai pas ajouté à ma liste box parce que c'est inutile que la personne voit le nom du fichier pdf.

05/06/2008, 15h22
ouskel'n'or

4. La colonne contenant le nom du fichier pdf et la N. Je ne l'ai pas ajouté à ma liste box parce que c'est inutile que la personne voit le nom du fichier pdf.
Ça, c'est ce qui ne fallait pas dire ! :mouarf:
Si tu mets 0 dans le width de la colonne, on ne la voit pas et ça simplifie le code.
Je pense que tu sais comment ajouter une 13ème colonne à ta listbox, et pour la largeur de colonne, tu mets

Code:

Listbox1.ColumnWidths = "Largeur;Largeur;etc;;;;;;;;;0"

Tu ne la verras pas et, avec BoundColumn = 13 tu peux récupérer l'item, donc le nom du pdf.
Je regarde pour 3.
A+

lol, pas bête.

J'arrive à afficher dans ma listbox la colonne N (fichier pdf) mais vu que mon nombre de colonne dépend du nombre de critère sélectionnés. (cf code de mon précédent message) il faut que j'arrive à mettre à 0 la largeur de la dernière colonne. C'est ma variable '"j" dans mon code. Peut on le faire avec ce code "ListBoxParquet.ColumnWidths"

A quoi sert BoundColumn?

La fonction :
Code:

1 2 3 4 5 6 Private Sub ListBoxParquet_DblClick(ByVal Cancel As MSForms.ReturnBoolean) NomFich = ThisWorkbook.Path & "\Fiches techniques\" & xxxxx ShellExecute 0, vbNullString, NomFich, vbNullString, vbNullString, 0 End Sub
doit etre capable de récupèrer cette information pour la mettre à la place des xxxxxx

5. A quoi sert BoundColumn?
A définir la colonne dont tu veux récupérer la sélection.
Teste ça (ici c'est un combo contenant au moins 6 colonnes dont la propriété BoundColumn par défaut est = 1 (dans la fenêtre des propriétés du contrôle en mode création)
Tu exécutes l'userform et tu sélectionnes dans le combo ou dans la liste.
En premier tu auras le texte sélectionné, en second ce qui se trouve dans la colonne 6 de la même ligne
Code:

1 2 3 MsgBox ComboBox1 ComboBox1.BoundColumn = 6 MsgBox ComboBox1
Pour répondre à ta question, c'est cette dernière valeur que tu mettras à la place des xxxxxx ... une fois que tu sauras dans quelle colonne tu la mets.
Une colonne de largeur nulle peut se mettre en première, seconde ou dernière position, bref, où ça t'arrange ;)

Edit
Tu peux parfaitement écrire
Code:

1 2 3 4 5 6 7 8 9 10 11 ComboBox1.BoundColumn = 6 Result = Combobox1 ComboBox1.BoundColumn = 5 Result2 = Combobox1 ComboBox1.BoundColumn = 4 Result3 = Combobox1 ComboBox1.BoundColumn = 3 Result4 = Combobox1 ComboBox1.BoundColumn = 2 Result5 = Combobox1 ETC....

Bonjour,

J'ai eu du mal à comprendre mais on faisant des test j'ai réussi

Voici le code que j'ai testé:
Code:

1 2 3 4 5 6 Private Sub ListBoxParquet_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ListBoxParquet.BoundColumn = 13 Nomfich = ListBoxParquet Nomfich = ThisWorkbook.Path & "\Fiches techniques\" & Nomfich ShellExecute 0, vbNullString, Nomfich, vbNullString, vbNullString, 0 End Sub
Donc ici je force la colonne 13. Je ne met aucun critère, ma colonne des fichier pdf est bien la 13. Quand je clique sur n'importe quel ligne le fichier pdf correspondant s'ouvre. :king:

Mais des que j'applique des critères de recherche mon nombre de colonne diminue donc le "13" n'est plus bon. C'est ma variable "j" de ma fonction "recherche". Pour que ça fonctionne il faut donc que je récupère la variable "j" de ma fonction "Rechercher" dans la fonction "ListBoxParquet_DblClick"

Citation:

Une colonne de largeur nulle peut se mettre en première, seconde ou dernière position, bref, où ça t'arrange

Sauf que mon nombre de colonne est variable (variable "j")

pour info le point 3. fonctionne. Le pdf s'ouvre bien.

10/06/2008, 12h30
ouskel'n'or

Citation:

Sauf que mon nombre de colonne est variable (variable "j")

Citation:

Une colonne de largeur nulle peut se mettre en première, seconde ou dernière position

Donc, mets-la en première position, non ? :roll:
10/06/2008, 13h34
fabien114

Citation:

Envoyé par ouskel'n'or

Donc, mets-la en première position, non ? :roll:

Si je met : Listbox1.ColumnWidths = "0;;;;;;;;;;;"

Ce sera ma 1ere colonne qui sera invisible! Et moi ce que je veux c'est la dernière en fonction de la variable "j"
10/06/2008, 14h02
ouskel'n'or

"0;100;100;100;100" permet d'avoir la liste complète sauf la première colonne.
Mais si c'est bien ce que tu sous-entendais, alors fixe la largeur des colonnes en fonction de leur existence dans la feuille, et utilise systématiquement le même nombre de colonnes et la dernière colonne pour tes pdf...
Faut bien que tu en sortes. Qu'est-ce qui t'empêche de charger ta liste en avec toutes les colonnes de ta feuille de calculs si tu mets une largeur 0 pour les vides ? Ça tu peux le tester...
10/06/2008, 14h13
casefayere
Bonjour,
Pour le remplacement du point par une virgule, on m'avais donné ça :
Code:

1 2 3 Private Sub SAISIEHT_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If VBA.Chr(KeyAscii) = "." Then KeyAscii = Asc(",") End Sub
dans mon cas saisieht est un textbox

peut être utile si je n'arrive pas trop tard

Citation:

Envoyé par ouskel'n'or

"0;100;100;100;100" permet d'avoir la liste complète sauf la première colonne.
Mais si c'est bien ce que tu sous-entendais, alors fixe la largeur des colonnes en fonction de leur existence dans la feuille, et utilise systématiquement le même nombre de colonnes et la dernière colonne pour tes pdf...
Faut bien que tu en sortes. Qu'est-ce qui t'empêche de charger ta liste en avec toutes les colonnes de ta feuille de calculs si tu mets une largeur 0 pour les vides ? Ça tu peux le tester...

J'ai fait ce ue tu m'as dit. Je rentre dans mon tableau toute les colonnes (je n'ai plus de variable "j"). L'ouverture du bon fichier pdf fonctionne très bien. Nickel :king:

Mais avec les largeur de mes colonnes pour les cacher je suis perdu :?. Voici le code de ma fonction:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
Private Sub Rechercher()
    ' Rechercher les données en fonction des critères
    Dim rCel As Range
    Dim lgLig As Long
    Dim lgLigDeb As Long
    Dim i As Integer
 
    Dim Critere1 As String
    Dim Critere2 As String
    Dim Critere3 As String
    Dim Critere4 As String
    Dim Critere5 As String
    Dim Critere6 As String
    Dim Critere7 As String
    Dim Critere8 As String
    Dim Critere9 As String
    Dim Critere10 As String
 
    Critere1 = "*"
    If RechercheC1.Value <> "" Then Critere1 = RechercheC1.Value
    Critere2 = "*"
    If RechercheC2.Value <> "" Then Critere2 = RechercheC2.Value
    Critere3 = "*"
    If RechercheC3.Value <> "" Then Critere3 = RechercheC3.Value
    Critere4 = "*"
    If RechercheC4.Value <> "" Then Critere4 = RechercheC4.Value
    Critere5 = "*"
    If RechercheC5.Value <> "" Then Critere5 = RechercheC5.Value
    Critere6 = "*"
    If RechercheC6.Value <> "" Then Critere6 = RechercheC6.Value
    Critere7 = "*"
    If RechercheC7.Value <> "" Then Critere7 = RechercheC7.Value
    Critere8 = "*"
    If RechercheC8.Value <> "" Then Critere8 = RechercheC8.Value
    Critere9 = "*"
    If RechercheC9.Value <> "" Then Critere9 = RechercheC9.Value
    Critere10 = "*"
    If RechercheC10.Value <> "" Then Critere10 = RechercheC10.Value
 
    ListBoxParquet.Clear
    ListBoxParquet.ColumnWidths = "100;100;100;100;100;100;100;100;100;100;100;100;0"
 
    Dim Tableau() As Variant
 
    ' Boucle de la 2me à la dernière ligne de la feuille
    For lgLigDeb = 2 To Range("A" & Cells.Rows.Count).End(xlUp).Row
 
        If Range("A" & lgLigDeb).Value Like Critere1 And Range("B" & lgLigDeb).Value Like Critere2 And Range("D" & lgLigDeb).Value Like Critere3 And _
            Range("E" & lgLigDeb).Value Like Critere4 And Range("F" & lgLigDeb).Value Like Critere5 And Range("G" & lgLigDeb).Value Like Critere6 And _
            Range("H" & lgLigDeb).Value Like Critere7 And Range("I" & lgLigDeb).Value Like Critere8 And Range("J" & lgLigDeb).Value Like Critere9 And _
            Range("M" & lgLigDeb).Value Like Critere10 Then
 
            i = i + 1
            ReDim Preserve Tableau(1 To 13, 1 To i)
 
            If RechercheC1.Value = "" Then
                Tableau(1, i) = Range("A" & lgLigDeb).Value
            Else
                ListBoxParquet.ColumnWidths = "0;;;;;;;;;;;;0"
            End If
            If RechercheC2.Value = "" Then
                Tableau(2, i) = Range("B" & lgLigDeb).Value
            Else
                ListBoxParquet.ColumnWidths = ";0;;;;;;;;;;;0"
            End If
            Tableau(3, i) = Range("C" & lgLigDeb).Value
            If RechercheC3.Value = "" Then
                Tableau(4, i) = Range("D" & lgLigDeb).Value
            Else
                ListBoxParquet.ColumnWidths = ";;;0;;;;;;;;;0"
            End If
            If RechercheC4.Value = "" Then
                Tableau(5, i) = Range("E" & lgLigDeb).Value
            Else
                ListBoxParquet.ColumnWidths = ";;;;0;;;;;;;;0"
            End If
            If RechercheC5.Value = "" Then
                Tableau(6, i) = Range("F" & lgLigDeb).Value
            Else
                ListBoxParquet.ColumnWidths = ";;;;;0;;;;;;;0"
            End If
            If RechercheC6.Value = "" Then
                Tableau(7, i) = Range("G" & lgLigDeb).Value
            Else
                ListBoxParquet.ColumnWidths = ";;;;;;0;;;;;;0"
            End If
            If RechercheC7.Value = "" Then
                Tableau(8, i) = Range("H" & lgLigDeb).Value
            Else
                ListBoxParquet.ColumnWidths = ";;;;;;;0;;;;;0"
            End If
            If RechercheC8.Value = "" Then
                Tableau(9, i) = Range("I" & lgLigDeb).Value
            Else
                ListBoxParquet.ColumnWidths = ";;;;;;;;0;;;;"
            End If
            If RechercheC9.Value = "" Then
                Tableau(10, i) = Range("J" & lgLigDeb).Value
            Else
                ListBoxParquet.ColumnWidths = ";;;;;;;;;0;;;"
            End If
            Tableau(11, i) = Range("K" & lgLigDeb).Value          
            If parametres.bouton_pv Then
                Tableau(12, i) = Range("L" & lgLigDeb).Value * Val(parametres.Coeff.Value)
            Else
                Tableau(12, i) = Range("L" & lgLigDeb).Value
            End If
            Tableau(13, i) = Range("N" & lgLigDeb).Value
        End If
    Next lgLigDeb
ListBoxParquet.List() = Application.Transpose(Tableau)
End Sub

Lorsque j'applique le 1er critère, la 1ere colonne disparait bien mais des que j'applique plus d'1 critères ca m'affiche des colonnes vides.

10/06/2008, 15h25
ouskel'n'or

Si tu ne mets pas de largeur à tes colonnes, la largeur est la largeur par défaut mise plus haut. Mais ça, tu l'as compris.

Vérifie que ces largeurs ne sont pas trop importantes.
Pour ma part, je fixerais à chaque fois la largeur pour chacune des colonnes à afficher.
Si ce n'est pas ça, alors c'est le remplissage de ta liste mais là faut que je plonge dans ton code.
Tu dis
A+

Je viens de vérifier mais 12 * 100 = 1200
Or sur un 19", 1200 dépasse la largeur de l'écran. Tu as un 24" ?
10/06/2008, 15h39
fabien114

Non, j'ai un 19". Mais je n'ai pas de problème de dimensions de fenêtre.

Je crois que je vais devoir revenir à un nombre de colonne variable parce qu'avec la largeur je ne m'y retrouve pas => j'ai essayé. Donc j'ai remise en place la variable "j". Si j'applique 2 critères je me retrouve avec 11 colonnes (à la place de 13). Je force la colonne pdf sur la colonne 13. Mes colonnes disparaissent bien, le lien pdf fonctionne. J'ai juste des colonnes "vides" entre la 11 et la 13 (pour deux critères). Je me retrouve donc avec une barre de défilement horizontal qui ne sert à rien.
10/06/2008, 16h56
ouskel'n'or

Citation:

J'ai juste des colonnes "vides" entre la 11 et la 13

Alors mets leurs largeurs à zéro, non ?
10/06/2008, 17h05
fabien114

Je n'ai pas réussi cela en mettant dans ma liste box toutes mes données alors je vais encore moins réussir avec un nombre de colonne variable.

Bon, je vois que tu as besoin d'une idée, c'est tout.
Tu penses bien que ne connaissant pas ton appli, je ne peux pas deviner certaines choses... Par exemple, ce que font tes tests. Voyons comment on pourrait simplifier et adapter :
Puisque tu testes 10 textbox ou combos (je ne sais pas) pourquoi ne pas créer un tableau de critères de 1 à 10 ?
Tu pourrais dans une boucle tester tous tes contrôles
Code:

1 2 3 4 For i = 1 to 10 Critere(i) = "" If me.controls("RechercheC" & i).value then Critere(i) = me.controls("RechercheC" & i).value Next
Maintenant, à la largeur de colonne
Largeur = array("100","100",100","100","100","100","100","100","100","100","100","100","0")

Maintenant, associons les deux :
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim Largeur as variant, Critere(10) as ??? Largeur = array("100","100",100","100","100","100","100","100","100","100","100","100","0") For i = 1 to 10 Critere(i) = "" If me.controls("RechercheC" & i).value <> "" then Critere(i) = me.controls("RechercheC" & i).value else Largeur(i) = "0" endif Next
Juste une idée. Mais ne connaissant pas ton appli, je ne peux que proposer ;)
Bonne soirée

Edit
J'ai juste oublié un bout (en espérant que tu sauras quoi mettre dans Largeur(11), largeur(12)... parce je n'ai pas vu de critère de 11 ni de 12...)
Code:

1 2 3 4 5 Dim ListWidth as string For i = 1 to 12 ListdWith = ListWidth & Largeur(i) & ";" next ListWidth = left(Listwidth, len(Listwidth)-1) 'supprime le dernier pt-virgule
Maintenant, tu n'as plus qu'à mettre

Code:

ListBoxParquet.ColumnWidths = Listwidth

Bonjour,

J'ai mis du temps à appliquer ton code mais j'ai finalement réussi. En effet, ça éclaircit le tout. Et j'ai aussi réussi grâce à tes bout de code à masquer les dernière colonnes lorsque je rentre des critères.
Code:

1 2 3 4 5 6 7 8 Largeur = Array("100", "100", "100", "100", "100", "100", "100", "100", "100", "100", "100", "100", 0) For i = 0 To 9 Critere(i) = "*" If Recherche.Controls("RechercheC" & i + 1).Value <> "" Then Critere(i) = Recherche.Controls("RechercheC" & i + 1).Value nbcritere = nbcritere + 1 End If Next
et à la fin de ma fonctiojn recherche:
Code:

1 2 3 4 5 6 7 8 For i = 0 To 11 - nbcritere ListWidth = ListWidth & Largeur(i) & ";" Next For i = j To 13 ListWidth = ListWidth & "0" & ";" 'masque les colonnes vides Next ListWidth = Left(ListWidth, Len(ListWidth) - 1) 'supprime le dernier pt-virgule ListBoxParquet.ColumnWidths = ListWidth
Merci pour cet précieuse aide :king::king:

J'ai encore une problématiques (mais qui n'empêche pas le fonctionnement du programme)

6.
J'en parlerais plus tard.

Encore merci ;)

24/06/2008, 14h21
fabien114

Bonjour,

Je revient sur mon programme. Ne serait-il pas plus simple d'utiliser la fonction autofilter? Je dit peut être des bêtises.

6.
Ma dernière problématique (je l'espère):

Je souhaite que des que l'on applique un filtre, automatiquement les éléments des autres filtres se recalculs en fonction des résultats du 1er filtre. etc.

Comme les filtres automatiques sous excel. Vous voyez ce que je souhaite?
15/09/2008, 14h02
fabien114

Citation:

Envoyé par fabien114

Bonjour,

Je revient sur mon programme. Ne serait-il pas plus simple d'utiliser la fonction autofilter? Je dit peut être des bêtises.

6.
Ma dernière problématique (je l'espère):

Je souhaite que des que l'on applique un filtre, automatiquement les éléments des autres filtres se recalculs en fonction des résultats du 1er filtre. etc.

Comme les filtres automatiques sous excel. Vous voyez ce que je souhaite?

Bonjour,

Je reviens à la charge après avoir "delaissé" le programme.

Mon application fonctionne très bien.
- Mes listes de critères de recherche sont sans doublon et classé par ordre alphabétique
- Les pdf s'ouvre
- L'impression fonctionne
- J'ai un nombre de colonne variable
- Je n'ai pas de colonne vide

Merci beaucoup ouskel'n'or :king::king:

Je n'ai plus qu'une petite problématique que je vais présenter dans un autre post.