Discussion :

[nicolas5927]

Bonjour

Après avoir essayé l'auto-formation sur les combobox (c'est bien mais c'est long!) je me lance dans l'exposé de mon problème :

J'ai une feuille avec des données de ce style :
colonne A colonne B colonne C
toto 1 A
toto 2 B
toto 3 C
titi 4 D
titi 5 E
tata 6 F
tata 7 G

Ce dont j'ai besoin, c'est d'alimenter un combobox suivant une sélection auparavant sur la colonne A (via un commandbutton je vais inscrire toto, titi ou tata...)

Donc avec toto je me retrouverai avec 1,2,3, je dois récupérer le texte en colonne C à droite de 1,2 ou 3.

J'utilise ce code qui fonctionne pour les données de la colonne B et C, il me manque ce tri en amont

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
  i = 0
  Me.ComboBox1.Clear
  For Each c In range(Sheets("P139").[A2], Sheets("P139").[A65000].End(xlUp))
     Me.ComboBox1.AddItem
     Me.ComboBox1.List(i, 0) = c & " " & c.Offset(0, 1)
     Me.ComboBox1.List(i, 1) = c.Row
     i = i + 1
   Next c
   Me.ComboBox1.ListIndex = 0
End Sub

J'ai essayé via la commande autofilter de trier la colonne A mais le combobox lit toute les cellules, meme cachées.

Merci de votre aide !

[Marc-L]

Bonjour,

pour le tri, rien de plus simple : le faire manuellement en utilisant l'Enregistreur de macros !

Sinon voir aussi du côté de l'aide de la fonction Filter …

[nicolas5927]

Bonsoir,

j'ai cherché des infos sur la fonction filter et j'ai trouvé le tuto :
Comment récupérer la plage filtrée par AutoFilter ?

"Excel masque les lignes ne répondant pas au filtre, il suffit donc de récupérer la plage des cellules visibles."
exemple :

Code :

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

1
2
SélectionnezRange("A2:C21").AutoFilter Field:=1, Criteria1:=">10",
Range("A2:C21").SpecialCells(xlCellTypeVisible).Copy Destination:=Range("A24")

Une fois mon autofilter fait (j'ai trié les totos par ex), est ce que je peux récupérer le range des cellules visible pour trouver les cellules à afficher avec mon combobox ? Si oui, ben je vois pas comment faire