[VBA] Macro semblabe à recherchev

Résolu

Souray971 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Souray971 Messages postés 8 Date d'inscription Statut Membre Dernière intervention - 21 déc. 2011 à 14:22

Bonjour à tous,

Je viens vous demander de l'aide sur un projet sur lequel je travaille.

Contexte
Je travaille sur un fichier excel qui contient 2 feuilles. Les deux feuilles ont une colonne "Projet", le problème c'est que ces deux feuilles ont été crées par deux personnes absolument différente. En sommes un même projet sera présent sur la seconde feuille mais avec un nom différent comme par exemple:
Feuille 1: Paris Bercy
Feuille 2: Projet Paris Bercy
Etant donné que je dois récupérer des infos sur la seconde feuille pour les rentrer dans la première, j'ai naturellement pensé à une fonction RECHERCHEV qui n'est pas adapté puisqu'il n'est pas possible de chercher une chaine de caractère comprise à l'intérieur d'une cellule. Si je cherche "Paris Bercy" dans "Projet Paris Bercy" cela ne fonctionnera pas à cause du mot "Projet" qu'il y a avant "... Paris Bercy".

Mes avancées
Dans mes recherches de solution j'ai appris qu'il fallait certainement passer par une macro avec l'argument lookat associé à xlpart.
Etant novice en VBA et ayant de vaste souvenir lointain de programmation, je crois savoir qu'il me faudra passer par une boucle do while afin de parcourir l'ensemble de mon tableau.
En somme j'ai vraiment du mal à demarrer d'autant plus que je n'ai aucune idée des éléments à déclarer.

Ma question
Quelqu'un pourrait-il m'aider dans la rédaction de cette macro qui est typiquement une recherchev à la différence que la comparaison de l'élément de recherche se limite à une partie du contenu et non pas sa totalité.

PS: Mon fichier à près de 400 lignes, l'exemple que j'ai pris est un exemple bateau. L'idée d'harmoniser les noms de projets n'est pas envisageable car ont peu retrouver n'importe qu'elle chaine de caractère devant le nom du projet.

Afficher la suite

A voir également:

Remplacer recherchev par une macro
Remplacer disque dur par ssd - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Remplacer par word - Guide
Recherchev texte ✓ - Forum Excel
Remplacer coco - Accueil - Réseaux sociaux

5 réponses

Réponse 1 / 5

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

par formule, pour ramener l'info de la colonne B :
=INDEX(Feuil2!$B$2:$B$10;EQUIV("*" & A2;Feuil2!$A$2:$A$10;0))

eric

edit : ou "*" & A2 & "*" si tu peux avoir des mots après...

Réponse 2 / 5

Souray971 Messages postés 8 Date d'inscription Statut Membre Dernière intervention

Bonjour eriiic,

Merci pour ta réponse, mais la fonction EQUIV ce base sur un résultat exact, supérieur ou inférieur à une valeur.

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

As-tu testé au moins ?
eric

Souray971 Messages postés 8 Date d'inscription Statut Membre Dernière intervention

Bien sure, en plus j'étais très enthousiaste puisque je pensais que la commande "*" permettait de faire une recherche sur le chaine A2 quelque soit ce que la précède

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

curieux, la réponse d'Eric fonctionne je viens de tester

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

puisque je pensais que la commande "*" permettait de faire une recherche sur le chaine A2 quelque soit ce que la précède
c'est bien ça oui : https://www.cjoint.com/?ALvnZ6k2R9U
eric

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

hé oui, mais ça s'accroche à du VBA , peut- être pour frimer...

pour passer pour une cloche au boulot, rien de tel de passer par du VBA quand on peut le faire par formules...
et m^me s'il y a plusieurs réponses avec le nom demandé

Réponse 3 / 5

Phoenellion Messages postés 116 Date d'inscription Statut Membre Dernière intervention 33

Bonjour Souray971

Tu mentionne macros dans ton sujet, je pense donc que tu cherche un code VBA :

j'ai eu le même problème que toi dans un de mes programmes et voici un vieux morceau de code qui devrait t'aider mais il y a quelques prérequis :

- admettons que ta donnée se trouve dans la colonne B (index numérique "2" donc)
- Tu dois éviter "Projet " soit ta recherche commence au 8ème caractère de la cellule
- Tu cherches "Paris Bercy" soit une chaine 11 de caractères non variable.

Sub Toto()
Dim a, b, i as Long

' Délimitation de la plage active
    a = Rows.Count
    a = Cells(a, 2).End(xlUp).Row 'N° dernière ligne

