Macro pour faire une sélection

[sunguess]

Bonjour à tous,

Je souhaite réaliser une petite macro a fin de faire une sélection.

Quand, je clique sur le bouton Tout => toutes les lignes sont affichés
Quand, je clique sur le bouton Groupe1 => toutes les lignes n’ayant pas le mot groupe1 dans la colonne A sont masqués
Quand, je clique sur le bouton Groupe2 => toutes les lignes n’ayant pas le mot groupe2 dans la colonne A sont masqués
Quand, je clique sur le bouton Groupe3 => toutes les lignes n’ayant pas le mot groupe3 dans la colonne A sont masqués

J’ai essayé mais mon niveau ne me permet pas de faire une macro qui me convient.

Quelqu’un pourrait il m’aider ?

D’avance merci

 

[tototiti2008]

Re : Macro pour faire une sélection

Bonjour,

un test avec les filtres automatiques...

 

[suistrop]

Re : Macro pour faire une sélection

salut,

je sais pas comment marche tes boutons ...

voila des macro qui doivent marcher ...

Sub tout()
For i = 1 To Range("A65536").End(xlUp).Row
    Rows(i).Select
    Selection.EntireRow.Hidden = False
Next i
End Sub

Sub groupe1()
fin = Range("A65536").End(xlUp).Row
Dim tab_temp(800) As Double
h = 1

For i = 1 To fin
nom = "Groupe1"
If Cells(i, 1) Like "*" & nom & "*" Then
    tab_temp(h) = i
    h = h + 1
End If
Next i

For i = 1 To UBound(tab_temp)
    If tab_temp(i) <> 0 Then
        Rows(tab_temp(i)).Select
        Selection.EntireRow.Hidden = True
    End If
Next i
End Sub

Sub groupe2()
fin = Range("A65536").End(xlUp).Row
Dim tab_temp(800) As Double
h = 1

For i = 1 To fin
nom = "Groupe2"
If Cells(i, 1) Like "*" & nom & "*" Then
    tab_temp(h) = i
    h = h + 1
End If
Next i

For i = 1 To UBound(tab_temp)
    If tab_temp(i) <> 0 Then
        Rows(tab_temp(i)).Select
        Selection.EntireRow.Hidden = True
    End If
Next i
End Sub

Sub groupe3()
fin = Range("A65536").End(xlUp).Row
Dim tab_temp(800) As Double
h = 1

For i = 1 To fin
nom = "Groupe3"
If Cells(i, 1) Like "*" & nom & "*" Then
    tab_temp(h) = i
    h = h + 1
End If
Next i

For i = 1 To UBound(tab_temp)
    If tab_temp(i) <> 0 Then
        Rows(tab_temp(i)).Select
        Selection.EntireRow.Hidden = True
    End If
Next i
End Sub

 

[pierrejean]

Re : Macro pour faire une sélection

bonjour sunguess

Vois si cela te convient

Edit: Salut suistrop

 

[sunguess]

Re : Macro pour faire une sélection

Un grand merci pour la macro, c’est pile poil ce que je recherché.

Puis je solliciter votre aide à nouveau.

J’ai une liste dans la cellule H2 et un nouveau bouton « OK » en I2.

Je souhaiterai avoir une macro liée à ce bouton qui masque toutes les lignes qui ne comprennent pas la valeur de la cellule H2 dans les colonnes caractX.

En clair, si je clique sur OK et que la cellule I2 contient « Tout » => aucune ligne n’est masquée. Si la cellule I2 contient « Metz » quand je clique sur « OK », les lignes 6, 7 et 11 restent affichées les autres sont masqués.

Est possible ?

D’avance merci.

 

[pierrejean]

Re : Macro pour faire une sélection

Re

Voila

 

[sunguess]

Re : Macro pour faire une sélection

Milles merci

Cependant, il risque d'y avoir plus de 200 colonnes caract, est il possible de modifier la ligne de code ci dessous ?

caract = Range("E" & n) & "," & Range("F" & n) & "," & Range("G" & n) & ","

D'avance merci

 

[pierrejean]

Re : Macro pour faire une sélection

Re

Oui mais dans ce cas il faut un denominateur commun (carac par exemple),ou connaitre le num de la 1ere et celui de la derniere
peux-tu preciser ce point ?

 

[sunguess]

Re : Macro pour faire une sélection

en faite, j'utiliserai toutes les colonnes disponibles.

Les caract commenceront à caract0 et finiront à caract250.

Pour info le fichier aura 56 lignes différentes

Un grand merci pour ton aide

 

[pierrejean]

Re : Macro pour faire une sélection

Re

Teste ceci

 

[sunguess]

Re : Macro pour faire une sélection

Ca marche nickel !!!

Je sais que j'abuse mais peut on faire quelque chose dans cette macro pour qu'elle ne fasse pas les différences entre majuscule et minuscule.

Par exemple, avec la macro actuelle, si je choisi Metz dans le filtre et que j'ai tapé metz dans une cellule, la ligne ne sera pas selectionnée et je souhaiterai qu'elle le soit

 

[pierrejean]

Re : Macro pour faire une sélection

Re

Voila