Code vb excel capable de faire des recherches sans les 3 derniers caractères d'une cellule

Bonjour,

Je suis actuellement stagiaire , je suis dans un projet où je développe une solution en C# mais il m'est demandé d'effectuer des traitement sur excel par le biais de code.

J'ai déjà pu implémenter des fonctionnalités sur ce Excel mais il me reste cependant un problème que je n'arrive pas à régler.

Voila j'ai un fichier Excel configuré pour faire des traitements et c'est ce dernier qui contient du code vb. Ce fichier excel contient 3 feuilles. Le besoin que j'aimerais traiter c'est que lorsqu'on va coller des données dans la feuille 3, plus précisément dans la colonne A , B et C j'aimerais faire la correspondance entre les données de la colonne A de la feuille 3 (LD) et la 4 ème ligne de la feuille 2 (Formatage IM).

C'est à dire que si une valeur dans colonne A de la feuille 3 est la même qu'une valeur de la 4ème ligne de la feuille 2, il faudrait récupérer la valeur dans la colonne C de la feuille 3.
Sauf que le problème est que dans les cellules de la colonne A de la feuille 3, il n'y a pas par exemple l'unité "ppm" comme il peut y avoir dans la 4ème Ligne de la feuille 2 ce qui fait que la recherche ne fonctionne pas. J'aimerais faire en sorte que lors de la recherche on ne prenne que en compte ce qu'il y a avant "ppm"

Par exemple :

voici les données dans la feuille 2 :
Pièce jointe 592469

voici les données de la feuille 3 :
Pièce jointe 592470


J'aimerais que pour chaque valeur présente dans la colonne A de la feuille 3, le code fasse une recherche dans la 4eme ligne de la feuille 2 sans prendre en compte le "ppm" à la fin de chaque cellule. Si les valeurs sont les même et bien on copie la valeur de la colonne C de la feuille 3 correspondante et on la colle dans la 5ème ligne de la feuille 2.

J'ai fait le code pour la recherche, mais je n'arrive pas à intégrer le fait de prendre en compte tout ce qu'il y'a avant "ppm" dans la 4ème ligne de la feuille 2 . Pouvez-vous m'aider sur ce point ?

