Préaffichage de valeur dans un combobox lors de l'initialisation

[dionys0s]

Bonjour le forum

j'ai une problématique à vous soumettre.

J'ai un userform contenant des combobox qui s'initialise comme suit :

Private Sub UserForm_Initialize()

Dim Service
Service = Sheets("Variables").Range("B4")
Dim ColonneService As Integer
ColonneService = Sheets("Services").Rows("1:1").Find(What:=Service, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Column
Dim DerLignService
DerLignService = Sheets("Services").Cells(65536, ColonneService).End(xlUp).Row
Dim a
For a = 4 To DerLignService
ComboBox1.AddItem Sheets("Services").Cells(a, ColonneService)
Next
Dim DerLignSAF As Integer
DerLignSAF = Sheets("Sociétés").Range("A65536").End(xlUp).Row
Dim b
For b = 2 To DerLignSAF
ComboBox2.AddItem Sheets("Sociétés").Cells(b, 1)
Next
Dim DerLignProjOpé As Integer
DerLignProjOpé = Sheets("Analytique").Range("A65536").End(xlUp).Row
Dim c
For c = 2 To DerLignProjOpé
ComboBox3.AddItem Sheets("Analytique").Cells(c, 1)
Next
Dim DerLignFournisseur As Integer
DerLignFournisseur = Sheets("Fournisseurs").Range("B65536").End(xlUp).Row
Dim d
For d = 1 To DerLignFournisseur
ComboBox4.AddItem Sheets("Fournisseurs").Cells(d, 2)
Next

End Sub

Si ce userform s'ouvre c'est pour modifier des valeurs dans des cellules cibles. Ces valeurs sont forcément comprises dans les listes déroulantes des combobox paramétrés juste au dessus, et les cellules cibles ne peuvent pas être vides.
Ma question est : est-il possible que les valeurs présentes dans les cellules cibles soient visibles dans les différents combobox à l'ouverture du userform ?
J'essayé avec la propriété .text mais ça ne marche pas. Si vous avez une idée c'est youpi 🙂

D'avance merci pour votre aide

 

[dionys0s]

Re : Préaffichage de valeur dans un combobox lors de l'initialisation

En fait je pense que je devrais m'en sortir avec listindex.