VBA vlookup
houmok
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
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
--------------------------------------------------------------------------------
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
1 réponse
Bonjour,
Voici une petite macro de recherche qui fonctionne bien : sources
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
Donne moi le code complet que tu utilises pour archiver tes factures.
Le code ci dessus, Permalink (#1) est incomplet. Ce qui a l'air de déconner dans le code de houmok c'est la partie : 'ici place le code si le numéro de facture n'existe pas
D'où ma demande...