Voici le code que j'ai fait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Rechercher()     For k = 2 To 50 ' plage des colones à traiter Sheets("Formatage_IM").Select     Cells(5, k) = "=IFERROR(VLOOKUP(R4C" & k & ",LD!R1C1:R200C2,2,FALSE),"""")" 'Si on ne trouve pas on met blanc pour éviter #N/A   'On cherche la valeur de R1C1 Row 1 Colonne k, dans la table feuille LD de R1C1 à R200C2, la deuxième colonne   Next End Sub

---

Merci de votre compréhension .

Bonjour à toi,

4 possibiltés qui me viennet directement :

- Utilisation de la fonction Find avec un petit * a ajouter à la fin de ta valeur recherché :

Code:

---

1 2 3

Valeur = Sheets("Feuil3").cells(1,1) & "*" Set Trouve = Sheets("Feuil2").Row(4).Cells.Find(what:=Valeur, Lookat:=xlWhole)

---

- Regarde la fonction like : tu peux comparer 2 chaînes de caractères et ajouter un * à la fin de l'information de ta feuille 3 pour etre indépendant de ton unité.

- Il semble que l'unité soit marqué dans la feuille 3, tu assemble les 2 chaînes de caractère pour correspondre à ta feuille 2 : Valeur = Cells(1,1) & " " & Cells(1,2)

- Et la moins jolie, tu compare une à une les cases en supprimant les dernières lettre de la chaîne de la feuille avec un "Left(Valeur, Len(Valeur) -3)".

A toi de faire ton choix.

Cordialement,
Zeabon

Bonsoir,

Je n'ai pas vraiment compris à quoi sert le "*" a la fin de la formule dans la première solution, de plus dans la formule find, que signifie le "what:=Valeur" le nom de chaque cellule de la ligne 4 de la feuille 2 ?

Merci de votre compréhension

Le * permet d'avoir une suite de caractère non définit dans ta recherche.

Si tu recherche : "MaValeur" alors tu trouveras que les résultats conetant uniquement "MaValeur"
Mais si tu recherche : "*MaValeur*" alors il trouveras les résultats avec "MaValeur" dans le texte.

"what:=Valeur" dans find définit se que tu souhaite trouvé. C'est la variable que je définis juste au-dessus pour ajouté le *


Zeabon

Mais le valeur peut être une colonne entière ?

Je vous demande ça car je souhaite avoir quelque chose d'assez générique car je ne saurai jamais à l'avance des données qui vont être collées dans le excel. De base le fichier est vierge car il permet de faire des traitements sur les données qu'on va venir coller de dedans


Lionel

Salut.

En Excel, tu peux réaliser cela avec RECHERCHEV, INDEX/EQUIV ou RECHERCHEX (XL365) avec les jokers ? et * => ? remplace n'importe quel caractère à un endroit précis, * remplace un nombre indéfini de caractères à un endroit précis. Tu peux évidemment transcrire cette technique en VBA.

Pièce jointe 592528

Vu ta configuration, je m'orienterais vers cette solution, quitte à la mettre en place en VBA.

Citation:

---

Envoyé par Lionel84100

[...]car je ne saurai jamais à l'avance des données qui vont être collées dans le excel. De base le fichier est vierge car il permet de faire des traitements sur les données qu'on va venir coller de dedans[...]

---

Idéalement, on travaille cela sur des tableaux structurés ;)

Bonjour Pierre,

Ou devons nous placer le "*" dans la formule ?

Bonjour,
L'astérisque représente de 0 à x caractères quelques soient leurs valeurs. Ainsi

• "*ER" signifie que l'on cherche tout ce qui se termine par ER ou ne contiendrait que ER
• "A*" commence par A ou ne contient que A
• "*EZ*" contient EZ ou commence par EZ, ou se termine par EZ ou ne contient que EZ

et toutes les combinaisons sont possibles avec * et ?

Il faut placer les jokers * et ? là où l'on veut dire "n'importe quel(s) caractère(s)", avec ? pour un caractère et * pour plusieurs

Pièce jointe 592576

Citation:

---

Envoyé par Lionel84100

[...]
Ou devons nous placer le "*" dans la formule ?

---

Il faut donc parfois recomposer le "motif" en concaténant les données, comme je l'ai illustré dans mon précédent message :

Pièce jointe 592575

est ce que je peux rajouter une astérisque dans mon code vba que j'ai déjà fait pour que ça réponde à mon besoin qui est de faire une recherche avec le contenu d'une cellule dans la colonne A de la feuille 3 avec une cellule de la ligne 4 de la feuille 2.


Mon code ressemble à ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Rechercher() For k = 2 To 50 ' plage des colones à traiter Sheets("Formatage_IM").Select     Cells(5, k) = "=IFERROR(VLOOKUP(R4C" & k & ",LD!R1C1:R200C3,3,FALSE),"""")" 'Si on ne trouve pas on met blanc pour éviter #N/A   'On cherche la valeur de R1C1 Row 1 Colonne k, dans la table feuille LD de R1C1 à R200C2, la deuxième colonne   Next     End Sub

---

Es-tu sûr qu'il y a une correspondance entre le k de ta cellule et le k de la plage sur laquelle tu appliques RECHERCHEV?

Perso

• je travaillerais avec les tableaux structurés;
• je trouve que la notation R1C1 est une abomination;
• Pas besoin de boucler pour placer une formule sur une plage;
• Pas besoin de sélectionner la feuille ou les cellules pour "jouer" avec.

Pourrais-tu, au départ d'une copie d'écran, expliquer ce que tu souhaites réaliser?

Pas de soucis je vais vous expliquer ce que je souhaite appliquer.

Donc au départ, j'ai un excel vierge dans lequel je vient coller des données qui sont des résultats d'analyses chimiques, donc ces résultats peuvent varier. et moi mon but avec ce fichier excel vierge c'est de permettre de faire des traitements en optimisant le temps des chimistes au maximum.

