Discussion :

[anthony77350]

Bonjour à tous,

J'ai un soucis pour créer des boucles.

JE souhaiterais faire un boucle sur les valeurs d'un filtre auto et je ne sais comment faire.

Exemple:

Colonne B avec comme valeurs:
Zone 1
Zone 2
Zone 1
Zone 3
Zone 2
Zone 2
Zone 1
Zone 3

Je souhaiterais faire une boucle du type:

Code :

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

1
2
3
4
5
For each value of colonne B (sans doublon):
 
display value.
 
end

Donc résultat attendu

Zone 1
Zone 2
Zone 3

Merci d'avance.

Cordialement.

[riaolle]

Bonjour,
Si tu appliques un filtre avant de faire ta boucle, tu peux utiliser la propriété SpecialCells:

Code :

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

1
2
3
4
Dim cel As Range
For Each cel In Range("A:A").SpecialCells(xlCellTypeVisible)
    '...
Next cel

Cela te permet de parcourir seulement les cellules visibles.

Ensuite, pour ne pas avoir de doublons, tu peux créer un array que tu complètes au fur et à mesure de ta boucle avec les valeurs de cellules que tu parcourt. A chaque iteration, si la valeur est dans l'Array, c'est qu'elle a déjà été affichée, donc pas besoin de l'afficher à nouveau.

Une autre solution :

• Copier les cellules à parcourir (en utilisant SpecialCells)
• Coller dans une autre feuille
• Utiliser la fonctionnalité d'Excel pour éliminer les doublons et obtenir le code correspondant avec l'enregistreur de macro.
• Afficher toutes les données de cette nouvelle liste

Il faudra utiliser l'enregistreur de macro pour obtenir un début de code pour cette dernière solution.

[anthony77350]

Merci Riaolle,

Cependant je ne vois pas comment faire étant débutant en vba je voudrais faire un code correspondant à cece:

Code :

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

1
2
3
4
5
6
7
8
9
Sub toto()
Dim Cel As Range
Dim ListeValeurs() As String
For Each Cel In Range("D6:D30000")
    if Cel est non presente dans ListeValeurs then
    ListeValeurs(i) = Cel
    End If
Next Cel
End Sub

Quelqu'un pourrait il m'aider svp.

Merci

[riaolle]

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
17
18
 
Sub test()
    Dim cel As Range
    Dim listVal(0) As String
    Dim n As Long
    Dim i As Long
    i = 0
    n = Cells(.Rows.Count, 1).Row    'permet d'avoir la dernière ligne de la feuille
 
    For Each cel In Range("D6:D" & n).SpecialCells(xlCellTypeVisible)    'boucl sur les cellules visibles de la feuille
        If IsError(Application.Match(cel.Value, listVal, 0)) Then           'si on ne trouve pas la valeur de la cellule dans le tableau
            i = i + 1
            ReDim Preserve listVal(i)          'on augmente la taille du tableau de 1
            listVal(i) = cel.Value                 'on ajoute au tableau
        End If
    Next cel
 
End Sub

[anthony77350]

Merci Riaolle,

ependant le code ne fonctionne pas.

J'ai essayé de le modifier comme ceci:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub test()
    Dim cel As Range
    Dim listVal() As String
    Dim i As Long
 
    i = 0
 
' VARIABLES POUR TRAITEMENT '
Dim PremiereLigne As Integer
Dim ColonneZone As String
Dim DerniereLigne As Integer
Dim DerniereColonne As String
 
' PREMIERE LIGNE DE DONNEES '
PremiereLigne = 6
' PREMIERE COLONNE DE DONNEES '
ColonneZone = "D"
' DERNIERE LIGNE VIS A VIS DE LA COLONNE ZONE '
DerniereLigne = Worksheets("GENERAL SOURCE").Range(ColonneZone & Rows.Count).End(xlUp).Row
 
    For Each cel In Range(ColonneZone & PremiereLigne & ":" & ColonneZone & DerniereLigne).SpecialCells(xlCellTypeVisible)    'boucl sur les cellules visibles de la feuille
        If IsError(Application.Match(cel.Value, listVal, 0)) Then           'si on ne trouve pas la valeur de la cellule dans le tableau
            i = i + 1
            ReDim Preserve listVal(i)          'on augmente la taille du tableau de 1
            listVal(i) = cel.Value                 'on ajoute au tableau
        End If
    Next cel
 
    For i = LBound(listVal) To UBound(listVal)
    MsgBox listVal(i)
    Next i
 
