Sujet Précédent Sujet Suivant

Création d'une boite de dialogue sous VBA

laloulaa Messages postés 2 Statut Membre -  
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai crée une facture sous excel avec plusieurs onglets: facture,liste facture, détail facture.
J'ai également crée un bouton de commande archiver avec VBA afin d'archiver mes factures dans les onglets liste facture et détail facture lors de chaque enregistrement.

Je dois maintenant créer sous VBA deux instructions:

-créer une instruction qui me permette lorsque je clique sur le bouton archiver de créer une boite de dialogue qui m'indique :" la facture est archivé". J'ai réussi a effectuer cette instruction

-créer une instruction qui m'indiquerait que "la facture a déjà été acrhivé" si tel est le cas notamment en recherchant dans les onglets liste facture et détail facture.
C'est cette instruction qui me pose probleme et je ne sais pas comment faire.

pouvez vous m'aidez???????

Merci

A voir également:

2 réponses

Réponse 1 / 2
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
bonjour

En supposant que tu as créé tes factures avec un numéro unique, il te suffit de lancer une recherche (find) sur ta colonne numéro dans ta liste des factures et si tu la trouve cela indiquerait que "la facture a déjà été archivé".
0
bananou
 
Ne le prenez pas en grippe mais je n'ai jamais compris : les gens qui font de l'excel dans word et ceux qui font de l'access dans excel. Le descriptif que je lis correspond à une base relationnelle. En excel, au mieux ça ressemblera à rien. Oké, je sors.
0
laloulaa Messages postés 2 Statut Membre
 
Merci pour ta réponse mais comment tu écris l'instruction sous VBA???
0
Réponse 2 / 2
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
bonjour

comment tu écris l'instruction sous VBA?

Comme ceci par exemple avec tes numéros de facture en colonne A : 

Dim numero As String
Dim facture As Range
    numero = "ton numéro"
    Set facture = Columns("A:A").Find(What:=numero, After:=Range("A1"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not facture Is Nothing Then
        MsgBox "la facture " & numero & " est archivée"
        ' procédure de sortie
    Else
        ' procédure d'archivage
    End If
0