Bonjour,

j'éssaie de faire un truc simple j'ai trois colonnes dans un fichier excel, j'aimerai via une fonction qui retourne vrai si la valeur de la cellule (2,1) est dans la colonne B par exemple.

Le code ne marche que si dans la cellule j'ai des caractères si c'est des nombres ça marche pas.
Voila mon code
Code VBA : 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
17
18
19
20
21
22
23
24
Option Explicit
Dim Feuille As Worksheet, Plage1 As Range
 
Public Function existecontrats(nomcherché As Variant) As Variant
  Dim nomcherche As Variant
  Dim cellule As Range
  nomcherche = nomcherché
  Set Feuille = ThisWorkbook.Sheets("Contrats")
  Set Plage1 = Feuille.Columns("B:B")
 
  If nomcherche <> "" Then
 
  Set cellule = Plage1.Cells.Find(nomcherche) ' le nomcherché dans la cellule de la plage sélectionnée
  existecontrats = cellule
    If cellule <> "" Then
     existecontrats = "VRAI"
    Else
      existecontrats = "FAUX"
    End If
 
    Else
    Exit Function
 End If
End Function