End Sub

Dans la definition de la variable listval fallait enlever le 0 car sinon ce n'était pas un tableau dynamique par contre le code bloque au niveau de la ligne application.match et je ne vois pas pourquoi.

[riaolle]

le code bloque au niveau de la ligne application.match

Est-ce que tu peux donner un peu plus de précisions. Est-ce qu'il y a un message d'erreur? Si oui, lequel? Est-ce que ça bloque dès la première iteration?

EDIT : et utilise les balises code (#) quand tu écris du code, c'est plus facile à lire

[Marc-L]

Récupération liste des valeurs d'un filtre auto

« - Hé Manu, tu descends ?
   - Et pourquoi faire ?! »

Ici c'est pareil !   La "présentation" initiale nous laissant dans le brouillard,
n'ayant donc aucune idée de la destination, je n'envisage déjà même pas une quelconque solution ! …

Quant au message d'erreur, il est nécessaire de publier le code déjà balisé conformément aux règles de ce forum,
il y a même une démonstration pour les moins doués, puis d'indiquer le numéro de la ligne déclenchant l'erreur,
le numéro de l'erreur et le message de l'erreur.

Pour rappel, lire l'aide associée au message d'erreur peut déjà mettre sur la piste de sa résolution …

[anthony77350]

Voici le code balisé:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Sub test()
 
' VARIABLES POUR TRAITEMENT '
Dim PremiereLigne As Integer
Dim ColonneZone As String
Dim DerniereLigne As Integer
 
Dim Cellule As Range
Dim ListeValeurs() As String
Dim i As Long
 
' PREMIERE LIGNE DE DONNEES '
PremiereLigne = 6
' PREMIERE COLONNE DE DONNEES '
ColonneZone = "D"
' DERNIERE LIGNE VIS A VIS DE LA COLONNE ZONE '
DerniereLigne = Range(ColonneZone & Rows.Count).End(xlUp).Row
 
' VARIABLE NOMBRE DE VALEURS TROUVEES '
i = 0
' BOUCLE SUR LA COLONNE ZONE '
For Each Cellule In Range(ColonneZone & PremiereLigne & ":" & ColonneZone & DerniereLigne).SpecialCells(xlCellTypeVisible)    'boucl sur les cellules visibles de la feuille
    If IsError(WorksheetFunction.Match(Cellule.Value, ListeValeurs, 0)) Then           'si on ne trouve pas la valeur de la cellule dans le tableau
        i = i + 1
        ReDim Preserve ListeValeurs(i)          'on augmente la taille du tableau de 1
        ListeValeurs(i) = Cellule.Value                 'on ajoute au tableau
    End If
Next Cellule
 
For i = LBound(ListeValeurs) To UBound(ListeValeurs)
    MsgBox ListeValeurs(i)
Next i
 
End Sub

L'erreur est sur la ligne 24.
Etant débutant, j'ai fait mes recherches avant de poser des questions.
Sinon je ne vois pas l'interêt de poser le problème.

Merci à vous

[anthony77350]

La première version était avec Apllication et j'ai la même erreur.

[Marc-L]

Et j'attends toujours une réponse quant au but recherché ?

Sinon modifie ton code en testant d'abord si la variable i est égale à zéro
car dans ce cas il n'y a même pas besoin de Match …

Au passage on peut définir au préalable le nombre maximal d'éléments de la variable tableau
via la fonction de feuille de calculs SOUS.TOTAL …

[anthony77350]

Le but recherché comme décrit au premier message et de faire une boucle sur les valeurs (sans doublon) d'une colonne.

Exemple:

Colonne B avec comme valeurs:
Zone 1
Zone 2
Zone 1
Zone 3
Zone 2
Zone 2
Zone 1
Zone 3

Je souhaiterais faire une boucle du type:

Code :

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

1
2
3
4
5
 For each value of colonne B (sans doublon):
 
 display value.
 
 end

Donc résultat attendu

Zone 1
Zone 2
Zone 3