Macro "Find" avec variable

Fermé
rls - 20 juil. 2017 à 21:18
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 31 juil. 2017 à 11:55
Bonsoir,

Je souhaiterais solliciter vote aide pour la création d'une macro,

Dans une feuille "Feuil1" j'ai une colonne D avec des nombres aléatoire (ex: 1343,4957,17023 etc... il n'y a aucun ordre logique)

Dans une feuille "Feuil2" j'ai une colonne V avec d'autre nombre aléatoire (aussi logique que ceux de la première feuille :) )

Cependant, certains nombres sont identiques dans la feuille 1 et 2, je voudrais créer une macro avec "Find" pour prendre les valeurs de la feuille 1 et les chercher dans la feuille 2. Si le nombre est trouvé alors il est mis sur fond vert dans la feuille 2, sinon rien.
Le problème est que dans "What= " il lui faut une valeur :

Cells.Find(What:= , After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

Mais dans mon cas il faudrait tester toutes les valeurs une par une (Il n'y en a pas non plus 200 000 sinon j'imagine que c'est la saturation du PC qui m'attend...) j'avais pensé à une sorte de boucle peut-être

Ou bien avez-vous une autre alternative à proposez ?

Cordialement
A voir également:

3 réponses

Réponse 1 / 3
jordane45 Messages postés 38471 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 2 mai 2025 4 742
20 juil. 2017 à 21:23
Bonjour,


j'avais pensé à une sorte de boucle peut-être

Oui.
Dans laquelle tu utilises le FIND

Voici des exemples pour FIND
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel

.
0
rls
24 juil. 2017 à 12:16
Merci jordane45 pour cet article.
Cependant je vois que l'on se réfère toujours à une seule même valeur de recherche pour le "What" alors que dans mon cas cette valeur change d'une cellule à l'autre...
0
jordane45 Messages postés 38471 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 2 mai 2025 4 742 > rls
24 juil. 2017 à 13:40
Non... les exemples utilisent une variable me semble t'il. ..
0
Réponse 2 / 3
thev Messages postés 1970 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 30 avril 2025 710
Modifié le 28 juil. 2017 à 20:39
Bonjour,

ci-dessous proposition d'exemple de code : 

 Sub recherche()
    Dim tb(), nombre As Range, i As Long
    
    '// Conversion des valeurs de la colonne D de la feuille 1 en un tableau à une dimension
    With Feuil1.UsedRange
        tb = Application.Transpose(.Columns("D").Value)
    End With
    '// Recherche des valeurs de la colonne V de la feuille 2 dans le tableau de feuille 1
    With Feuil2.UsedRange
        On Error Resume Next
        For Each nombre In .Columns("V").Cells
            i = 0: i = Application.Match(nombre.Value, tb, 0)
            If i > 0 Then nombre.Interior.Color = 5296274
        Next nombre
    End With
End Sub


 
0
Réponse 3 / 3
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 258
Modifié le 31 juil. 2017 à 11:55
Bonjour,

Ou bien avez-vous une autre alternative à proposez ?
une MFC
eric

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
0

Discussions similaires

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

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll


Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

0 réponse
VBA : Range avec références variables..
Antoine -
MIKE59 -

Bonjour à tous,
je n'arrive pas à trouver sur le forum une manière d'utiliser la fonction Range avec des variables pour les lignes et les colonnes. Je m'explique :

J'ai Range("40:A500" dans mon code, et je voudrai remplacer A40 et A500 par des variables que j'ai définies précédemment.
Imaginons que mes variables définies avant soient ColL et LigneL, je voudrai remplacer Range(A40:A500) par quelquechose comme :

Range(ColL & LigneL ":" ColL & 500) j'ai beau essayer dans tous les sens et de manières différentes je n'y arrive pas !

Merci d'avance pour votre aide !!

Antoine




7 réponses
linux : find & grep
2009 -
Gavroche -

Bonjour,

il faut a la question suivante en utilisant grep et find :
affichier les noms de fichiers qui contient le mot "premier" a partir de votre dossier "home"

j'aii essayé avec : find ~ -name * -print -exec grep "premier"

mais j'arrive que a afficher les lignes ... comment faire pour afficher le nom de fichier ?

15 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

Bonjour,
Savez vous si on peut, dans une cellule, avec une formule et NON avec une macro, récupérer l'information de la couleur d'une autre cellule ?
Je ne veux pas copier les attributs d'une cellule colorée mais savoir si cette cellule a été changée en rouge ou vert par ex. et selon le résultat engager d'autres actions, calculs.

Merci d'avance.

7 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

Bonjour,
je cherche à transformer un chiffre en lettre dans excel mais sans macro.
Quelqu'un a déjà apporter une réponse génial à base d'une succession de formule =si() mais je n'arrive pas à la retrouver sur le forum.
Please aidez moi

6 réponses