Discussion :

[ben315]

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 :

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

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

[Invité]

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

[parmi]

Bonjour,

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

Code :

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

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.

[Theze]

Bonjour,

Ou encore avec CountIf :

Code :

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

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

[Invité]

Bonjour,

Code :

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
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 Theze :

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

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

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

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

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

Mais pas sur:

Code :

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

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

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