Recherche chaîne de caractère dans une colonne [Résolu]

Signaler
-
 Buzuzima -
Bonjour,


J'ai une problématique un peu complexe pour moi.

A partir de deux feuilles de calcul que je veux comparer, je voudrais :
- rechercher dans la première feuille de calcul une chaîne de caractère étant égale à une cellule, - rechercher dans une colonne de la seconde feuille de calcul et renvoyer la valeur correspondante à une autre colonne.

Normalement je devrais utiliser la fonction rechercheV sur une égalité de valeur mais je ne sais pas le faire sur une recherche de chaîne de texte.

Ci dessous une illustration texte du résultat escompté.

______________________Feuille 1_____________________________________
"Colonne résultat de la ______"Colonne Référence
Fonction recherche"_________a rechercher"

01762093_01 (résultat)_____E262201414
____________________________E262469841
___________________________W262043062
01762093_01 résultat) _____W262201413
____________________________W262469842


_________________________Feuille 2__________________________________
Colonne___________________Colonne
Liste des tâches___________Liste travaux
02744840_01______________E262043061,E262043063,E262043066,E262043069,W262043062
01762093_01______________E262201411,E262201414,W262201413


D'avance merci pour vos idées et suggestion.

5 réponses

Messages postés
4
Date d'inscription
lundi 18 mai 2020
Statut
Membre
Dernière intervention
7 juillet 2020
1
Bonjour,
Voici le lien du fichier en question :
https://www.cjoint.com/c/JEspVQmlMWS
Messages postés
9755
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
10 octobre 2020
1 078
Bonsoir,
Réponse demain matin.
Messages postés
9755
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
10 octobre 2020
1 078
Bonjour,
Ci joint ma petite contribution qui utilise une macro VBA, bonne découverte.
Merci du retour.
Le lien: https://www.cjoint.com/c/JEtfiudjnb0
Messages postés
4
Date d'inscription
lundi 18 mai 2020
Statut
Membre
Dernière intervention
7 juillet 2020
1 >
Messages postés
9755
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
10 octobre 2020

Bonjour,

Voici le lien avec le fichier incluant les macros.
https://www.cjoint.com/c/JGhpXCO6NfS

Salutation,
Buzuzima
Messages postés
9755
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
10 octobre 2020
1 078 >
Messages postés
4
Date d'inscription
lundi 18 mai 2020
Statut
Membre
Dernière intervention
7 juillet 2020

Bonjour,
Dans votre code il manque le point ‘.’ devant objet Range car on fait référence à la feuille ‘Sheets("GPS")
Lignes correctes :

mot = .Range(Cible.Address).Value Les 2 lign
 .Range(Cible.Address).Characters(InStr(1, Range(Cible.Address).Value, rf), Len(rf)).Font.Color = RGB(0, 255, 0)


Salutations.
Le Pingou
>
Messages postés
9755
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
10 octobre 2020

Bonjour,

Effectivement ce petit "point" change la donne !

C'est exactement le résultat recherché, maintenant je vais continuer de faire évoluer le code afin d'automatiser au maximum e traitement de mes données.

Merci beaucoup pour votre aide.

Salutations,

Buzuzima
Messages postés
9755
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
10 octobre 2020
1 078 >
Messages postés
9755
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
10 octobre 2020

Bonjour,
Petite omission de ma part (oublier un poit devant deuxième 'Range?
Les 2 lignes:
mot = .Range(Cible.Address).Value 
.Range(Cible.Address).Characters(InStr(1, .Range(Cible.Address).Value, rf), Len(rf)).Font.Color = RGB(0, 255, 0) 

Salutations.
Le Pingou
>
Messages postés
9755
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
10 octobre 2020

Bonjour,

Je l'avais ajouté car sinon on a seulement la 1ère occurrence qui passe en vert.

Encore merci,

Salutations,

Buzuzima
Messages postés
9755
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
10 octobre 2020
1 078
Bonjour,
Ce serait plus profitable si vous mettez le fichier avec l'exemple sur https://www.cjoint.com/
et poster le lien reçu.
Bonjour,

A priori la macro fonctionne bien, je vais la tester aujourd'hui.

Un grand MERCI !

Buzuzima