VBA vlookup

Question

Bonjour,

--------------------------------------------------------------------------------

Bonjour,
Alors voila je dois utiliser application........vlookup pour afficher un message d'erreur.
Si le numero de la facture est dejà présent dans la base de donnée, il faudrait qu un message d'erreur m'imforme que la facture a déja été archivé ! et si arrive a son termeje voudais qu un message me dise facture archivé !
voila ma macro :

Code :
Sub archive()
Sheets("liste_facture").Select
Range("A1").Select
Do While ActiveCell <> ""

ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = Range("nf")
ActiveCell.Offset(0, 1) = Range("nc")
ActiveCell.Offset(0, 2) = Range("date_facture")
Sheets("detail_facture").Select
Range("A1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
Sheets("facture").Select

Range("A14").Select
Do While ActiveCell <> ""
Dim ref
Dim qte
Dim puht
ref = ActiveCell
qte = ActiveCell.Offset(0, 4)
puht = ActiveCell.Offset(0, 5).Value
Sheets("detail_facture").Select

ActiveCell = Range("nf")
ActiveCell.Offset(0, 1) = ref
ActiveCell.Offset(0, 2) = qte
ActiveCell.Offset(0, 3) = puht
ActiveCell.Offset(1, 0).Select
Sheets("facture").Select
ActiveCell.Offset(1, 0).Select
Loop

End Sub

pijaku · Answer

Bonjour,
Voici une petite macro de recherche qui fonctionne bien : sources

Dim rngTrouve As Range 
Dim NumFact As string
'ici on définit le numéro de facture : en gras à adapter
NumFact = Sheets("Nom_de_ta_feuill").Range("adress_de_la_cellule").Value
With Sheets("liste_facture").Columns(1) 'dans la feuille liste factures colonne A 
   Set rngTrouve = .Cells.Find(what:=NumFact) 
    If rngTrouve Is Nothing Then 
        'ici place le code si le numéro de facture n'existe pas 
    Else 
        MsgBox "Facture déjà archivée"
    End If 
End With
    Set rngTrouve = Nothing

VBA vlookup

1 réponse

Discussions similaires

Newsletters