Combobox qu'avec les cellules pleines

Question

Bonjour,

Une petite question : je sais alimenter une  combobox avec une colonne excel mais je ne sais pas comment limiter cela aux seules cellules pleines. Comment la faire s'arrêter à la dernière ligne remplie... je ne suis pas un pro du Vba et j'ai tenté pas mal de choses sans succès. Pour vous donner une idée des dégats, voilà ma dernière tentative :

Private Sub Userform_Activate()
I = 1
While Feuil1.Range("D" & I) <> ""
I = I
UserForm3.ComboBox1.RowSource = "Feuil1!D:D & I"
Wend
End Sub

Merci d'avance

Farfadet88 · Answer

Il y a plus simple.

Dans la colonne propriétés de VBA quand tu est sur ta Combobox tu as une ligne row source!

Tappes Feuil1!D1:D4

pour les données de d1 a d4

Usgpa · Answer

Le problème c'est que la liste va fluctuer dans le temps. Je voulais donc savoir si il y avait un moyen de mettre un truc du genre Feuil1!D1:DI.

Farfadet88 · Answer

Ah pour ça je ne saurai pas faire mais c'est réalisable.

Je tente quand même quelque chose

pijaku · Answer

Salut,
Personnellement, je fais comme cela :

Private Sub Userform_Activate() 
Dim I As Integer, lig As Integer 
With Sheets(1)
lig = .Range("D65536").End(xlUp).Row
For I = 1 to lig 
UserForm3.ComboBox1.AddItem .Cells(I, 4) 
Next
End With
End Sub

Usgpa · Answer

Merci de votre aide ! Pijaku ta solution provoque une erreur d'execution "70", la ligne 
UserForm3.ComboBox1.AddItem .Cells(I, 4)
est surligné en jaune.

Iama · Answer

Si cela peu te donner des idées, j'ai fait un truc comme ça. Ne pas oubluer la réjeneration a chaque entée dans le tableau


'Ordre_Val.Caption : N° Enregistrement des données => orgine  Un Label

'FeuilPiece  : Nom feuille
'TableauR : Nom de cellules


'Modification de la longueur du tableaux des valeurs calculé Adresse type : "=Piéce!R1C1:R20C15"
ActiveWorkbook.Names("TableauR").RefersTo = "=" & FeuilPiece & "!R7C1:R" & 6 + Ordre_Val.Caption & "C15"

6 = Ligen e

Combobox qu'avec les cellules pleines

6 réponses

Discussions similaires

Newsletters