erreur #Valeur VBA

Version imprimable

erreur #Valeur VBA

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:

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

09/05/2016, 11h34
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, …
09/05/2016, 11h37
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
09/05/2016, 12h45
tamtam64

Code:

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

des fois c'est

Code:

application.worksheetfunction.match

Ca marche aussi ;)
09/05/2016, 13h03
Marc-L

Mieux vaut éviter WorksheetFunction en cas de non concordance (erreur !)
09/05/2016, 13h10
tamtam64

Comment ca concordance ?

dans tous les cas worksheetfunction marche tjs .
09/05/2016, 13h21
Marc-L

Ben non : la fonction de feuille de calculs EQUIV renvoie une erreur lorsqu'il n'existe pas de concordance !

Et avec WorksheetFunction cette erreur est fatale … (erreur d'exécution 1004)
09/05/2016, 13h24
tamtam64

Ah oui c'est pas faux, effectivement à éviter ma methode.
Y'a mieux c'est sure.
09/05/2016, 13h26
Marc-L

Aucun souci sans WorksheetFunction via juste Application.Match combiné avec IsError ou IsNumeric …

Voir les exemples dans les discussions de ce forum !
09/05/2016, 13h29
tamtam64

Oui voir même

Code:

if(isna(match(.....)) then ... vu que l'erreur est apparemment #NA mais bon sa deviens bofbof mais c'est interessant ;)
17/05/2016, 09h34
shadrac

Merçi ça marche nickel
18/05/2016, 12h35
Marc-L

Merci aux idiots m'ayant attribué des points négatifs sans comprendre de quoi il s'agit
ni encore moins avoir testé dotés de leur science infuse et sans compter les exemples dans les discussions de ce forum !

Ne pas se rappeler donc de cette discussion lorsque vous ferez face à l'erreur déclenchée par WorksheetFunction ‼

_________________________________________________________________________________________________________
Deux choses sont infinies : l’Univers et la bêtise humaine.
Mais en ce qui concerne l’Univers, je n’en ai pas encore acquis la certitude absolue ! (Albert Einstein)
18/05/2016, 12h38
joe.levrai

Bonjour,

le forum semble avoir été récemment peuplé par des adeptes du -1 sur des messages pertinent et juste .... que je met sur le compte d'une juvénilité doublé d'une méconnaissance des informations qu'ils lisent (et ne prennent pas la peine de tester)

ils semblent même avoir leurs têtes de turcs, je n'en fais pas encore partie

et à la limite, je viens pas ici pour gagner de points, mais apprendre en aidant. Alors qu'ils s'en donnent à cœur joie.

Cependant, et ce message d'adresse plus particulièrement aux modérateurs, serait-il possible que le forum permette :

- à tout utilisateur enregistré
- à défaut, à l'auteur du sujet

de pouvoir consulter la liste des personnes ayant voté positivement ou négativement

L'idée n'est pas de générer des conflits. Mais je suis persuadé qu'en levant légèrement l'anonymat des votes, ça pourrait inciter à la modération

Sinon (ou en complément), obliger les votes négatifs à le justifier par un commentaire contextuel
19/05/2016, 10h49
Marc-L

Oui comme sur d'autres forums ne pouvoir mettre que des points positifs
encourageant ainsi ceux en désaccord à s'exprimer dans les discussions …
19/05/2016, 10h52
Kiouane

L'idée de mettre en commentaire la justification du vote est plutôt bonne. Si la justification n'est pas cohérente, le modérateur sanctionne.
19/05/2016, 11h01
antonysansh

Citation:

Envoyé par joe.levrai

Bonjour,

le forum semble avoir été récemment peuplé par des adeptes du -1 sur des messages pertinent et juste .... que je met sur le compte d'une juvénilité doublé d'une méconnaissance des informations qu'ils lisent (et ne prennent pas la peine de tester)

Ma naïveté me fait plutôt penser que les membres de l’ADD (Association des Daltoniens Développeurs)
viennent de découvrir ce forum.

Comme les messages de Marc-L sont clairs et pertinents, ils votent mais se trompent de couleurs.
19/05/2016, 11h04
Marc-L

Et ils marchent au plafond comme Spider Cochon car ils confondent aussi pouce vers le haut et pouce vers le bas ! :ptdr: