code concernant la fonction match

Version imprimable

05/07/2022, 16h19
asilah

code concernant la fonction match

Bonjour à tous , je travaille sur un projet , Dans une partie de mon code j'ai un userform qui me recherche une valeur dans ma feuille de calcul , j'ai utilisé la fonction match et ça marche bien pour moi , si la valeur existe , j'ai des choses qui s'exsecutent , or si la valeur n'existe pas rien ne se produit ,
j'aimerais bien faire apparaitre un msgBox indiquant que cette valeur n'existe pas mais je n'arrive pas a savoir le code qui exprime cela.

merci de m'aider si c possible
Bonne journée
05/07/2022, 17h28
Philippe Tulliez

Bonjour,
Il existe plusieurs solutions.
L'une d'elles consisterait à intercepter l'erreur à l'aide d'un On Error Resume Next et affecter ainsi la valeur 0 et une autre de simplement imbriquer la fonction Match dans la fonction IfError en renvoyant 0 si Match est en erreur.
Ensuite, il suffit de tester la valeur renvoyée et si c'est 0, on affiche le message à l'aide de MsgBox
05/07/2022, 19h09
asilah

Bonjour,
Merci pour votre réponse
mais ce n'est toujours pas claire,
que dois-je faire?
05/07/2022, 19h21
Philippe Tulliez

Bonjour,

Citation:

ce n'est toujours pas claire

La fonction Match renvoie la position d'une valeur cherchée dans un vecteur, une colonne ou une ligne, ou une erreur si la valeur n'est pas trouvée donc il suffit d'intercepter cette erreur en renvoyant une valeur nulle.

Citation:

que dois-je faire

En publiant votre code utilisant la fonction Match vous auriez plus de chance d'avoir une réponse pertinente

voila la partie concerné

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub cmdSearch_Click()
 
On Error Resume Next
 
'Search button
 
' la cellule XFB1 contient la valeur que je veux cherché
 
 
ThisWorkbook.Sheets("Data").Range("XFB1").Value = Me.TextBox30.Value
 
Dim Ligne As Integer
 
ligne = ThisWorkbook.Sheets("Data").Range("XFC1").Value
 
' la variable ligne est le résultat de la fonction match , elle me renvoie  le numéro de ligne qui contient la valeur que je cherche , mais je veux faire de telle sorte que si la valeur n'exsiste pas , j'envoie un msg(MsgBox)

05/07/2022, 19h39
Philippe Tulliez

Bonjour,

Citation:

' la variable ligne est le résultat de la fonction match , elle me renvoie le numéro de ligne qui contient la valeur que je cherche , mais je veux faire de telle sorte que si la valeur n'exsiste pas , j'envoie un msg(MsgBox)

J'ai très bien compris votre demande mais je vous demande d'afficher le code qui utilise la fonction Match afin de vous aider au mieux de vos intérêts et sauf si ma vue baisse à ce point, je n'ai vu aucune ligne avec Match dans ce que venez de publiez

Citation:

la variable ligne est le résultat de la fonction match , elle me renvoie le numéro de ligne qui contient la valeur que je cherche

donc publiez la ligne où l'on peut voir Ligne = "...Match(......" car cette ligne de code ligne = ThisWorkbook.Sheets("Data").Range("XFC1").Value n'utilise pas Match
05/07/2022, 20h05
asilah

Citation:

Envoyé par Philippe Tulliez

Bonjour,

J'ai très bien compris votre demande mais je vous demande d'afficher le code qui utilise la fonction Match afin de vous aider au mieux de vos intérêts et sauf si ma vue baisse à ce point, je n'ai vu aucune ligne avec Match dans ce que venez de publiez

donc publiez la ligne où l'on peut voir Ligne = "...Match(......" car cette ligne de code ligne = ThisWorkbook.Sheets("Data").Range("XFC1").Value n'utilise pas Match

En fait je n'ai aucune ligne de code comme vous venez d'indiquer
j'ai utilisé la fonction match directement en feuille de calcul excel en allant à le cellule XFC1 et je tape =match(XFB1 ; C:C ; 0) et mon code marche très bien

2 pièce(s) jointe(s)

Bonjour,

Citation:

j'ai utilisé la fonction match directement en feuille de calcul excel en allant à le cellule XFC1 et je tape =match(XFB1 ; C:C ; 0) et mon code marche très bien

Je ne comprends pas pourquoi vous ne faites pas la recherche directement depuis le UserForm mais bon, je me contenterai de répondre à votre question.

Donc si j'ai bien compris vous allez lire en VBA, le contenu d'une cellule qui est le résultat de la fonction MATCH (EQUIV pour la version française d'excel) et vous souhaiteriez qu'un message soit envoyé si une erreur est renvoyée par cette fonction comme illustré ci-dessous.

Pièce jointe 621822

Il y a bien entendu moyen de lire en VBA ce type de message mais il serait plus simple d'imbriquer la fonction MATCH dans IFERROR (SIERREUR pour la version française) qui renverrait une valeur nulle à la place du message d'erreur (voir illustration ci-dessous)

Pièce jointe 621824

et dans ce cas, il suffit dans votre code VBA de placer un If...Then...Else en envoyant un message à l'aide de MsgBox si la variable Ligne est égal à 0

Exemple
Code:

1 2 3 4 5 6 7 8 9 Private Sub cmdSearch_Click() Dim Ligne As Long Ligne = ThisWorkbook.Worksheets("Data").Range("C2").Value If Ligne Then ' Votre code Else MsgBox "Pas trouvé" End If End Sub
Dans la partie où j'ai placé le commentaire "Votre code", il suffit de placer vos lignes VBA qui fonctionnent bien

05/07/2022, 22h45
asilah

merci beaucoup
ça marche parfaitement