Discussion :

[EAU24]

Bonjour,
J’ai téléchargé récemment une macro sur le forum Excel permettant de supprimer des lignes dans une colonne qui ne correspondent pas à un critère déterminé.
Quand la macro est activée, une Textbox apparait et demande quelle est la valeur minimale demandée. Toutes les lignes dont la valeur est inférieure sont masquées.
Cela marche que s’il s’agit de la colonne A, or je voudrais que cela puisse se faire dans une autre colonne B ou C par exemple.
Je joins un fichier avec la macro ainsi que le programme VBA que j’ai téléchargé.
Pas de panique il n’ y a pas de virus, je ne suis pas un hacker
Merci de votre aide

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 suppr()
    Dim onglet1 As Worksheet
    Dim derniereLigne As Long
    Dim Ligne_en_cours As Long
    Dim ValeurMin As String
    Dim Cel As Range
 
    Set onglet1 = Worksheets("Feuil1")
    ValeurMin = InputBox("Indiquez une valeur minimale ? ", "ValeurMin")
    derniereLigne = onglet1.Cells(Rows.Count, 1).End(xlUp).Row
 
    For Ligne_en_cours = derniereLigne To 1 Step -1
        If onglet1.Cells(Ligne_en_cours, 1) <= ValeurMin * 1 Then onglet1.Rows(Ligne_en_cours).Hidden = True
    Next Ligne_en_cours
End Sub

[halaster08]

Bonjour,

tu peux rentrer la valeur en dur dans le code ou la demander via une inputbox:

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 suppr()
    Dim onglet1 As Worksheet
    Dim derniereLigne As Long
    Dim Ligne_en_cours As Long
    Dim ValeurMin As String
    Dim Cel As Range
    Dim col As String
 
    'col = "B"
    col = InputBox("Indiquez la colonne ", "colonne")
    Set onglet1 = Worksheets("Feuil1")
    ValeurMin = InputBox("Indiquez une valeur minimale ? ", "ValeurMin")
    derniereLigne = onglet1.Cells(Rows.Count, col).End(xlUp).Row
 
    For Ligne_en_cours = derniereLigne To 1 Step -1
        If onglet1.Cells(Ligne_en_cours, col) <= ValeurMin * 1 Then onglet1.Rows(Ligne_en_cours).Hidden = True
    Next Ligne_en_cours
End Sub

[EAU24]

Bonjour,

tu peux rentrer la valeur en dur dans le code ou la demander via une inputbox:

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 suppr()
    Dim onglet1 As Worksheet
    Dim derniereLigne As Long
    Dim Ligne_en_cours As Long
    Dim ValeurMin As String
    Dim Cel As Range
    Dim col As String
 
    'col = "B"
    col = InputBox("Indiquez la colonne ", "colonne")
    Set onglet1 = Worksheets("Feuil1")
    ValeurMin = InputBox("Indiquez une valeur minimale ? ", "ValeurMin")
    derniereLigne = onglet1.Cells(Rows.Count, col).End(xlUp).Row
 
    For Ligne_en_cours = derniereLigne To 1 Step -1
        If onglet1.Cells(Ligne_en_cours, col) <= ValeurMin * 1 Then onglet1.Rows(Ligne_en_cours).Hidden = True
    Next Ligne_en_cours
End Sub

Merci pour votre réponse. J'ai essayé et cela marche. Toutefois quel code dois je ajouter pour inscrire la colonne en dur au lieu d'un TextBox ?

[halaster08]

Merci pour votre réponse. J'ai essayé et cela marche. Toutefois quel code dois je ajouter pour inscrire la colonne en dur au lieu d'un TextBox ?

Enlever le ' a la ligne 9, le mettre a ligne 10
Changer le B de mon exemple par la colonne souhaité

[EAU24]

OK ça marche. Un grand merci.

[mat955]

Bonjour,

La colonne est spécifiée en ligne 13 :

Code :

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

If onglet1.Cells(Ligne_en_cours, 1) <= ValeurMin * 1 Then onglet1.Rows(Ligne_en_cours).Hidden = True

Le 1 correspond à la colonne A, donc à changer en 2 si tu veux la colonne B, etc.

[EAU24]

Bonjour,

La colonne est spécifiée en ligne 13 :

Code :

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

If onglet1.Cells(Ligne_en_cours, 1) <= ValeurMin * 1 Then onglet1.Rows(Ligne_en_cours).Hidden = True

Le 1 correspond à la colonne A, donc à changer en 2 si tu veux la colonne B, etc.

Désolé mais j'ai modifié le code avec un 2 mais cela ne marche toujours pas. Donc je vais adopter la première proposition