Listwiev en panne

[Mapat]

Bonsoir le forum

Voici quelque temps et avec l'aide de Chti60, j'avais essayé d'élaborer un fichier concernant la collection de capsules de champagne.
Ce fichier est bien avancé mais il reste un bug et ne fonctionne donc pas correctement.
Plus d'explications dans le fichier excel pour ceux qui voudront bien me donner ce coup de main
Merci

http://cjoint.com/?AKxtbqwTe2R

 

[Bebere]

Re : Listwiev en panne

Mapat
si j'ai bien compris il faut inscrire 1 en colonne G pour changer le non de H en oui et inverse
ce n'est pas une textbox mais une combobox
mis okmodif true sort de la procédure si exécutée ou non

 Sub ComboBox3_Change()

 If okModif = True Then
If ComboBox3.ListIndex <> -1 Then
    If ComboBox3.ListIndex = 0 Then
       ComboBox3.BackColor = &HFFFF&
     Sheets("Feuil1").Range("G" & Me.LstB_Capsules.List(Me.LstB_Capsules.ListIndex, 1) + 60) = 1 '
    Else
      ComboBox3.BackColor = &HFFFFFF
       Sheets("Feuil1").Range("G" & Me.LstB_Capsules.List(Me.LstB_Capsules.ListIndex, 1) + 60) = ""
      ComboBox3.ListIndex = 1
    End If
End If
End If

End Sub

 

[Mapat]

Re : Listwiev en panne

Re- bonsoir le forum , Bebere, Fo_rum

Effectivement, maintenant ça fonctionne bien
Un grand merci à vous deux. Ça n'est pas si évident que d'expliquer clairement ce que l'on voudrais.
Alors merci aussi pour votre patience.
Bonne soirée

 

[Mapat]

Re : Listwiev en panne

Bonjour,


Le fichier recopié sur ma base fonctionne normalement avec un petit bémol
Dans la listbox s'affichent 2 colonnes.
La 2ème ne m'est d'aucun intérêt. Serait-il possible d'avoir les données de la colonne
C en lieu et place de celle-ci.
Après ce dernier coup de main je crois que tout sera en ordre
Merci et bonne soirée

 

[Mapat]

Re : Listwiev en panne

Bonjour

Je fais remonter le fil qui est peut-être passé un peu au travers
Bonne journée à tous

 

[CHALET53]

Re : Listwiev en panne

bonjour,

Remplace la procédure actuelle : Private Sub ComboBox1_CLick()

par

Private Sub ComboBox1_CLick()
Dim k As Long

Me.LstB_Capsules.Clear
Couleur = ""

ComboBox3.ListIndex = -1
ComboBox3.BackColor = &HFFFFFF
'
j = 0

For k = 1 To UBound(tablo)
If UCase(tablo(k, 1)) = UCase(ComboBox1) Then

With Me.LstB_Capsules
.AddItem
.List(j, 0) = tablo(k, 2) 'abreviation
.List(j, 1) = tablo(k, 3)
'.List(.ListCount - 1, 1) = k
j = j + 1
End With
End If
Next

End Sub


a+

 

[Mapat]

Re : Listwiev en panne

Bonjour chalet53

Merci de ta réponse mais il plante avec une réponse
"Erreur de compilation Valeur non définie"
à la hauteur de j = 0
Merci

 

[CHALET53]

Re : Listwiev en panne

rajoute tout en haut (avec les autres) derrière option explicit par exemple

dim j as byte

 

[Mapat]

Re : Listwiev en panne

Re
Effectivement l'affichage est comme je voudrais qu'il soit
Par contre l'affichage des photos ne correspond plus du tout

 

[CHALET53]

Re : Listwiev en panne

Re,
Je suis parti du dernier fichier présent sur ce fil.
De quelles photos s'agit-il ?

Lorsque je teste ce fichier avant la modification, je ne vois rien bouger sur le userform au changement de nom dans la combobox

 

[Mapat]

Re : Listwiev en panne

Bonjour

Ci-dessous le lien avec les photos.
Avec cette nouvelle modif, les photos ne sont pas les bonnes
Bonne journée à tous

http://cjoint.com/?3LemlRi7USd

 

[CHALET53]

Re : Listwiev en panne

bonjour
fais les 2 modifs suivantes : Dans la procédure combobox1_click la ligne en gras

Private Sub ComboBox1_CLick()
Dim k As Long

Me.LstB_Capsules.Clear
Couleur = ""

ComboBox3.ListIndex = -1
ComboBox3.BackColor = &HFFFFFF
'
j = 0

For k = 1 To UBound(tablo)
If UCase(tablo(k, 1)) = UCase(ComboBox1) Then

With Me.LstB_Capsules
.AddItem
.List(j, 0) = tablo(k, 2) 'abreviation
.List(j, 1) = tablo(k, 3)
.List(j, 2) = k
j = j + 1
End With
End If
Next

End Sub

et Modifie dans la procédure suivante le 1 par 2:

Private Sub LstB_Capsules_Click()
Dim L As Long
okModif = False
' Stop
With Me
L = .LstB_Capsules.List(.LstB_Capsules.ListIndex, 2)
Me.Label13.Caption = "Ligne feuille " & L + 60
.Numero = tablo(L, 3) ' numéro de capsule
.Couleur = tablo(L, 4) 'couleur
.Description = tablo(L, 5) 'description
.Cote = tablo(L, 6)
.ComboBox3 = tablo(L, 8) 'j'ai
.ComboBox3.BackColor = IIf(.ComboBox3.ListIndex = 0, &HFFFF&, &HFFFFFF)
.DetailSup = tablo(L, 13) 'detail sup
.Autredetail = tablo(L, 14) 'detail autre

With Image1
.Picture = LoadPicture(ThisWorkbook.Path & "\" & tablo(L, 2) & ".jpg") 'nom de l'image
.PictureAlignment = fmPictureAlignmentCenter ' centrage de l'image dans le contrôle
.PictureSizeMode = fmPictureSizeModeZoom ' mise à l'echelle de l'image dans le contrôle
End With

End With
okModif = True
End Sub

 

[Mapat]

Re : Listwiev en panne

Re

Les photos demandées sont les bonnes, mais on retombe dans le même cas que
la procédure proposée par Bebere ci dessus, c'est à dire:
Ex :en validant dans le combobox 3 par "oui" la n° 3 Agra, c'est la n° 3 Aaa qui est prise en compte
Idem pour tous las autres noms
Seul Aaa fonctionne correctement
Merci de cette aide si gentiment apportée

 

[CHALET53]

Re : Listwiev en panne

Je ne maîtrise pas ton appli, mais ne faudrait-il pas également remplacer le 1 que tu dois avoir dans ta procédure par un 2

Sub ComboBox3_Change()

If okModif = True Then
If ComboBox3.ListIndex <> -1 Then
If ComboBox3.ListIndex = 0 Then
ComboBox3.BackColor = &HFFFF&
Sheets("Feuil1").Range("G" & Me.LstB_Capsules.List(Me.LstB_Capsules.ListIndex, 2) + 60) = 1 '
Else
ComboBox3.BackColor = &HFFFFFF
Sheets("Feuil1").Range("G" & Me.LstB_Capsules.List(Me.LstB_Capsules.ListIndex, 2) + 60) = ""
ComboBox3.ListIndex = 1
End If
End If
End If

End Sub

 

[Mapat]

Re : Listwiev en panne

Re

Oui c'est exactement cela
Tout fonctionne comme je l’espérais
Un grand merci à toi d'avoir été si patient ainsi qu'à bebere et Fo-rum pour leur apport
Bien cordialement