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

[asilah]

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

[Philippe Tulliez]

Bonjour,

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.



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)



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 :

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

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

[asilah]

merci beaucoup
ça marche parfaitement