Programmation VBA Recherche et sélection par Find

Fermé

JujuGa33 Messages postés 3 Date d'inscription lundi 22 octobre 2012 Statut Membre Dernière intervention 24 octobre 2012 - 22 oct. 2012 à 14:28
JujuGa33 Messages postés 3 Date d'inscription lundi 22 octobre 2012 Statut Membre Dernière intervention 24 octobre 2012 - 24 oct. 2012 à 08:27

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

A voir également:

Programmation VBA Recherche et sélection par Find
Google recherche par image - Guide
Recherche musique - Guide
Recherche par numéro de téléphone ✓ - Forum Mobile
Recherche automatique des chaînes ne fonctionne pas - Guide
Find grep ✓ - Forum Linux / Unix

4 réponses

Réponse 1 / 4

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
22 oct. 2012 à 15:47

Bonjour,

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

eric

Réponse 2 / 4

JujuGa33 Messages postés 3 Date d'inscription lundi 22 octobre 2012 Statut Membre Dernière intervention 24 octobre 2012
23 oct. 2012 à 12:44

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

Réponse 3 / 4

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
23 oct. 2012 à 13:28

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

Réponse 4 / 4

JujuGa33 Messages postés 3 Date d'inscription lundi 22 octobre 2012 Statut Membre Dernière intervention 24 octobre 2012
24 oct. 2012 à 08:27

Merci eriiic,

je vais tester ça. Bonne continuation!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Méthode find dans VBA - Recherche de données sous Excel

comment trouver une personne sur facebook

je recherche une personne au québec

erreur d'execution 9, l'indice n'appartient pas à la sélection

Discussions similaires

Newsletters