Code vba, utilisation de la fonction "If"

Version imprimable

Bonjour à tous mon problème est le suivant: je souhaite effectuer une condition dans ma vba avec une message box, à savoir:
Si la valeur entrer est contenue dans ma colonne D alors Msg box: le numéro est déjà attribuer.

Voici mon code:
Code:

1 2 3 4 5 If Sheets("historique commandes").Columns("D:D").Find(What:=numerodecommande.Value) Is Nothing Then MsgBox "Le numéro de commande est déja utilisé." numerodecommande.Value = "" End If
Cepandant la message ne s'affiche pas, je pense que cela vient du "Is nothing then" dans ma condition qui n'est pas approprié.
Quelqu'un pourrait-il m'aider ?
Merci d'avance de vos réponses

01/02/2017, 13h30
Invité

https://www.developpez.net/forums/d1...e/#post8128041

Bonjour,

Je pense que c'est plutôt l'inverse que tu cherches à faire...
Code:

1 2 3 4 5 If NOT Sheets("historique commandes").Columns("D:D").Find(What:=numerodecommande.Value) Is Nothing Then MsgBox "Le numéro de commande est déja utilisé." numerodecommande.Value = "" End If
Si le Find retourne Nothing, c'est qu'il n'a pas trouvé de concordance.
Le Not inverse la condition pour dire qu'il l'a trouvée.

Bonjour,

Ou encore avec CountIf :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Sub Test()
 
    If Application.CountIf(Sheets("historique commandes").Columns("D:D"), numerodecommande.Value) > 0 Then
 
        MsgBox "Le numéro de commande est déja utilisé."
        numerodecommande.Value = ""
 
    End If
 
End Sub

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test()
With Sheets("historique commandes")
    If CBool(SerchXls(.Columns("D:D"), .Range("D1"), numerodecommande.Value, True, False)) Then
        MsgBox "Le numéro de commande est déja utilisé."
         numerodecommande.Value = ""
    End If
End With
End Sub
 
 
Function SerchXls(Myrange As Range, MyCellule As Range, strRecherche, EntierCell As Boolean, EnBoucle As Boolean) As Long '
On Error Resume Next
SerchXls = 0
If EntierCell = False Then Entier = xlPart Else Entier = xlWhole
   SerchXls = Myrange.Cells.Find(What:=strRecherche, After:=MyCellule, LookIn:=xlFormulas, LookAt _
        :=Entier, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=EntierCell).Row
  If SerchXls <= MyCellule.Row And EnBoucle = False Then SerchXls = 0
End Function

Code:

If CBool(Application.CountIf(Sheets("historique commandes").Columns("D:D"), numerodecommande.Value) )Then

22/05/2017, 16h03
manufer

Il peu y avoir des choses qui ne fonctionnent pas,

mais si on ne sait pas pourquoi elles ne fonctionnent pas,

c'est plutôt perturbant.

Comprendre pourquoi on peut boucler (même si la boucle n'est pas du gout de tous pour cette problématique) sur:

Code:

fin = Worksheets("txcouvglo").Range("A1:AD200000")

Mais pas sur:

Code:

fin = Worksheets("txcouvglo").Range("A1:AD200000").SpecialCells(xlCellTypeConstants).Select

Alors que la seul différence est la selection de cellule vide ou non.