Message d'erreur sur un code formulaire

Version imprimable

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

21/08/2013, 15h12
apdf1

1 pièce(s) jointe(s)

Message d'erreur sur un code formulaire

Bonjour

J'ai un petit souci avec un formulaire que j'ai trouvé sur un site et j'aimerai lui apporter une modification.
J'ai rajouter au code 4 textbox et j'ai toujours un message d'erreur.

Citation:

"Impossible de définir la propriété List.

Valeur de propriété non valide"
Si quelqu'un pourrai me donner la solution sa serai sympa;

Je vous remercie d'avance

Cordialement

Max
21/08/2013, 16h01
parmi

Le problème vient du fait que tu utilises plus de colonnes qu'une Listbox peut prendre. Le maximum est 10 (Index 0 à 9)

Tu pourrais toujours regarder du côté du contrôle ListView, mais ça se travaille différemment...
21/08/2013, 16h08
apdf1

Bonjour Parmi

Je te remercie de ton invention
Y a t-il pas une solution sans passer par le contrôle ListView.

Je te remercie et te souhaite une bonne après midi

@+
Max

Suite à l'observation de parmi, tu peux (peut-être) rassembler des cellules, quitte à revoir ton traitement après avec un split (au cas où)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
...
        With Me.ListBox1
            .List(.ListCount - 1, 1) = Sheets("Feuil1").Cells(nl, 2)
            .List(.ListCount - 1, 2) = Sheets("Feuil1").Cells(nl, 3)
            .List(.ListCount - 1, 3) = Sheets("Feuil1").Cells(nl, 4)
            .List(.ListCount - 1, 4) = Sheets("Feuil1").Cells(nl, 5) & " " & Sheets("Feuil1").Cells(nl, 6)
            .List(.ListCount - 1, 5) = Sheets("Feuil1").Cells(nl, 7) & " " & Sheets("Feuil1").Cells(nl, 8)
            .List(.ListCount - 1, 6) = Sheets("Feuil1").Cells(nl, 9) & " " & Sheets("Feuil1").Cells(nl, 10)
            .List(.ListCount - 1, 7) = Sheets("Feuil1").Cells(nl, 11) & " " & Sheets("Feuil1").Cells(nl, 12)
            .List(.ListCount - 1, 8) = Sheets("Feuil1").Cells(nl, 13)
            .List(.ListCount - 1, 9) = nl
        End With
...

PS : penses à remettre le bon nombre de colonnes dans ta listbox

21/08/2013, 16h45
parmi

Ou encore utiliser 2 listbox, côte-à-côte, mais ce n'est pas simple à gérer...
21/08/2013, 16h47
apdf1

Bonjour casefayere,

Je te remercie mais j'ai toujours un petit problème de message.

Citation:

Impossible de lire la propriété Column. Argument non valide

Je te remercie

@+

Max
21/08/2013, 16h48
parmi

As-tu ajusté le ColumnsCount dans ton code ou dans les propriétés de la Listbox ?

Re,

Oui

Code:

1
2
3
4
For x = 0 To 11
 
    Me.Controls("TextBox" & x + 1).Value = Me.ListBox1.Column(x, Me.ListBox1.ListIndex)
Next x

@+
Max

21/08/2013, 17h12
casefayere

On parlait des propriétés de la listbox, voir ci-dessous
21/08/2013, 17h22
apdf1

Re Dom

Alors déjà sa plante pas. mais le souci j'ai deux valeur de colonne par textbox
a partir de la 5éme TextBox

@+

Max
21/08/2013, 17h24
casefayere

Souviens-toi, j'ai écris :

Citation:

... quitte à revoir ton traitement après avec un split (au cas où)

à adapter
21/08/2013, 17h27
apdf1

Oui

cela est vrai mais je ne suis pas capable de modifier tous le code ?

@+

