Discussion :

[dandy87]

Bonjour,

Pour la réalisation d'une macro qui devra lister des factures, je dois trouver un script qui pourra re connaitre si ma facture est déja listée ou pas.

Je m'explique:
-Dans ma feuille 1 j'ai ma facture avec de nombreux éléments dont numéro client, numéro facture et date.
-ma 2eme feuille contenant la liste et faite de 2 colonnes (nf, nc et date), mon script ajoute une ligne a chaque fois que j'enregistre une nouvelle facture en enregistrant les info liés a cette facture.

Mon souci est donc le suivant: comment faire pour qu'il arrive à détecter si la ligne (nf, nc, date) existe déja ou pas. et donc éviter qu'il la mette en double comme c'est le cas actuellement.

j'espère avoir été assez clair. merci d'avance pour toute aide

[Invité]

Bonsoir,

Bien sûr, il est possible de vérifier que la facture n'existe pas déjà. Mais ne s'agit-il pas d'un problème de conception au départ.

Pourquoi pouvez-vous l'enregistrer deux fois ?

Vous ne réinitialisez pas les données une fois le traitement terminé ?

La numérotation n'est pas automatisée ?

Est-ce que vous sauvegardez chaque facture sous un autre nom ?

[rjamin]

Bonjour,

Pas besoin de tester la ligne, l'élément qui doit rester unique est nf donc un test sur la plage qui contient cet élément avec une fonction NB.SI Méthode (CountIf dans VBA) avant d'inscrire les données dans le listing devrait éviter les doublons

Dans l'aide d'Excel on trouve :

Référence du développeur Excel
WorksheetFunction.CountIf, méthode
Compte le nombre de cellules à l'intérieur d'une plage qui répondent aux critères donnés.
Syntaxe

expression.CountIf(Arg1, Arg2)

expression Variable qui représente un objet WorksheetFunction.

Paramètres

Nom Obligatoire/Facultatif Type de données Description
Arg1 Obligatoire Plage La plage de cellules dans laquelle vous voulez compter les cellules.
Arg2 Obligatoire Variante Le critère définissant les cellules affectées. Il peut prendre la forme d'un nombre, d'une expression, d'une référence de cellule ou de texte. Par exemple, 32, "32", ">32", "pommes" ou B4.

Valeur renvoyée
Double

[patricktoulon]

bonjour

dans ta feuille 2 tu la liste de facture

donc

Code :

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

1
2
3
4
5
6
7
8
9
 
sub enregistrer_facture ()
derlig=sheets(2).range("a6500").end.(xlup).row
if range("la letre de la colonne ou ya les date:" & derlig).value=date(now) then 
exit sub 
else  
'taa macro qui enregistre 
end if 
end sub

a adapter a ton cas

au plaisir