Listwiev en panne

B

Bebere

XLDnaute Barbatruc

• 29 Novembre 2011

• #16

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

Code:

 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

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 29 Novembre 2011

• #17

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

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 30 Novembre 2011

• #18

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

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 3 Décembre 2011

• #19

Re : Listwiev en panne

Bonjour

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 3 Décembre 2011

• #20

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+

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 3 Décembre 2011

• #21

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 3 Décembre 2011

• #22

Re : Listwiev en panne

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

dim j as byte

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 3 Décembre 2011

• #23

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 3 Décembre 2011

• #24

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

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 4 Décembre 2011

• #25

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 4 Décembre 2011

• #26

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

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 4 Décembre 2011

• #27

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 4 Décembre 2011

• #28

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

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 4 Décembre 2011

• #29

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

 

Vote positif 0 Vote négatif