Veux-tu essayer ce fichier dont j'ai changé légèrement ces codes :
Dans ce premier code, j'ai changé le séparateur " " par "|" car tu aurais eu un problème en utilisant Split dans le 2ème code, l'espace étant le séparateur par défaut, or dans tes cellules plusieurs textes comportent des espaces.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ComboBox1_Change()
Me.ListBox1.Clear
For Each cel In pl
    If CStr(cel.Value) = CStr(Me.ComboBox1.Value) Then
        nl = cel.Row
        Me.ListBox1.AddItem Sheets("Feuil1").Cells(nl, 1)
        With Me.ListBox1
            .List(.ListCount - 1, 1) = Sheets("Feuil1").Cells(nl, 2) & "|" & Sheets("Feuil1").Cells(nl, 3)
            .List(.ListCount - 1, 2) = Sheets("Feuil1").Cells(nl, 4) & "|" & Sheets("Feuil1").Cells(nl, 5)
            .List(.ListCount - 1, 3) = Sheets("Feuil1").Cells(nl, 6) & "|" & Sheets("Feuil1").Cells(nl, 7)
            .List(.ListCount - 1, 4) = Sheets("Feuil1").Cells(nl, 8) & "|" & Sheets("Feuil1").Cells(nl, 9)
            .List(.ListCount - 1, 5) = Sheets("Feuil1").Cells(nl, 10) & "|" & Sheets("Feuil1").Cells(nl, 11)
            .List(.ListCount - 1, 6) = Sheets("Feuil1").Cells(nl, 12)
            .List(.ListCount - 1, 7) = nl
        End With
    End If
Next cel
If Me.ListBox1.ListCount = 1 Then Me.ListBox1.ListIndex = 0
End Sub

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
Private Sub listbox1_Click()
Dim Chemin As String
Dim ChSplit, y As Integer
 
' ****************************************************
' Indiques exactement le répertoire de tes images
' ****************************************************
Chemin = "C:\Users\Max\Desktop\Dosier_animal\Photos_Chien\"
Me.Controls("TextBox1").Value = Me.ListBox1.Column(0, Me.ListBox1.ListIndex)
y = 1
For x = 1 To 10 Step 2
  ChSplit = Split(Me.ListBox1.Column(y, Me.ListBox1.ListIndex), "|")'voila le séparateur
  Me.Controls("TextBox" & x + 1).Value = ChSplit(0)
  Me.Controls("TextBox" & x + 2).Value = ChSplit(1)
  y = y + 1
Next x
Me.Controls("TextBox12").Value = Me.ListBox1.Column(6, Me.ListBox1.ListIndex)
Me.Label14.Picture = LoadPicture(Chemin & Me.ListBox1 & ".jpg")
nl = Me.ListBox1.Column(7, Me.ListBox1.ListIndex)
With Me.TextBox1
    .SetFocus
    .SelStart = 0
    .SelLength = Len(.Value)
End With
End Sub

PS : J'ai remarqué que tu possèdes un lien sur ton fichier (en M1), qu'à ta place, j'aurais enlevé s'il ne sert à rien car tu risques de heurter des sensibilités

Même si je viens de t'envoyer une proposition, après réflexion, je me demande s'il était bien utile de mettre toutes ces colonnes dans ta listbox, alors que tu peux voir les mêmes renseignements dans tes textbox. Il serait facile d'adapter le fichier, à toi de voir......

21/08/2013, 20h21
apdf1

Re Dom

Je te remercie, oui tu as raison sur ce point

Citation:

je me demande s'il était bien utile de mettre toutes ces colonnes dans ta listbox, alors que tu peux voir les mêmes renseignements dans tes textbox. Il serait facile d'adapter le fichier

A partir du moment que j'ai les même renseignements dans les textbox sa me convient très bien.

Je te remercie pour le temps passer et te souhaite une bonne soirée

Max
21/08/2013, 20h25
casefayere

J'ai oublié de réactiver ta ligne

Code:

Me.Label14.Picture = LoadPicture(Chemin & Me.ListBox1 & ".jpg")

