VBA vlookup

Fermé

houmok - 1 nov. 2010 à 21:52
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 22 nov. 2010 à 08:38

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

A voir également:

VBA vlookup
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
2 nov. 2010 à 09:47

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

houmok
17 nov. 2010 à 21:51

merci ! ça marche pour une partie ! cependant quand je fais une nouvelle facture et que je l archive, ça me marque "facture deja archivée" alors que je voudrais que ça me marque "facture archivée" puisqu'elle n'existe pas encore !

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
18 nov. 2010 à 08:52

Salut,
Donne moi le code complet que tu utilises pour archiver tes factures.

bob
21 nov. 2010 à 17:15

ce sujet m'intéresse également, qu'entendez vous par code complet?

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
22 nov. 2010 à 08:38

Bonjour,
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...

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters