Recherche et lignes masquées
Bonjour le forum,
J'aimerais que ma macro recherche le mot inscrit dans une cellule et ne fasse qu'apparaitre uniquement les lignes ou se mot se trouve.
Ci joint un exemple qui je l'espère sera assez explicite
Un grand merci pour votre précieuse aide
CDB
Bonjour
ci joint 2 possibilité dans 2 feuilles différentes
a vous relire
Bonjour CDB, bonjour le forum,
J'ai annulé la fusion des cellules B2:D2, ajouté une liste de validation de données dans C2 et supprimé le bouton. Choisi un jour dans C2...
Le code de la macro événementielle Change :
Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Me.Rows.Hidden = False 'affiche toutes les lignes
If Target.Address <> "$C$2" Then Exit Sub 'si le changement a lieu ailleurs qu'en C2, sort de la procédure
If Target.Value = "" Then Exit Sub 'si C2 est effacée, sort de la procédure
TV = Range("C5").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
If TV(I, 1) = Target.Value Then Rows(I + 4).Hidden = True 'si la donnée ligne I colonne 1 de TV est égale à C2, masque la ligne
Next I 'prochaine ligne de la boucle
End Sub[Édition]
Bonjour Iliyes, je navet pas rafraîchi, nos posts se sont croisés...
Bonjour ThauThéme
merci beaucoup, mais je prend un réel plaisir à voir les différentes méthodes pour arriver à la fin
merci à ce forum génial