VBA vlookup Fermé

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