dans le dernier exemple

si celui-ci te convient, n'oublies pas de cliquer sur :resolu:

Bonne soirée

1 pièce(s) jointe(s)

Bonjour Dom

Je te remercie pour la ligne d'activation.

Le fichier que tu as fait me convient très bien, mais juste une petite modif, après avoir essayer je me suis aperçu que:
Si je n'est pas l'image correspondant dans mon fichier j'ai un message me rappelant
"Fichier ......Introuvable", et il reste la dernière image afficher, alors j'ai essayer de lui mettre une ligne de commande pour avoir un logo a la place.
Cette ligne est:

Code:

On Error Resume Next: Me.Label14.Picture = LoadPicture(ActiveWorkbook.Path & "\Photos_Chien\" & "vide")

et je les mise ici:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Chemin = ThisWorkbook.Path & "\Photos_Chien\" For x = 0 To 11 Me.Controls("TextBox" & x + 1).Value = Me.ListBox1.Column(x, Me.ListBox1.ListIndex) Next x ' If Dir(Chemin & Me.ListBox1 & ".jpg") <> "" Then Me.Label14.Picture = LoadPicture(Chemin & Me.ListBox1 & ".jpg") Else On Error Resume Next: Me.Label14.Picture = LoadPicture(ActiveWorkbook.Path & "\Photos_Chien\" & "vide") MsgBox "Fichier " & Me.ListBox1 & " introuvable" End If nl = Me.ListBox1.Column(12, Me.ListBox1.ListIndex)
Mais sa ne fonctionne pas, j'ai du me tromper, si tu pouvais regarder sa me rendrez service.
Je joint mon logo se nommant "Vide"
Je te remercie de ton aide et te souhaite une bonne journée

Max

Bonjour Max, re le forum,
Essaies ce code que je ne peux vérifier (pas d'image chez moi)

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
Private Sub listbox1_Click()
Dim Chemin As String, Dl As Integer
 
' ****************************************************
' Indiques exactement le répertoire de tes images
' ****************************************************
Chemin = "C:\Users\Max\Desktop\Dosier_animal\Photos_Chien\"
 
With Sheets("Feuil1")
  Dl = .Range("A" & .Rows.Count).End(xlUp).Row
  nl = .Range("A2:A" & Dl).Find(ListBox1).Row
  For x = 1 To 12
    Me.Controls("TextBox" & x).Value = .Cells(nl, x)
  Next x
End With
On Error Resume Next
Me.Label14.Picture = LoadPicture(Chemin & Me.ListBox1 & ".jpg")
If Err <> 0 Then
  MsgBox "pas d'image disponible pour cet animal"
  Me.Label14.Picture = Empty
End If
on error goto 0
With Me.TextBox1
    .SetFocus
    .SelStart = 0
    .SelLength = Len(.Value)
End With
End Sub

Mais après essai, j'ai remarqué un autre bug, quand on choisit par race, il va faloir contourner le problème

22/08/2013, 09h22
apdf1

Bonjour Dom

Non sa n'a rien changer, le but et que lorsque je n'est pas l'image approprier, a la place de l'image il s'affiche le "logo"
@+

Max

Enregistres le logo (vide.jpg) dans le même dossier que tes photos et adaptes :
Code:

1 2 3 4 5 6 7 8 ... If Err <> 0 Then MsgBox "pas d'image disponible pour cet animal" On Error GoTo 0 Me.Label14.Picture = LoadPicture(Chemin & "vide.jpg") End If ...

22/08/2013, 09h39
apdf1

Re,

Oui la sa fonctionne bien j'ai le logo qui se m'est a la place de l'image si celle ci n'est pas dans le dossier.
Sur avant dernier post u ma dit ceci:

Citation:

Mais après essai, j'ai remarqué un autre bug, quand on choisit par race, il va falloir contourner le problème

A tu trouver la solution ?

@+

Max

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