Discussion :

[asilah]

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

[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

[asilah]

Bonjour,
Merci pour votre réponse
mais ce n'est toujours pas claire,
que dois-je faire?

[Philippe Tulliez]

Bonjour,

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.

que dois-je faire

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

[asilah]

voila la partie concerné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Philippe Tulliez]

Bonjour,

' 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

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