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.

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, Voici le lien du fichier en question : https://www.cjoint.com/c/JEspVQmlMWS

Bonsoir, Réponse demain matin.

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

Bonjour, A priori la macro fonctionne bien, je vais la tester aujourd'hui. Un grand MERCI ! Buzuzima

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

BuzuzimaD

Messages postés: 4
Date d'inscription: lundi 18 mai 2020
Statut: Membre
Dernière intervention: 7 juillet 2020

1
19 mai 2020 à 20:57

Bonsoir,

J'ai pu tester et adapter la macro à mon besoin, elle est parfaite.

Encore merci, le sujet peut être clos.

Buzuzima

Buzuzima > BuzuzimaD

Messages postés: 4
Date d'inscription: lundi 18 mai 2020
Statut: Membre
Dernière intervention: 7 juillet 2020

12 juin 2020 à 09:08

Bonjour,

J'ai testé et adapté la macro qui répond parfaitement à mon besoin en allant chercher les informations dont j'ai besoin dans 2 feuilles de données.

Néanmoins je souhaiterai modifier le code afin recopier plus facilement les champs de plusieurs colonnes dans un soucis "d'élégance du code".

Sub RechercheMultiple1()
Dim rf As Range, Cible As Range
Range("a3:a" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
Range("b3:b" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
Range("c3:c" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
For Each rf In Range("J2:J" & Cells(Rows.Count, 2).End(xlUp).Row)
If rf <> "" Then
With Sheets("METIER")
For Each Cible In .Range("R2:R" & .Cells(Rows.Count, 3).End(xlUp).Row)
If InStr(Cible, rf) = 0 Then
' MsgBox "Non"
Else
' MsgBox "Oui"
'ad = rf.Address
Range(rf.Address).Offset(0, -9) = .Range(Cible.Address).Offset(0, -15)
Range(rf.Address).Offset(0, -8) = .Range(Cible.Address).Offset(0, -13)
Range(rf.Address).Offset(0, -7) = .Range(Cible.Address).Offset(0, -12)
Range(rf.Address).Offset(0, -6) = .Range(Cible.Address).Offset(0, -11)
nb = nb + 1
Exit For
End If
Next Cible
End With
End If
Next rf
MsgBox "La recherche est terminée. il y a " & nb & " référence/s correspondante/s."
For Each rf In Range("I2:I" & Cells(Rows.Count, 2).End(xlUp).Row)
If rf <> "" Then
With Sheets("SMS")
For Each Cible In .Range("E2:E" & .Cells(Rows.Count, 3).End(xlUp).Row)
If InStr(Cible, rf) = 0 Then
' MsgBox "Non"
Else
' MsgBox "Oui"
'ad = rf.Address
Range(rf.Address).Offset(0, -8) = .Range(Cible.Address).Offset(0, -2)
Range(rf.Address).Offset(0, -7) = .Range(Cible.Address).Offset(0, 0)
Range(rf.Address).Offset(0, -6) = .Range(Cible.Address).Offset(0, 1)
Range(rf.Address).Offset(0, -5) = .Range(Cible.Address).Offset(0, 2)

nb = nb + 1
Exit For
End If
Next Cible
End With
End If
Next rf
MsgBox "La recherche est terminée. il y a " & nb & " référence/s correspondante/s."
End Sub

Merci d'avance pour vos idées.

Buzuzima

Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

1 299 > Buzuzima
12 juin 2020 à 10:18

Bonjour,
Est-ce que votre code fonctionne Oui ou Non?
Si oui c'est parfait.
Si non qu'elle est le message d'erreur et sur quelle ligne de code!
Salutations.
Le Pingou

Buzuzima > Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

12 juin 2020 à 15:25

Bonjour,

Oui le code fonctionne bien, je souhaitais simplement l'optimiser.

Salutations,

Buzuzima

Buzuzima > Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

2 juil. 2020 à 16:27

Bonjour,

Je souhaiterai rajouter une fonctionnalité à la macro :
Colorier le texte cible recherché dans la colonne R de la feuille METIER

For Each rf In Range("J2:J" & Cells(Rows.Count, 2).End(xlUp).Row)
If rf <> "" Then
With Sheets("METIER")
For Each Cible In .Range("R2:R" & .Cells(Rows.Count, 3).End(xlUp).Row)
If InStr(Cible, rf) = 0 Then
' MsgBox "Non"
Else
' MsgBox "Oui"
'ad = rf.Address
Range(rf.Address).Offset(0, -9) = .Range(Cible.Address).Offset(0, -15)
Range(rf.Address).Offset(0, -8) = .Range(Cible.Address).Offset(0, -13)
Range(rf.Address).Offset(0, -7) = .Range(Cible.Address).Offset(0, -12)
Range(rf.Address).Offset(0, -6) = .Range(Cible.Address).Offset(0, -11)
nb = nb + 1
Exit For
End If
Next Cible
End With
End If
Next rf
MsgBox "La recherche est terminée. il y a " & nb & " référence/s correspondante/s."

Merci d'avance pour vos idées.

Cordialement,

Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

1 299 > Buzuzima
5 juil. 2020 à 11:07

Bonjour,
Exemple pour la première cellule, à répéter pour chaque cellules :

Range(rf.Address).Offset(0, -9) = .Range(Cible.Address).Offset(0, -15)
'Couleur vert ColorIndex=10 , rouge ColorIndex=3 (N° selon 56 couleurs grille Colorindex)
Range(rf.Address).Offset(0, -9).Font.ColorIndex = 3

Salutations.
Le Pingou

Buzuzima > Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

6 juil. 2020 à 10:29

Bonjour,

Merci pour la réponse qui pourras me resservir sur d'autres fonctionnalités.

En fait, je cherche à colorier uniquement le texte de référence recherché dans la cible.

Exemple :
- la référence dans la plage "R3:R" = O262262688
- la cible dans la feuile "GPS" plage "R2:R" = D262262673,D262262674,D262262675,D262262677,E262262665,E262262670,E262262680,O262262688,R262262672,W262262685

Je voudrais qu'à chaque occurrence trouvée dans la cible, le texte correspondant soit colorié en vert.

J'ai trouvé un bout de code que j'ai essayé d'adapter, mais j'ai une erreur à l'exécution de la macro que je ne sais pas debuger :
Range(Cible).Characters(InStr(1, Range(Cible).Value, rf), Len(rf)).Font.Color = RGB(0, 255, 0)

Le message d'erreur au debogage : Range(Cible).Characters = < La méthode Range de l'objet global a échoué
(https://excel-malin.com/faq/vba-faq/vba-mettre-en-gras-partie-de-texte/#comment-3853

Voici le morceau de la macro dans son contexte :

Dim rf As Range, Cible As Range

For Each rf In Range("R3:R" & Cells(Rows.Count, 2).End(xlUp).Row)
If rf <> "" Then
With Sheets("GPS")
For Each Cible In .Range("R2:R" & .Cells(Rows.Count, 3).End(xlUp).Row)
If InStr(Cible, rf) = 0 Then
' MsgBox "Non"
Else
' MsgBox "Oui"
'ad = rf.Address
Range(rf.Address).Offset(0, -17) = .Range(Cible.Address).Offset(0, -17)
Range(rf.Address).Offset(0, -9).Font.ColorIndex = 10
Range(rf.Address).Offset(0, -16) = .Range(Cible.Address).Offset(0, -15)
Range(rf.Address).Offset(0, -15) = .Range(Cible.Address).Offset(0, -13)
Range(rf.Address).Offset(0, -14) = .Range(Cible.Address).Offset(0, -12)
Range(rf.Address).Offset(0, -13) = .Range(Cible.Address).Offset(0, -11)
Range(rf.Address).Offset(0, -12) = .Range(Cible.Address).Offset(0, -10)
Range(rf.Address).Offset(0, -11) = .Range(Cible.Address).Offset(0, -9)
Range(rf.Address).Offset(0, -10) = "=[@[Début calculé]] - [@[Date_pose]]"
Range(rf.Address).Offset(0, -9) = .Range(Cible.Address).Offset(0, -8)
Range(rf.Address).Offset(0, -8) = "=[@[Date_depose]]-[@[Fin calculée]]"
'Range(rf.Address).Offset(0, -7) = .Range(Cible.Address).Offset(0, -2)
'Range(rf.Address).Offset(0, -6) = .Range(Cible.Address).Offset(0, -1)

'InStr(1, Range(Cible).Value, rf), Len(rf)) (test)

'Range(Cible).Characters(InStr(1, Range(Cible).Value, rf), Len(rf)).Font.Color = RGB(0, 255, 0)

'Cible.Font.Color = RGB(0, 255, 0) (colore l'ensemble de la cellule cible)

nb = nb + 1
Exit For
End If
Next Cible
End With
End If
Next rf
'MsgBox "La recherche est terminée. il y a " & nb & " référence/s correspondante/s."

Merci pour vos idées et suggestions

Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

1 299 > Buzuzima
6 juil. 2020 à 16:27

Bonjour,
Je ne vais pas construire un fichier qui corresponde au votre pour trouver la correction à apportée au code.
Sans votre fichier désolé d'en faire plus.
Salutations.
Le Pingou

Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

1 299 > Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

6 juil. 2020 à 17:48

Bonjour,
Juste au passage merci de communiqué la réponse reçu de:

Salutations.
Le Pingou

BuzuzimaD

Messages postés: 4
Date d'inscription: lundi 18 mai 2020
Statut: Membre
Dernière intervention: 7 juillet 2020

1 > Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

6 juil. 2020 à 22:59

Bonjour,

Je vous prépare un fichier pour demain soir car je ne pourrais pas le poster à partir de mon poste de travail.

D'avance merci et oui je posterai la solution de ou sur l'autre forum.

Salutation,
Buzuzima

BuzuzimaD

Messages postés: 4
Date d'inscription: lundi 18 mai 2020
Statut: Membre
Dernière intervention: 7 juillet 2020

1 > Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

7 juil. 2020 à 17:50

Bonjour,

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

Salutation,
Buzuzima

Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

1 299 > BuzuzimaD

Messages postés: 4
Date d'inscription: lundi 18 mai 2020
Statut: Membre
Dernière intervention: 7 juillet 2020

7 juil. 2020 à 22:58

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

Buzuzima > Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

8 juil. 2020 à 09:51

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

Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

1 299 > Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

8 juil. 2020 à 10:00

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

Buzuzima > Le Pingou

Messages postés: 11113
Date d'inscription: mercredi 11 août 2004
Statut: Contributeur
Dernière intervention: 15 août 2022

8 juil. 2020 à 10:26

Bonjour,

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

Encore merci,

Salutations,

Buzuzima

Recherche chaîne de caractère dans une colonne

5 réponses

Newsletters