Problème avec N° facture unique.

Version imprimable

03/12/2015, 16h51
Stéphanie57

1 pièce(s) jointe(s)

Problème avec N° facture unique.

Bonjour à tous,

Depuis plusieurs jours je planche sur la possibilité de créer une macro qui va permettre de vérifier la saisie unique de numéro de facture pour éviter de la payer 2 fois.

Pour résumer, si à la saisie du numéro de facture fournisseur, je saisie la même facture, un message d'alerte me disant "attention, vérifier en comptabilité le compte fournisseur ainsi que son numéro de facture".

Je joins le fichier de mon application pour une meilleur compréhension.

Merci par avance pour votre aide précieuse

Cordialement

Bonsoir,

Teste avec "CountIf" mais comme on ne sait pas où regarder, adapte ce qui suit :

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
    Dim NumFacture As Long
 
    NumFacture = 256
 
    If WorksheetFunction.CountIf(Range("A:A"), NumFacture) > 0 Then MsgBox "Présent dans la colonne !"
 
End Sub

03/12/2015, 22h28
Stéphanie57

1 pièce(s) jointe(s)

FICHIER SIMPLIFIE POUR UNE MEILLEUR COMPREHENSION

J'ai testé ton code et cela ne fonctionne pas, j'ai donc modifié mon fichier uniquement pour tester le numéro de facture.

Pourrais tu regarder ?

Il y a un onglet Liste Facture et un USF avec un combobox numfacture qui doit tester s'il existe deux fois le même numéro de facture. Et s'il existe deux fois le même numéro, afficher un message qui nous invite à revérifier la compta...

Bonjour,

Teste ce qui suis pour voir si ça te convient :

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
25
26
27
28
29
30
31
 
Private Sub Valider_Click()
 
    Dim Plage As Range
    Dim NumFact As Long
 
    With Worksheets("Liste Facture"): Set Plage = .Range(.Cells(1, 2), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    NumFact = CLng(Me.NumFacture.Text)
 
   'par contre je souhaiterai que le numéro de facture soit saisi sur la feuille "Liste Facture"
    If WorksheetFunction.CountIf(Plage, NumFact) > 0 Then
 
        MsgBox "Le numéro de facture '" & NumFact & "' existe déjà et ne peut être utilisé une seconde fois !"
 
    Else
 
        'si le numéro n'existe pas mais génère un "trou" dans l'incrémentation, l'indique dans le message
        'mais permet toutes fois de le valider
        If WorksheetFunction.Max(Plage) + 1 < NumFact Then
 
            If MsgBox("Le numéro de facture '" & NumFact & "' ne suis pas de façon logique les autres numéros !" & _
                      vbCrLf & _
                      "Ce numéro doit-il être validé ?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
        End If
 
            Worksheets("Liste Facture").Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = NumFact
 
    End If
 
End Sub

Si tes numéros de facture doivent être incrémentés de 1 à chaque fois, tu peux le faire de façon automatique avec :

Code:

1
2
 
NumFact = WorksheetFunction.Max(Plage) + 1

04/12/2015, 10h23
Stéphanie57

Problème résolu

Merci beaucoup Theze,

ça fonctionne à merveille et c'est exactement ce que je voulais.

Merci encore et au plaisir