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 :

rechercher une valeur dans une plage


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    août 2007
    Messages
    78
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2007
    Messages : 78
    Points : 43
    Points
    43
    Par défaut rechercher une valeur dans une plage
    bonjour,

    dans une plage, je souhaite trouver une valeur numérique puis récupérer l'adresse de la cellule qui la contient

    merci d'avance

  2. #2
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    juillet 2008
    Messages
    9 432
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : juillet 2008
    Messages : 9 432
    Points : 31 859
    Points
    31 859
    Par défaut
    Tu connais cette valeur?
    Elle est issue d'une formule ou une simple valeur?
    Quel le type de cette valeur? (double, integer,...)?
    Cordialement.
    J'utilise toujours le point comme séparateur décimal dans mes tests.

  3. #3
    Expert éminent Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    juin 2006
    Messages
    4 752
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : juin 2006
    Messages : 4 752
    Points : 9 394
    Points
    9 394
    Par défaut
    Bonjour,

    tu peux utiliser Find

    Ici on cherche 56 dans la plage A1:A10
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Dim rg As Range
     
    Set rg = Range("A1:A10").Find(56, Range("A1"))
     
    MsgBox rg.Address
    Jérôme

  4. #4
    Membre régulier
    Inscrit en
    mai 2010
    Messages
    100
    Détails du profil
    Informations forums :
    Inscription : mai 2010
    Messages : 100
    Points : 95
    Points
    95
    Par défaut
    Bonjour,

    J'ai une méthode qui permet de chercher une valeur "String" dans une plage. Il suffirait d'adapter.

    >
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Dim O_Cell as Object
    Dim C_UI as String
    
            C_UI = "ValeurAChercher" 'valeur à chercher       
            Application.Goto Reference:="UI" ' "UI" est le nom de la zone de recherche        
            Set O_Cell = Selection.Find(C_UI) ' recherche de la valeur        
            If Not O_Cell Is Nothing Then 'si l'objet O_Cell contient les coordonnées de la cellule            
                    MsgBox "J'ai trouvé"
                    O_Cell.select ' sélection de la cellule        
            End If

  5. #5
    Membre du Club
    Profil pro
    Inscrit en
    août 2007
    Messages
    78
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2007
    Messages : 78
    Points : 43
    Points
    43
    Par défaut
    Citation Envoyé par mercatog Voir le message
    Tu connais cette valeur?
    Elle est issue d'une formule ou une simple valeur?
    Quel le type de cette valeur? (double, integer,...)?
    simple valeur de type integer

  6. #6
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    juillet 2008
    Messages
    9 432
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : juillet 2008
    Messages : 9 432
    Points : 31 859
    Points
    31 859
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    dim c as range
    dim TaValeur as integer
     
    TaValeur=36
    set c=sheets("Feuil1").range("A1:D100")find(TaValeur, lookin:=xlvalues, lookat:=xlwhole)
    if not c is nothing then
        msgbox c.address
        set c=nothing
    else
       msgbox "valeur " & TaValeur &" non trouvée"
    end if
    Cordialement.
    J'utilise toujours le point comme séparateur décimal dans mes tests.

  7. #7
    Membre régulier

    Homme Profil pro
    Restaurateur
    Inscrit en
    juin 2008
    Messages
    316
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Restaurateur
    Secteur : Alimentation

    Informations forums :
    Inscription : juin 2008
    Messages : 316
    Points : 102
    Points
    102
    Billets dans le blog
    1
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub mavaleur()
     
    Dim plage as range
    Set plage = thisworkbook.worksheets("Feuil1").range("a1:c10")
    Monchiffre = 8 'adefinir suivant la recherche
     
    For each cell in plage
    If cell.value = Monchiffre then
    Msgbox cell.address & " est l' adresse de la valeur: " & cell.value
    End if
    Next cell
     
    End sub

  8. #8
    Membre du Club
    Profil pro
    Inscrit en
    août 2007
    Messages
    78
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2007
    Messages : 78
    Points : 43
    Points
    43
    Par défaut
    merci à tous pour votre aide

    maintenant, comment récupérer dans une variable l'adresse (ligne et colonne) trouvée ?

  9. #9
    Membre régulier
    Homme Profil pro
    Technicien méthodes métrologie sur site
    Inscrit en
    novembre 2010
    Messages
    107
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Technicien méthodes métrologie sur site
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2010
    Messages : 107
    Points : 114
    Points
    114
    Par défaut
    C'est déjà fait dans le code de Djoumusic.
    Sauf qu'il l'affiche dans une msgbox
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    For each cell in plage
    If cell.value = Monchiffre then
    nom_de_ta_variable_ou_tu_veux_ladresse=cell.address 
    End if
    Next cell

  10. #10
    Membre régulier
    Inscrit en
    mai 2010
    Messages
    100
    Détails du profil
    Informations forums :
    Inscription : mai 2010
    Messages : 100
    Points : 95
    Points
    95
    Par défaut
    Dans ma routine tu fais :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    N_Lig = O_Cell.Row
    N_Col = O_Cell.Column

  11. #11
    Nouveau Candidat au Club
    Homme Profil pro
    BI
    Inscrit en
    juin 2018
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : BI
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : juin 2018
    Messages : 1
    Points : 1
    Points
    1
    Par défaut UI c'est la feuille ??
    Citation Envoyé par setepenre Voir le message
    Bonjour,

    J'ai une méthode qui permet de chercher une valeur "String" dans une plage. Il suffirait d'adapter.

    >
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Dim O_Cell as Object
    Dim C_UI as String
    
            C_UI = "ValeurAChercher" 'valeur à chercher       
            Application.Goto Reference:="UI" ' "UI" est le nom de la zone de recherche        
            Set O_Cell = Selection.Find(C_UI) ' recherche de la valeur        
            If Not O_Cell Is Nothing Then 'si l'objet O_Cell contient les coordonnées de la cellule            
                    MsgBox "J'ai trouvé"
                    O_Cell.select ' sélection de la cellule        
            End If

Discussions similaires

  1. Réponses: 1
    Dernier message: 13/04/2015, 11h17
  2. Réponses: 5
    Dernier message: 27/03/2014, 10h59
  3. Réponses: 10
    Dernier message: 07/07/2012, 17h11
  4. Réponses: 8
    Dernier message: 28/11/2011, 11h40
  5. Recherche une valeur d'une cellule dans une colonne d'une autre feuille
    Par kourria dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 21/06/2007, 13h48

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