Discussion :

[nejmhajer]

boonsoir,
j'ai un tableau présenté comme indiqué ci-dessous

la colonne est modifiable lors de la saisie à la cellule I3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Private Sub UserForm_Initialize()
 
cbop1.RowSource = "listnumber"
Me.cbop1.DropDown
 
 
Feuil1.Range("I3").Value = ""
 
 
End Sub
 
 
Private Sub cbop1_Change()
 
Feuil1.Range("I3").Value = Me.cbop1.Value
Me.txt1 = Feuil1.Range("J3").Value
 
End Sub

en cliquant sur la valeur de la combobox, I3=""
où se présente le problème?

[John Mc Evee]

Bonsoir,

Peux-tu être un peu plus précis dans tes explications. Que souhaite tu obtenir comme résultat en fonction de quelle manipulation ?

De mon côté j'ai compris que quand tu modifies ta combobox ta cellule I3 doit se modifier en conséquence, est-ce cela ?

J'en connais certain sur le forum , qui dirait une bonne explication du problème, la solution à moitié trouvée!

A+

[nejmhajer]

Peut être ma pièce jointe répond mieux à mon question

[John Mc Evee]

Salut,

J'ai regarder ton fichier et j’avoue que je ne comprend pas toujours quel est le problème.

Néanmoins, j'ai remarqué que certaine fois ta liste ne se chargeait pas bien. Il garde la restriction de la précédente recherche.

Pour cela, il faut inversé tes lignes de code lors de l’initialisation pour que tes formules s'actualisent avant de charger la Combobox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Feuil1.Range("I3").Value = ""
 
cbop1.RowSource = "listnumber"
Me.cbop1.DropDown
cbop1.ListIndex = -1
 
End Sub

En espérant avoir répondu à ta question.

A+

[nejmhajer]

merci de m'avoir répondu

la colonne G est une colonne dynamique alimenté par une formule

=Feuil1!$C$3:$G$60$G$4:INDEX(Feuil1!$G$4:$G$60;MAX(Feuil1!$F$4:$F$60);1)

la combobox du code thème est notre cible.
cependant,en cliquant sur un thème rien ne s'affiche ni à lacombobox ni à la cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Feuil1.Range("I3").Value = ""

de même si on choisi manuellement le code thème


et on a cliqué sur lacolonne vide de liste combobox il ya affichage du code



Où se pose donc le problème?

[BENNASR]

Bonsoir et bonne année 2019
La demande n'est pas du tout claire ce qui réduit les chances d'aboutir à une solution
Aussi il y a une nuance quant au but de ton travail...c'est pas pratique d'ajouter un combobox pour chaque ligne ???
Peut être une listbox peut remplacer tous ces combobox
Pour remplir ton textbox "txt1" au changement du cbop1 tu peux faire avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cbop1_Change()
'Feuil1.Range("I3").Value = Me.cbop1.Value
'Me.txt1 = Feuil1.Range("J3").Value
Dim plage As Range
Set plage = Sheets("Feuil1").Range("C4:C" & [C65536].End(xlUp).Row)
codrecherché = cbop1.Value
For Each cell In plage
 If cell.Value = codrecherché Then
    txt1.Value = Cells(cell.Row, 4)
 End If
    Next cell
End Sub

si c'est pas ce que tu cherches revenir avec ample explication du problème rencontré