Amélioration code VBA

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.

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:

---

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

---