Discussion :

[justgreat]

svp, quelqu'un peut il me dire, Comment faire en vbA, pour selectionner toutes les cellules non vides dans une colonne, a partir d'une certaine cellules par example je veux selectionner toutes les cellules non vides de la colonne A, a partir de la cellule A3, et les afficher dans une combo

[Mytå_Qc]

Salut le forum

Regarde le tutotial de SilkyRoad

Mytå_Qc

[justgreat]

Merci Mytå_Q, mais je ne trouve pas dans ce tutoriel une reponse a ma question ... quelqu un d autre a une reponse svp ?

[Mytå_Qc]

Re le forum

Tu n'as pas du cherché longtemps, un bout de code, il suffit de l'adapter.

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
 
Sub Remplir()
 
    Dim j As Integer
 
    'Récupère les données de la colonne A...
    For j = 1 To Range("A65536").End(xlUp).Row
      If Not IsEmpty(Range("A" & j)) Then
        ComboBox1 = Range("A" & j)
        '...et filtre les doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
      End If
    Next j
 
End Sub

Mytå_Qc

[justgreat]

Merci, je vais tester le code et je te tienderai au courant si ça marche bien ou pas, par contre, je souhaite aussi savoir, comment puis je faire de sorte à ne pas boucler les 65000 cellules, mais dès que je trouve une cellule vide je sors ?
y a t il une commande pour ça, ou je le fais normalement en détectant si le contenu de la cellule est vide, je sors de la boucle?

[Mytå_Qc]

Re le forum

Tu ne boucleras pas sur les 65 000 cellules mais jusqu'à la dernière
cellule non-vide de la colonne

Code :

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

Range("A65536").End(xlUp).Row

Mytå

[justgreat]

Merci beaucoup ça a l'air de fonctionner, j'ai adapté un peu le code pour répondre à mes besoins, certaines cellules par exemple apparaissent vide mais dans le code vba, ils les récupères comme "0", du coup là où tu as fais le teste isempty, j'ai ajouté and .... <> "0"