Limiter une plage de valeurs indentiques dans un tableau en VBA
20 réponses
Apitos
Bonjour =E0 tous,
J'aimerais, dans un tableau de donn=E9es tri=E9 sur plusieurs colonnes, d=
=E9terminer une plage de valeurs identiques situ=E9es dans la colonne B de =
ce tableau.
L'id=E9e qui m'est venu et de d=E9terminer la premi=E8re ligne et la derni=
=E8re ligne contenant la valeur recherch=E9e, ensuite nomm=E9e les lignes t=
rouv=E9es dans une plage.
....ensuite nommée les lignes trouvées dans une plage '-------------------------- Sub test() With ActiveSheet.Range("A6:B" & Cells(Rows.Count, 1).End(xlUp).Row) Range("A5:B5").AutoFilter Field:=2, Criteria1:="Secondaire" ActiveWorkbook.Names.Add Name:="plage", RefersTo:="=" & .SpecialCells(xlCellTypeVisible).Address .AutoFilter End With End Sub '--------------------------- -- Salutations JJ
"Apitos" a écrit dans le message de news:
Bonjour à tous,
J'aimerais, dans un tableau de données trié sur plusieurs colonnes, déterminer une plage de valeurs identiques situées dans la colonne B de ce tableau.
L'idée qui m'est venu et de déterminer la première ligne et la dernière ligne contenant la valeur recherchée, ensuite nommée les lignes trouvées dans une plage.
Mais pas code à l'instant !
Merci d'avance.
Bonjour,
....ensuite nommée les lignes trouvées dans une plage
'--------------------------
Sub test()
With ActiveSheet.Range("A6:B" & Cells(Rows.Count, 1).End(xlUp).Row)
Range("A5:B5").AutoFilter Field:=2, Criteria1:="Secondaire"
ActiveWorkbook.Names.Add Name:="plage", RefersTo:="=" & .SpecialCells(xlCellTypeVisible).Address
.AutoFilter
End With
End Sub
'---------------------------
--
Salutations
JJ
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
7216bcea-e40d-47a9-8e08-856e6b6d0561@googlegroups.com...
Bonjour à tous,
J'aimerais, dans un tableau de données trié sur plusieurs colonnes, déterminer une plage de valeurs identiques
situées dans la colonne B de ce tableau.
L'idée qui m'est venu et de déterminer la première ligne et la dernière ligne contenant la valeur recherchée,
ensuite nommée les lignes trouvées dans une plage.
....ensuite nommée les lignes trouvées dans une plage '-------------------------- Sub test() With ActiveSheet.Range("A6:B" & Cells(Rows.Count, 1).End(xlUp).Row) Range("A5:B5").AutoFilter Field:=2, Criteria1:="Secondaire" ActiveWorkbook.Names.Add Name:="plage", RefersTo:="=" & .SpecialCells(xlCellTypeVisible).Address .AutoFilter End With End Sub '--------------------------- -- Salutations JJ
"Apitos" a écrit dans le message de news:
Bonjour à tous,
J'aimerais, dans un tableau de données trié sur plusieurs colonnes, déterminer une plage de valeurs identiques situées dans la colonne B de ce tableau.
L'idée qui m'est venu et de déterminer la première ligne et la dernière ligne contenant la valeur recherchée, ensuite nommée les lignes trouvées dans une plage.
Mais pas code à l'instant !
Merci d'avance.
MichD
Bonjour,
Si tu veux obtenir toutes les données dont l'occurrence est plus grande que 1, utilise le filtre élaboré (avancé) et comme critère, emploie ce type de formule :
=NB.SI($A$1:$A$10;A2)>1
A1:A10 est la base de données, la cellule A1 est l'étiquette de colonne A2 est la première cellule de la plage contenant les données.
Pour utiliser une formule comme critère dans un filtre avancé, tu dois définir une plage de cellules de 2 cellules
Exemple :
G1 : Totalement vide ou une étiquette que tu NE retrouves PAS dans la plage de données. G2 : La formule : =NB.SI($A$1:$A$10;A2)>1
Si tu utilises l'enregistreur de code, ce dernier te donnera l'essentiel du code. Si tu as par la suite de la difficulté à le peaufiner, publie ce code ici, on pourra certainement t'aider.
Bonjour,
Si tu veux obtenir toutes les données dont l'occurrence est plus grande que 1,
utilise le filtre élaboré (avancé) et comme critère, emploie ce type de formule :
=NB.SI($A$1:$A$10;A2)>1
A1:A10 est la base de données, la cellule A1 est l'étiquette de colonne
A2 est la première cellule de la plage contenant les données.
Pour utiliser une formule comme critère dans un filtre avancé, tu dois définir une plage
de cellules de 2 cellules
Exemple :
G1 : Totalement vide ou une étiquette que tu NE retrouves PAS dans la plage de données.
G2 : La formule : =NB.SI($A$1:$A$10;A2)>1
Si tu utilises l'enregistreur de code, ce dernier te donnera l'essentiel du code. Si tu as par la
suite de la difficulté à le peaufiner, publie ce code ici, on pourra certainement t'aider.
Si tu veux obtenir toutes les données dont l'occurrence est plus grande que 1, utilise le filtre élaboré (avancé) et comme critère, emploie ce type de formule :
=NB.SI($A$1:$A$10;A2)>1
A1:A10 est la base de données, la cellule A1 est l'étiquette de colonne A2 est la première cellule de la plage contenant les données.
Pour utiliser une formule comme critère dans un filtre avancé, tu dois définir une plage de cellules de 2 cellules
Exemple :
G1 : Totalement vide ou une étiquette que tu NE retrouves PAS dans la plage de données. G2 : La formule : =NB.SI($A$1:$A$10;A2)>1
Si tu utilises l'enregistreur de code, ce dernier te donnera l'essentiel du code. Si tu as par la suite de la difficulté à le peaufiner, publie ce code ici, on pourra certainement t'aider.
Apitos
Bonjour Isabelle, Jacky, MichD,
Merci pour vos réponses respectives.
MichD :: Déterminer et nommer la plage des cellules qui répondent aux c ritères de la recherche et nécessaire pour boucler sur toutes les ligne s de cette plage, afin d'extraire les données des autres colonnes dans un nouvelle feuille.
Je vais essayé ce que tu m'as demandé...
Bonjour Isabelle, Jacky, MichD,
Merci pour vos réponses respectives.
MichD :: Déterminer et nommer la plage des cellules qui répondent aux c ritères de la recherche et nécessaire pour boucler sur toutes les ligne s de cette plage, afin d'extraire les données des autres colonnes dans un nouvelle feuille.
MichD :: Déterminer et nommer la plage des cellules qui répondent aux c ritères de la recherche et nécessaire pour boucler sur toutes les ligne s de cette plage, afin d'extraire les données des autres colonnes dans un nouvelle feuille.
Je vais essayé ce que tu m'as demandé...
Apitos
Je vais essayé ce que tu m'as demandé...
Voila le code, mais sans uncun résultat :
'--------------------------- Sub Macro1() ' ' Macro1 Macro '
' Range("A5:B14").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange := _ Range("G1:G2"), Unique:lse End Sub '--------------------------
Je vais essayé ce que tu m'as demandé...
Voila le code, mais sans uncun résultat :
'---------------------------
Sub Macro1()
'
' Macro1 Macro
'
'
Range("A5:B14").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange := _
Range("G1:G2"), Unique:=False
End Sub
'--------------------------