Donc on va venir coller des données dans la feuille 1 du classeur (Donnés ICP) ensuite on va venir faire des actions pour sélectionner les lignes qu'on veut. Cette partie fonctionne correctement.

On va aussi venir coller des données appelées LD dans la feuille 3 du classeur, et j'aimerais que quand on clique sur le bouton "rechercher" il y a une correspondance qui se fait entre les valeurs de la colonne A de la feuille 3 et les valeurs de la 4ème ligne de la feuille 2. Si les cellules se correspondent il faut venir coller les données de la colonne 3 de la feuille 3 dans la ligne 5 (LD) de la feuille 2.

Capture de la feuille 2 :
Pièce jointe 592577

Capture de la feuille 3 :
Pièce jointe 592578


Jusqu'à présent j'arrivait à faire fonctionner car je croyait que les valeurs de la colonne A de la feuille 3 et les valeurs de la ligne 5 de la feuille 2 était exactement les mêmes avec les unités sauf que le problème c'st qu'il y a les unités (ppm) à la fin de chaque cellule dans la ligne 5 ce qu'il n'y a pas dans les cellules de la colonne A de la feuille 3.

Voilà comment je procéderais, sans trop me préoccuper de la conception du classeur qui pour moi est à revoir. J'ai supposé que tu voulais transférer les valeurs de la colonne C de la feuille de recherche

Avec les deux feuilles suivantes:
Pièce jointe 592582

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test() Dim Source As Range Dim Col   Set Source = Worksheets("recherche").Range("a1") Do While Source.Value <> "" Col = Application.Match(Source.Value & "*", Worksheets("tableau").Range("4:4"), 0) If Not IsError(Col) Then Worksheets("tableau").Range("4:4")(2, Col).Value = Source(1, 3).Value Set Source = Source(2) Loop End Sub

---

Super ça marche comme je le souhaite merci beaucoup à vous .

Juste une question, comment dois-améliorer votre code pour que cela marche avec toutes les valeurs présentes dans la colonnes a ?

Normalement, ça fonctionne de cette manière. La boucle Do... va commencer en A1 de la feuille recherche et descendre à chaque tour jusqu'à trouver une cellule vide en A.

Pièce jointe 592584

Bah en testant sur votre classeur ça marche très bien mais dans le bien ça fonctionne uniquement pour la cellule A1.

Vérifie bien tes valeurs (espaces, point ou virgule, etc...).

Si tu lances la procédure avec F8 côté VBA, tu verras le code boucler et tu pourras comparer les valeurs pour voir quand le transfert passe ou pas.

Dans ton classeur et si je reprends tes données, es-tu certain d'avoir AI 394.401 nm au début d'une cellule de la ligne 4 de ton tableau?

Dans ton classeur et si je reprends tes données, es-tu certain d'avoir AI 394.401 nm au début d'une cellule de la ligne 4 de ton tableau?

Non il se peut qu'il n'y ait pas des valeurs qui ne soient pas au début d'une cellule dans la ligne 4 du tableau c'est pour ça que je souhaite faire des recherches.

Je ne comprends pas le problème que tu rencontres. Le code va boucler sur les valeurs en A de la feuille Recherche. Lorsque la valeur de la cellule est trouvée en début d'une cellule de la ligne 4 de la feuille Tableau, la valeur correspondante en C de Recherche sera transférée sur la ligne 5 de la feuille Tableau, en dessous de la correspondance trouvée. Si aucune correspondance n'est trouvée, le code passe à la cellule suivante en A de Recherche et boucle jusqu'à trouver une cellule vide.

Le code, très court, peut être parcouru en "pas à pas" avec F8, ce qui va te permettre de voir l'exécution de chaque ligne, en particulier celle du IF dont la partie après le Then sera surlignée en jaune lorsqu'une correspondance est trouvée. Tu pourras vite voir quand tu ne passes pas sur ce code alors que tu t'attendrais à y passer. Ce sera sur ces valeurs que tu devras être attentif pour vérifier qu'elles correspondent bien (pas trop peu ou trop d'espaces, un point et pas une virgule, etc...). Je ne vois pas comment être plus clair ;)