Discussion :

[Attila54]

Bonjour,
J'arrive parfaitement a loader une valeur contenue dans une cellule excel dans une textbox d'un form en faisant par exemple :

Code :

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

1
2
 rng = CType(Me.xlWorkSheetOne.Cells(10, 4), Microsoft.Office.Interop.Excel.Range)
            Me.le_nom_de_ma_textbox.Text = CType(rng.Value, String)

par contre, impossible quand ce n'est plus une textbox, mais une combobox qui s'appelle par exemple ma_combobox

Existe t'il une syntaxe particuliere au cas précis tout en evitant les doublons eventuels avec des valeurs deja exostantes ?????. Je precise que si je veux remplir ma combobox a la main, j'entre la valeur et je valide par appui sur enter

Merci

[Gurdil le nain]

Pour ajouter une valeur à ta combobox, il faut faire :

Code :

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

taCombo.Items.Add(taValeur)

[asmduty]

Bonjour,

pour une combobox, il faut faire :

Code :

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

1
2
3
if not ma_combobox.items.contains(ton_element) then
    ma_combobox.items.add(ton_element)
end if

Penser à mettre la combobox en DropDownList si on ne veut pas que l'utilisateur puisse modifier le texte.

[Attila54]

daccord, merci bien pour la syntaxe mais je me pose la question suivante :
ici, "ton_element" représente le contenu de la cellule (B:5) de mon fichier excel par exemple.
le If .... not contains va scruter les elements enregistrés dans ma combobox pour eviter les doublons ?

[asmduty]

Oui, dans le cas présent tu stockes de simples "Strings", tu peux donc faire comme ça.

[Attila54]

arghhhh j'ai fait

Code :

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

1
2
3
 rng = CType(Me.xlWorkSheetOne.Cells(10, 3), Microsoft.Office.Interop.Excel.Range)
            If Not txtDocteur.Items.Contains(Me.xlWorkSheetOne.Cells(10, 3)) Then
                txtDocteur.Items.Add(Me.xlWorkSheetOne.Cells(10, 3))

pour afficher et enregistrer le contenu de la cellule 10,3 de ma feuille excel ..... rien de s'affiche directement dans la combobox, par contre il me stocke SYSTEM._COMOBJECT

[Gurdil le nain]

Tu as oublié les .Value sur tes Cells(i,j)...