données dans une référence

Version imprimable

02/12/2010, 14h04
Yanluo

données dans une référence
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:

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)
02/12/2010, 14h46
casefayere

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

Code:

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

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

Bonne journée
02/12/2010, 16h21
Yanluo

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

Code:

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
02/12/2010, 18h43
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.

Bonjour,

Si j'ai bien compris, ceci devrait convenir

Code:

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

03/12/2010, 13h55
Yanluo

Super, ca fonctionne à merveille!

Merci Beaucoup Fring

Juste une petite précision pour ceux qui rencontrerait le même problème. Il est utile d'ajouter ComboBox.clear avant le With Sheets("Feuille Excel") pour remettre à vide les ComboBox sinon les résultat s'accumule si on change la première ComboBox.

Voici:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Sub Nequipement1_Change()
 
          Me.Nproduit1.Clear
          Dim C As Byte
          Dim Col As Integer
 
              With Sheets("Produits")
                Select Case Nequipement1.Value
 
                    Case "Commutateur"
 
                        Col = .Range("Commutateur").Column
 
                    Case "Imprimante"
                        Col = .Range("Imprimante").Column
End Select
 
                For C = 2 To .Cells(Rows.Count, Col).End(xlUp).Row '<-- de la ligne 2 (à adapter) à la dernière ligne
                If .Cells(C, Col) <> "" Then Me.Nproduit1.AddItem .Cells(C, Col)
                Next
 
              End With
 
 
End Sub

04/12/2010, 04h18
fring

Juste pour info, je vois que tu déclares la variable des colonnes de type "Integer" et la variable des lignes de type "Byte".

Byte accepte les nombres entiers de 0 à 255 donc attention, si tu as une valeur à la ligne 256 (ou plus) ça va coincer.