[VBA] Macro semblabe à recherchev Résolu

Question

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.

eriiic · Answer

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...

Souray971 · Answer

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.

Phoenellion · Answer

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"

Phoenellion · Answer

Voilà le code :  

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 Mid(Cells(i, 2).Value, j, Len(Fournisseur)) = Fournisseur Then  
    Next j  
Next i  
End Sub

Il ne reste plus qu'à choisir comme acquérir "Fournisseur" et quoi faire une fois qu'on l'a trouvé.  

Si tu veux tu peux mettre ton fichier à télécharger pour que je code la macro directement depuis celui ci, j'irai plus vite

https://www.cjoint.com/

@+  
Phoe

Phoenellion · Answer

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

[VBA] Macro semblabe à recherchev

5 réponses

Votre réponse

Discussions similaires