[VBA-E] Utilisation .Find pour une recherche

Bonjour, je souhaite avoir des conseils sur la réalisation d'un programme de gestion de litiges fournisseurs, ce programme aura pour but de me simplifier la gestion des litiges et par ailleurs de pouvoir effectuer des statistiques.
Il y a plusieurs fonctions :

1. Entrer les litiges fournisseurs réceptionnées : date de réception,n° de la pièce, d'ou elle vient,....

2. Retrouver les litiges réceptionnés et enregistrer lors du traitement la date du traitement, le mode,...

Cela représente environ 2500 lignes par an, 1 ligne correspondant a un litige.

ligne type : date réception;n°pièce;provenance;Date traitement; mode de traitement

3.Faire un bilan statistique du nombre de litiges en cours, ceux traités, nbre de litiges reçus, nbre de litige > à 3 mois, etc.

J'ai besoin de plusieurs conseils car je suis débutant.

Quel logiciel me conseillez vous ?

Access, Excel ? pour gérer la base de donnée.

Jusqu'à présent j'utilise excel car je suis un peu plus connaisseur.

Si vous avez d'autres idées n'hésitez pas, si je n'ai pas été assez clair dite le moi.


Aujourd'hui, j'ai constitué un formulaire complet avec toutes les données a insérer et ça fonctionne mais je ne sais pas comment retrouver une ligne dans un tableau excel a partir d'un n°de pièce, ou une date, et avec ça afficher toutes les données déjà saisies sur ce formulaire pour continuer a le remplir lorsque je traite le litige.

Je souhaite le moyen le plus rapide car 2500lignes ça risque d'être lent sur excel.

Merci d'avance pour vous réponses.;)

:salut:

J'aurais tendance à dire qu'une bonne gestion est plus rapide sur Access,
grace aux requêtes, entre autre.

Surtout pour 2500 lignes par ans, avec éventuellement un historique pour les années précédentes ;)

Mais bon, sur Excel on peut également faire un tas de trucs d'enfer ;)

Sinon, pour faire une recherche, tu peux utiliser une fonction de ce style

Code:

---

1 2 3 4 5 6 7 8

Function LigFind(Feuil As String, NumCol As Integer, Quoi) On Error Resume Next With Sheets(Feuil).Columns(NumCol) .Find(What:=Quoi, LookIn:=xlValues, SearchDirection:=xlNext, _ SearchOrder:=xlByRows, MatchCase:=False).Select End With On Error GoTo 0 End Function

---

Tu appelles la fonction de l'endroit que tu veux !

Même sur 2500 lignes, cela devrait aller vite !

Cordialement.

Merci beaucoup ça marche très bien avec ça, mais j'ai une autre petite question :
Si on veut faire une recherche multicritère?
Je m'explique, imaginons il y a deux numéros de pièce identiques et pour les départagé il faut le nom du fournisseur qui est dans un autre colonne.
Peut on utiliser la fonction Find ?
Et si oui comment?

svp besoin d'une réponse dans l'apres midi ci possible

Merci d'avance