Discussion :

[Yanluo]

Bonjour à tous

Je viens de trouver une petite erreur dans mon code mais je ne sais pas comment la régler.

J'utilise des noms pour faire référence à des colonnes et par la suite les données de ces colonnes serve à peupler une comboBox. Mon problème c'est que en le faisant comme ça vba me sort tous les cellules de la colonne y compris ceux qui ne contienne aucune données. Je voudrais savoir comment changer mon code pour que VBA utilise seulement les cellules de ma référence qui contienne des données

Code :

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

1
2
3
4
Select Case Nequipement55.Value
 
          Case "Commutateur"
              Me.Nproduit55.List = Worksheets("Produits").Range("Commutateur").Value

ceci est mon code actuel. Je sais comment aller chercher dernière cellule contenant de l'information en utilisant .End(xlDown) et il s'agit surement de me faire un range en l'utilisant. Je suis un peu à court d'idée.

Merci pour vos suggestion comme toujours =o)

[casefayere]

Bonjour,
sans connaitre ton problème, pour repérer ta derniere ligne, je préfère utiliser cette formule :

Code :

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

Range("a" & Rows.Count).End(xlUp).Row

si tes données sont en A bien sur plutot que .End(xlDown)

Bonne journée

[Yanluo]

Je ne suis pas très familier avec la méthode Intersect mais est ce que c'est qqc qui pourrait marcher?

Code :

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

 Me.Nproduit1.List = Intersect(Worksheets("Produits").Range("Commutateur")).End(xlDown, Worksheets("Produits").Range("Commutateur")).Value

Je sais que la syntaxe n'est pas la bonne par contre

[Yanluo]

La méthode intersect de la façon dont je la voyais ne fonctionne pas, j'avais oublié que xldown retourne une seule cellule et non pas une plage.

[fring]

Bonjour,

Si j'ai bien compris, ceci devrait convenir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim i As Integer, Col As Integer
 
With Sheets("Produits")
 
    Select Case Nequipement55.Value
        Case "Commutateur"
            Col = .Range("Commutateur").Column
        Case "Tarte aux pommes" '...les autres conditions
            Col = .Range("Tarte aux pommes").Column
    End Select
 
    For i = 2 To .Cells(Rows.Count, Col).End(xlUp).Row '<-- de la ligne 2 (à adapter) à la dernière ligne
        If .Cells(i, Col) <> "" Then Me.Nproduit55.AddItem .Cells(i, Col)
    Next
 
End With

[Yanluo]

Super, ca fonctionne à merveille!

Merci Beaucoup Fring