Discussion :

[shadrac]

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

[Marc-L]

Bonjour !

Un code est inutile pour cela, une simple fonction de feuille de calculs peut s'en acquitter !

Sans compter le simple filtre … Quel est donc le but ?

______________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[joe.levrai]

Bonjour,

comme souligné par Marc-L, la fonction NB.SI fait très bien l'affaire

tu peux l'utiliser en VBA via Application.WorkSheetFunction.COUNTIF(), en regardant si le nombre d'occurrence de la valeur cherchée dans la colonne B est égale à 0 ou non

[tamtam64]

Code :

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

application.match(Valeurcherché,Vecteur colonne,0)

des fois c'est

Code :

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

application.worksheetfunction.match

Ca marche aussi

[Marc-L]

Mieux vaut éviter WorksheetFunction en cas de non concordance (erreur !)

[tamtam64]

Comment ca concordance ?

dans tous les cas worksheetfunction marche tjs .