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 .

[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)

[tamtam64]

Ah oui c'est pas faux, effectivement à éviter ma methode.
Y'a mieux c'est sure.

[Marc-L]

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

Voir les exemples dans les discussions de ce forum !

[tamtam64]

Oui voir même

Code :

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

if(isna(match(.....)) then ... vu que l'erreur est apparemment #NA mais bon sa deviens bofbof mais c'est interessant ;)

[shadrac]

Merçi ça marche nickel

[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)

[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

[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 …

[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.

[antonysansh]

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.

[Marc-L]

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