Discussion :

[Hélixe]

Bonjour,

J'aurais besoin de vos lumières en VBA pour m'aider à améliorer un code me permettant de faire la chose suivante :

J'ai dans une première feuille des noms de pays associés à des valeurs.
Dans une deuxième feuille, j'affiche ou je masque les lignes correspondant à ces pays en comparant ces valeurs à une valeur de référence définie sur la feuille 2 (voir le fichier joint pour illustration).

Pour l'instant mon code correspond à une macro qui se déclenche lorsque l'on clique sur le bouton "OK". A la place, j'aimerais que la macro soit lancée à chaque fois que je modifie la valeur de référence. Comment fait-on cela ?

Aussi, mon vrai fichier contenant beaucoup de lignes, je me demandais s'il n'y avait pas une alternative plus efficace que ce que j'ai pour le moment. Quelque chose qui ne passerait pas les lignes une à une peut-être ?

Merci !

Hélixe.

[gFZT82]

Bonjour,

Tu peux utiliser l'évènement Change de la feuille 2 pour détecter un changement de la valeur de C2.
Pour le deuxième point, la désactivation de l'écran devrait te faire gagner du temps.

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Integer
    'ActiveSheet.Unprotect
    If Target.Count = 1 And Target.Address = "$C$2" Then
        Application.ScreenUpdating = False
        For ligne = 6 To 11
            'Si la valeur saisie est supérieure au code du pays, on masque la ligne du pays
            If Range("C2") > WorksheetFunction.VLookup(Cells(ligne, 1).Value, Sheets("Feuil1").Range("A1:B7"), 2, False) Then
                Rows(ligne).EntireRow.Hidden = True
            Else
                Rows(ligne).EntireRow.Hidden = False
            End If
        Next
        Application.ScreenUpdating = True
    End If
    'ActiveSheet.Protect
End Sub