programmation VBA Recherche et sélection par Find

Question

Bonjour le forum, 
Je suis débutant sur VBA, aussi vais-je sûrement poser une question idiote. Voici mon problème : j'ai une liste de document (A15 à A88) avec la liste des personne qui s'y réfèrent, répartie sur 6 colonne (J15 à O88). Toutes ces cellules sont remplies par un type de personne (OP1 à OP6 ou par Non si la personne n'y a pas accès). Je souhaite pouvoir faire apparaître uniquement celles que je souhaite en utilisant une variable nommée OPX et une fonction générique (pour simplifier les macro RechercheOP1, RechercheOP2, etc.). De plus je ne souhaite pas "figer" les lignes (Range("J15:O88")) au cas où j'en rajouterais. Voici mon programme et cela ne marche pas, je n'arrive pas à configurer le find pour cela. Si quelqu'un peut m'éclairer merci!

Option Explicit
Public OPX As String

Sub RechercheOPX()
    Cells(15, 10).Select
    Do Until ActiveCell.Value = ""
      If Range(ActiveCell, ActiveCell.Offset(0, 5)).Find(OPX, LookIn:=xlValues) Is Nothing Then
            Rows(ActiveCell.Row).Select
            Selection.EntireRow.Hidden = True
      Else
            Rows(ActiveCell.Row).Select
            Selection.EntireRow.Hidden = False
        End If
    ActiveCell.Offset(1, 0).Activate
    Loop
End Sub

Et pour ma fonction d'appel de l'OP1
Sub RechercheOP1
    OPX = "OP1"
    Call RechercheOPX
End Sub

eriiic · Answer

Bonjour,

Déposer le fichier xls (réduit au nécessaire et anonymisé) sur cjoint.com et coller ici le lien fourni.
 
eric

JujuGa33 · Answer

Bonjour eriiic
je te remercie de ta réponse. Voici le lien demandé :
https://www.cjoint.com/?3JxmMqkT1lR
J'ai réussi à faire ce que je voulais mais avec Rows(ActiveCell.Row).Find(etc...)
Je ne comprends pas pourquoi celà ne marche pas avec Range, étant donné que je peux faire un Range(ActiveCell, ActiveCell;Offset(0,5)).Select
ou alors je ne peux tout simplement pas le faire comme ça. En tout cas merci encore!

Salutations.
JujuGa

eriiic · Answer

Bonjour,

une proposition :
Sub masquerLignesOPX()
    Dim derlig As Long, lig As Long, c As Range
    Const col1 As Long = 10
    Const nbOp As Long = 6
    derlig = Cells(Rows.Count, 9).End(xlUp).Row
    For lig = 15 To derlig
        Set c = Cells(lig, col1).Resize(1, nbOp).Find(OPX, LookIn:=xlValues, lookat:=xlWhole)
            Rows(lig).EntireRow.Hidden = c Is Nothing
    Next lig
End Sub

https://www.cjoint.com/?BJxnBrBJMMp 
 
eric

JujuGa33 · Answer

Merci eriiic, 

je vais tester ça. Bonne continuation!

Programmation VBA Recherche et sélection par Find

4 réponses

Discussions similaires

Newsletters