IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[Debutant] fonction de recherche simple.


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Novembre 2005
    Messages
    70
    Détails du profil
    Informations forums :
    Inscription : Novembre 2005
    Messages : 70
    Par défaut [Debutant] fonction de recherche simple.
    Bonjour,

    Dans un tableau excel je cherche à faire une fonction simple de recherche sur un critère du type: "Couleur de la case" ou "valeur texte spécifié".

    Cette recherche aura pour but de cacher la ligne.

    En language algorithmique: Une recheche sur tout le document qui passe chaque cellule en revue, si une cellule est positive sur une couleur définit, alors l'indice correspondant à la ligne de cette cellule va servir à passer un parramètre du type "hide" sur la ligne en question.

    Je ne trouve pas de fonction basique permettant défectuer cette recherche puis modification de l'affichage de la ligne correspondante.


    Ne connaissant pas le VBA je me tourne vers cette section du forum, ci ce message est mal rédigé ou posté dans une section inaproprié veuillez m'excuser.

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    1 572
    Détails du profil
    Informations personnelles :
    Âge : 62
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 572
    Par défaut
    pour la couleur, tu peux essayer ça.
    c'est pas forcement le plus simple, mais ça marche
    dans la cellule A1 tu indique le code couleur que tu choisi de masquer
    si tu indique 0, le code démasque toutes les lignes
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
     
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("a1") = 0 Then
    Range("a1:a1000").EntireRow.Hidden = False
        Exit Sub
    End If
    For Each cel In Range("a1:z1000")
    If cel.Interior.ColorIndex = Range("a1").Value Then Rows(cel.Row).Hidden = True
    Next cel
    End Sub
    pour connaitre les codes couleur, tu commence par lancer ce petit code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Sub couleur()
    For i = 1 To 20
    Cells(i + 2, 1).Interior.ColorIndex = i
    Cells(i + 2, 1).Value = i
    Next i
    End Sub

  3. #3
    Membre Expert
    Avatar de JackOuYA
    Inscrit en
    Juin 2008
    Messages
    1 040
    Détails du profil
    Informations forums :
    Inscription : Juin 2008
    Messages : 1 040
    Par défaut
    bonsoir,

    Amenos, tu compte lancer comment ta recherche, je ne suis pas sur que la proposition précédente effectuée sur changement d\'état de la cellule à masquer te conviennent.. alors dis nous .. un bouton ..? l\'ouverture de ton classeur..?

Discussions similaires

  1. [XL-2013] Fonctions de recherche simple
    Par fabiclou dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 04/12/2014, 00h09
  2. Solution simple pour développer ou réutilise une fonction de recherche sur des BDs
    Par geforce dans le forum Bibliothèques et frameworks
    Réponses: 0
    Dernier message: 18/04/2010, 20h12
  3. [debutant] fonction callback
    Par samipate dans le forum Langage
    Réponses: 5
    Dernier message: 09/10/2005, 15h59
  4. Adapter la fonction de recherche de Plone/Zope
    Par StarNab dans le forum Zope
    Réponses: 2
    Dernier message: 07/04/2005, 17h04
  5. [String] Fonction de recherche de caractères numériques
    Par david71 dans le forum Général Java
    Réponses: 10
    Dernier message: 16/02/2005, 13h05

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo