Combobox et labels

[poussy67]

Bonjours le forum

Voila j’ai un petit problème de recherche avec un combobox. J’ai un tableau don le combobox qui réagi en ligne et non en colonne, j’ai des labels qui sont sensés de me remonter les données figurant dans 2 colonnes. Comment faire je plante depuis plusieurs jours sur ce problème.

Je vous remercie d'avance du coup de pouce que vous pouvez m'apporter

cdt Poussy

Ci joint un exemple

 

[youky(BJ)]

Re : Combobox et labels

Bonjour poussy67,
Je te laisse écrire les qlq lignes manquantes en macro.....
c'est facile à faire mais si tu as trop de label il faudrait faire
une boucle et partir avec le label1 plutot que label21

 

[poussy67]

Re : Combobox et labels

Merci beaucoup pour ton aide youky(BJ)

Cela fonctionne impec. Je vais essayer de suivre ton conseille de boucle. Je vais fouiller dans le forum pour trouver comment cela fonctionne pour faire des boucles avec plusieurs labels. Encore merci

cdt poussy

 

[Minick]

Re : Combobox et labels

Salut,

Une autre approche.
Renomme les controls Label comme je l'ai fais.
Pour S1 CP je l'ai nommé LbS1CP
pour S1 RTT LbS1RTT
pour S2 CP LbS2CP
pour S2 RTT LbS2RTT
etc...

Ca simplifie un peu la suite( voir le code)
J'ai mi un control d'erreur car je n'ai pas ajoute tous les labels
mais tu pourras l'enlever si le nombre est fige.

++
Minick

 

[poussy67]

Re : Combobox et labels

salut Minick

Comment dirait mon fils trop fort, je te merci beaucoup pour ton aide
vous êtes vraiment fort les gas, si seulement je pouvais atteindre vos niveau.


Mille merci pour vos aides

cdt poussy

 

[poussy67]

Re : Combobox et labels

Re salut

Je rencontre un problème "d'erreur de compilation variable non définie". Quand je renomme la feuil1 en Récap. Dans la VBA pareil le remplace Feuil1 par Récap.

Dim Cpt As Integer
Dim Rech As Variant
Dim colMon As Byte, CptData As Byte
Dim ColData() As Variant

Set Rech = Récap.Rows(5).Find(What:=Me.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)

If Not Rech Is Nothing Then
colMon = Rech.Column
Set Rech = Nothing
End If

ColData = Array("CP", "RTT")
For Cpt = 7 To Récap.Range("A65536").End(xlUp).Row
For CptData = 0 To UBound(ColData)
On Error Resume Next
With Me.Controls("Lb" & Récap.Range("A" & Cpt).Value & ColData(CptData))
If colMon = 0 Then
.Caption = ""
Else
.Caption = Récap.Cells(Cpt, colMon + CptData).Text
End If
End With
On Error GoTo 0
Next CptData
Next Cpt


cdt poussy

 

[phlaurent55]

Re : Combobox et labels

Bonjour à tous,

@ poussy,
es-tu certain d'avoir orthographié le mot "Récap" de la même manière ( nom de la feuille ) et dans la macro.
J'ai résolu sur un autre fil un problème similaire; le nom de la feuille était écrit avec un accent et sans accent dans la macro

bonne journée
.

 

[poussy67]

Re : Combobox et labels

Bonjours à tous


Oui j'ai bien orthographié Récap dans la VBA comme sur la feuille phlaurent55, j'ai essayé plusieurs choses pas moyen


ci joint un exemple

Cdt poussy

 

[Fo_rum]

Re : Combobox et labels

Salut,

j'aurais écrit Sheets("Récap") plutôt que Récap dans le code ou tout simplement gardé Feuil1 !

 

[poussy67]

Re : Combobox et labels

Merci pour ton coup de pouce c'était ça le prob. j'ai omit Sheets("Récap")

encore merci pour ton aide

ci joint le bon fichier