Valeur par défault variable, Combobox, VBA. Fermé

Question

Bonjour à tous,

J'ai un petit soucis avec ma combobox. Je souhaiterais qu'elle affiche une valeur par défault. Ce qui complique un petit peu, c'est que la valeur par défault se trouve dans la cellule A1, et elle varie.

J'ai essayer quelques trucs, mais cela ne marche pas. ^^ Quelqu'un aurait une idée par rapport à ça s'il vous plait? :)
Voilà mon petit bout de code: (En gras ce qui ne marche pas :(      )


Private Sub ComboBox3_Change()                         
Dim k, j As Integer

     Me.ListSources.Clear
        
        For j = 1 To Range("AJ65536").End(xlUp).Row
            If Cells(j, 35) = ComboBox3.Value Or (Val(ComboBox3.Value) = Cells(j, 35) And Val(ComboBox3.Value) = ComboBox3.Value) Then
                Me.ListSources.AddItem Workbooks("Correspondance vFinal 2.3.xls").Sheets("infos").Cells(j, 36).Value
                k = k + 1
                Me.ListSources.List(k - 1, 1) = Workbooks("Correspondance vFinal 2.3.xls").Sheets("infos").Cells(j, 37)
            End If
        Next j
Me.ComboBox3.SelectedItem = Range("A1").Value
End Sub

J'ai aussi essayer avec:
Me.ComboBox3.ListIndex = Range("A1").Value

Merci d'avance :) Bonne soirée!! :)

ccm81 · Answer

bonjour
est ce que 
Me.ComboBox3.Text = Range("A1").Value
répond à la question?
bonne suite

Julistage · Answer

Bonjour et merci de te pencher sur cette question :).

ça marche en effet, mais ça bloque ma combobox sur cette valeur. Impossible de changer de valeur par la suite :(. Et bizarrement ça m'a ajouté pleins de doublons :x y aurait-il une autre méthode ?

ccm81 · Answer

re
et en mettant la propriete LinkedCell de la combobox3 à A1 ?
pour l'ajout des doublons, est ce que quelque part il n'y a pas un remplissage de la combobox exécuté intempestivement. Si oui, faire un .Clear avant
bon courage

Julistage · Answer

Re,

Je travail sur Excel 2003. Je ne vois pas cette propriété dans la combobox? :(

ccm81 · Answer

re
j'ai aussi excel 2003 et 
ta combobox a certainement été crée avec la barre d'outils formulaire. 
il vaudrait peut être mieux la créer avec la barre d'outils controles on a ainsi un acces à plus de propriétés. la combobox et son code seront alors liés à la feuille (le code ne sera plus dans un module) 
si cette option te tentes
Affichage/Boite a outils controles et la petite equerre pour basculer du mode création au mode exécution. Tu pourra alors 
- avec un clic droit avoir un acces direct a ses propriétés
- transporter ton code dans la feuille 
bonne suite

Polux31 · Answer

Bonjour ;o)

As-tu une procédure qui initialise ta combo ? Si oui remplace 

Me.ComboBox3.SelectedItem = Range("A1").Value

par l'appel à ta procédure d'initialisation de ta combo.

Dans ta procédure d'initialisation tu dois avoir un combo.Clear en début

et un combo.Text = Worksheets(1).Range("A1").Value en fin de procédure.

;o)

Julistage · Answer

Salut à tous les 2 :)

Bon la seule chose que j'ai réussie à faire c'est de faire une boucle infinie lol.
J'ai en effet une procédure qui initialise la combo. 

  ComboBox3.clear  
     For j = 1 To Range("AI65536").End(xlUp).Row
        ComboBox3 = Range("AI" & j)
        If ComboBox3.ListIndex = -1 Then ComboBox3.AddItem Range("AI" & j)
    Next j

En fait ma combobox se trouve justement sur un userform.
Je vais continuer à essayer de trifouiller le code. :)

ccm81 · Answer

re

et en mettant la propriété ControlSource à A1 puisque la combobox est créee dans une userform avec la boite a outils controles

bon courage

Julistage · Answer

re, Alors je dois m'y prendre comme un pied, mais cela ne marche pas non plus :x... Dans la propriété control source j'ai mis: (sachant que ma feuille est la feuille "infos")  infos!A1 c'est peut-être pas la bonne syntaxe?

Valeur par défault variable, Combobox, VBA.

9 réponses

Discussions similaires