Remplissage d'une ComboBox à partir d'une plage/Excel Résolu

Question

Bonjour, 
J'essaye de changer une TextBox2 en ComboBox3
le code utilisé est:

With Me.TextBox2
    For J = 2 To Ws.Range("D" & Rows.Count).End(xlUp).Row
      .AddItem Ws.Range("D" & J)
    Next J
  End With



Lorsque je fait F5 pour contrôler je reçois le message d'erreur:
"Erreur de compilation
Variable non definie"

Et je "J", après "For" est surligné.

Pourriez vous m'aider?

Cordialement,

Jean-Marie i

NHenry · Answer

Et avec "Dim j as long" ?

djodjo5700 · Answer

Bonjour,

Effectivement cela à l'air de fonctionner

Merci beaucoup

Jean-Marie

ucfoutu · Answer

Bonjour,
Si le problème est résiolu, il convient de libérer ce sujet (un click sur le tag RESOLU au niveau de ton tout premier message) 

Je reste par contre assez dubitatif en ce qui concerne le code que tu nous as montré.
La méthode .additem ne saurait s'appliquer à un contrôle TextBox.
Qu'est donc exactement le contrôle que tu as nommé TextBox2 ?

PS je te rappelle par ailleurs qu'Excel permet de lier une combobox à une plage (même pas besoin d'une boucle).
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

ucfoutu · Answer

regarde :
si ta combo est sur une feuille de calcul :
Dim ws As Worksheet, plage As RangeSet ws = Worksheets("Feuil2")Set plage = ws.Range("D2:d" & Range("D" & Rows.Count).End(xlUp).Row)ComboBox1.ListFillRange = ws.Name & "!" & plage.Address
et si elle est par contre sur un userform :
remplace .listfillrange par .rowsource
C'est tout.

PS : j'ai modifié ton titre. Le fait que tu remplissais jusqu'alors une textbox ne change rien.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Remplissage d'une ComboBox à partir d'une plage/Excel

4 réponses

Votre réponse

Discussions similaires