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)...

[Attila54]

comment ca j'ai oublié les .value gurdil ????? si je les mets, j'ai trop d'arguments ...

[Gurdil le nain]

Cela ne fonctionne pas :

Code :

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

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

??

[Attila54]

ben non ici

Code :

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

Me.xlWorkSheetOne.Cells(10, 3).Value

j'ai option strict on rejette toute liaison tardive

[Gurdil le nain]

Euh oui en effet, je me suis trompé dans mon code :

Code :

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

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

[Attila54]

Alors ca fonctionne effectivement dans la mesure ou la valeur entree se retrouve bien dans les enregistrements de la combobox, MAIS ;;; (y a toujours un mais j'ai l'impression en dev ....) elle ne s'affiche pas dans la fenetre du combobox
concrètement si je clique sur le menu déroulant du combobox, j'ai bien la nouvelle valeur entrée et je peux l'afficher en cliquant dessus, mais cette même valeur ne s'affiche pas quand je loade les valeurs depuis la feuille excel

[Gurdil le nain]

J'ai rien pigé...

[asmduty]

ça serait bien d'xpliquer un peu mieux, on n'a pas ton projet sous les yeux, on n'est pas dans ta tête pour savoir de quoi tu nous parles au fin fond de ton bureau ...

[Attila54]

Je vais expliquer avec image pour être plus compréhensible
J'ai ma feuille excel qui contient entre autre une cellule.
J'ai mon formulaire qui contient une combobox appelée customer (on y entrera la valeur "H"



Je clique sur le bouton juste en dessous pour charger la feuille excel de mon choix



on voit entre autre que la textbox appelée MAX s'est chargée
on ne voit rien d'affiché dans la combobox, maintenant, si je clique sur le menu déroulant, la valeur "H" s'est bien ajoutée.



Je peux effectivement l'afficher en cliquant dessus et ce que j'essaye de faire, c'est que la valeur "H" s'affiche quand je charge la feuille excel, tout comme pour la textbox MAX

Autrement dit, j'aimerais que la figure 2 soit en fait :



J'espère que j'ai été plus explicite

[asmduty]

combobox.selecteditem ou combobox.selectedindex
Il serait bien, encore une fois, de chercher un peu...

[Attila54]

j'avais essaye le selectedItem en faisant mon_combobox.selectedItem mais j'ai un retour d'erreur

un acces a la propriete doit assigner la propriete ou utiliser sa valeur

sur msdn, ils me disent de changer d'operateur d'assignation

[asmduty]

...
UN PEU DE RECHERCHE :

Code :

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

1
2
3
combobox.selecteditem = mavaleurquejeveuxselectionner
ou
combobox.selectedindex = l_indexdemavaleurquejeveuxselectionner

[Attila54]

cela fonctionne maintenant et merci beaucoup
je vais essayer de faire la même chose a savoir afficher la valeur contenue dans la cellule excel MEME si elle est deja existante dans le combobox

Code :

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

1
2
3
4
5
6
7
rng = CType(Me.xlWorkSheetOne.Cells(10, 3), Microsoft.Office.Interop.Excel.Range)
            If Not moncombobox.Items.Contains(rng.Value) Then
                moncombobox.Items.Add(rng.Value)
                moncombobox.SelectedItem = (rng.Value)
            Else
                moncombobox.SelectedItem = (rng.Value)
            End If

cela a l'air de fonctionner mais la syntaxe me dérange toutefois

[asmduty]

Comme on a affaire à des strings ça fonctionne très bien.
ça serait des objets ça serait différents mais on ne va pas s'embêter à se compliquer la vie et à s'y perdre pour rien ...

On peut juste simplifier en mettant

Code :

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

moncombobox.SelectedItem = (rng.Value)

après le IF plutôt que dans le IF et le ELSE, vu que l'on fait cette action quoi qu'il arrive.