Problème avec combox alimentée dynamiquement

Fermé

tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 - 14 juin 2015 à 13:41
tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 - 14 juin 2015 à 15:20

Bonjour, j'ai entré du code VBA pour alimenter un combobox avec des données variables (il y en a une comme il y en aurait 100). Voici mon code mais la cobobox reste toujours vide bien que les cellules soient remplies

Private Sub Article_Initialize()
Dim de, derlign As Integer
With Feuil3
dernlign = .Range("X65536").End(xlUp).Rows
de = .Range("X3:X" & derlign)
Combobox1.List = de
End With
End Sub

De plus, les cellules seront remplies par un autre userform mais je ne pense qu'il n'y a pas de pb (ce n'est pas la peine de donner son code, il est fait)

Merci à ce qui pourront m'aider et éventuellement corriger le code

A voir également:

Problème avec combox alimentée dynamiquement
Carte graphique sous alimentée - Forum Matériel & Système
Lier dynamiquement des cellules dans excel ✓ - Forum VB / VBA
Comment faire un tableau croisé dynamique avec plusieurs colonnes - Guide
Lier deux cases dynamiquement et à double sens ✓ - Forum Excel
Tableau croisé dynamique problème date - Forum Excel

4 réponses

Réponse 1 / 4

Maurice
14 juin 2015 à 14:22

Bonjour

en claire je prefere comme ca

Private Sub UserForm_Initialize()
Dim Derlign As Long
Dim L As Long
   With Feuil3
      Derlign = .Range("X" & Rows.Count).End(xlUp).Row
         Me.ComboBox1.Clear
            For L = 3 To Derlign
               ComboBox1.AddItem .Range("X" & L).Value
            Next
   End With
End Sub

A+
Maurice

Réponse 2 / 4

tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 2 031
14 juin 2015 à 14:42

Bonjour Maurice, malgré ta correction je n'ai rien!

Je me suis aidé de ce tuto en vidéo pour la rédaction du code mais, même s'il est identique, ça ne fonctionne pas!

Mon fichier pour vous aider https://www.cjoint.com/c/EFomPC0KYKB

Réponse 3 / 4

Maurice
14 juin 2015 à 14:56

Bonjour
tu regarde Mal le code

Private Sub UserForm_Initialize()
Dim Derlign As Long
Dim L As Long
   With Feuil3
      Derlign = .Range("X" & Rows.Count).End(xlUp).Row
         Me.CodeTVA.Clear
            For L = 3 To Derlign
               CodeTVA.AddItem .Range("X" & L).Value
            Next
   End With
End Sub

A+
Maurice

Réponse 4 / 4

tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 2 031
Modifié par tyranausor le 14/06/2015 à 15:42

en effet j'avais mal lu.
Merci Maurice

Discussions similaires

Carte graphique sous-alimenté :S

Excel - liaison dynamique entre deux cellules

Lier deux cellules excel

Quels sont les effets d'une cg mal alimenté ?

Nom de champs du tableau croisé dynamique non valide

Discussions similaires

Newsletters