for i = 1 to a
    If Mid(Cells (i,2).Value,8,11) = "Paris Bercy" then ***
Next i
End Sub

Je peux t'adapter le code mais j'ai besoin de plus dé précisions (cellules à copier, où les copier...

Textuellement, après avoir défini "a" comme étant la dernière ligne utilisée (non vide) de la colonne B, pour les lignes de 1 à "a", la macro va chercher si o partir du 8ème caractère, les 11 caractères de la cellule cellule Bi sont bien"Paris Bercy"

Souray971 Messages postés 8 Date d'inscription Statut Membre Dernière intervention

Bonjour Phoenellion,

Tout d'abord je te remercie pour ton aide.

Effectivement je recherche une macro mais si une solution consistant à utiliser une fonction peux répondre à mon besoin, je serai preneur.

Je pense que tu as bien cerné ma problématique à une exception:
La chaîne de caractère qui est recherchée peut être à x caractères du début ou de la fin de la cellule ( et pas forcément à partir du 8ème caractère.
En regardant ton programme je me dis que l'on peu peut être remplacer le 8 par une variable que l'on incrémenterai. Je sais que je suis vague, mais j'ai arrêté la programmation depuis 3 ans du coup je n'ai que des souvenirs lointains.

Pour te donner plus de précision sur mon classeur
Colonne A - Feuille 1 B - Produit C- Fournisseur
Paris Bercy x
Paris 2eme y
Levallois z
Clichy u

Colonne A -Feuille 2 B- Fournisseur
Projet Paris Bercy Delta
Levallois phase 2 Apha
Parking UTC Omega
Clichy Ville Sigma
Urbanisation Paris 2eme Teta

L'idée est de récupérer automatiquement le nom du fournisseur qui est sur la feuille 2 pour le mettre directement dans la colonne C de la feuille 1

Phoenellion Messages postés 116 Date d'inscription Statut Membre Dernière intervention 33

d'accord, donc on cherche "Paris Bercy" à une position aléatoire dans dans une chaine de caractères.

Je modifie en conséquence et je reviens avec le code

@+
Phoe

Phoenellion Messages postés 116 Date d'inscription Statut Membre Dernière intervention 33

je n'arrive pas à supprimer mon précédent commentaire... à lire à la place :

d'accord, donc on cherche une chaine de caractère variable à une position aléatoire dans dans une chaine de caractères.

CA me paraissait un peu facile aussi, mais ce sera plus marrant comme ça

l'idée de faire varier le caractère de départ n'est pas mauvaise. il doit y avoir un moyen plus simple mais honnêtement, je ne le connais pas donc on va contourner et faire avec ce qu'on a.

pour ce qui est de la chaine de caractère variable, on a 2 solutions
- soit on te fait une box où tu tapes le nom voulu, on peut même faire un userform (fenêtre) à choix multiples pour éviter la saisie qui te ferai perdre du temps
- soit on se base sur le contenu d'une cellule qui contient l'information clef

je code déjà la recherche par positions successives dans la cellule cible.

@+
Phoe

Souray971 Messages postés 8 Date d'inscription Statut Membre Dernière intervention

Merci pour ta contribution et ton investissement Phoenellion, la solution de eriic marche très bien.

Réponse 5 / 5

Phoenellion Messages postés 116 Date d'inscription Statut Membre Dernière intervention 33

en fait il y a plus simple :

la fonction InStr() cherche dans une chaine de caractère la présence d'une autre chaine de caractère, peu importe où, on a donc :

Sub Toto()  
Dim a, b, i, j As Long  
Dim Fournisseur As String  

' Délimitation de la plage active  
    a = Rows.Count  
    a = Cells(a, 2).End(xlUp).Row 'N° dernière ligne  

For i = 1 To a  
    For j = 1 To Len(Cells(i, 2))  
        If InStr(1, Cells(i, 2), Fournisseur, 1) > 0 Then  
    Next j  
Next i  
End Sub

Il ne te reste plus qu'à m dire :
- comment définir la valeur de notre variable Fournisseur
- que faire une fois qu'on a une correspondance

Par contre, je verrai ça demain car là je vais me coucher (minuit passé chez moi)

@+
Phoe

Discussions similaires

Macro recherchev et copier les lignes

Remplacer une RECHERCHEV par une MACRO???!

Macro équivalente à recherchev

RechercheV dans macro avec case variable

recherchev en vba

masquer la valeur #N/A

Votre réponse

Discussions similaires