Recherche et incrementation en VBA

Bonsoir,

Est-ce-qu'il existe un code source VBA permettant de créer rapidement dans une feuille Excel un "module" de saisie de recherche d'une réference dans une liste?

Exemple : dans un petit tableau on tape la désignation d'un article par ex ull puis sa quantité souhaité ex:"2"

Le module permettrait de localisé automatiquement la référence et en modifié la quantité, sans effectuer de trie manuel ou recherche Ctrl F.

çà peut-être pratique dans une liste de produits importante.

Salut Callou et le forum

C'est effectivement possible mais faudrait connaitre la disposition de ton tableau.

Supposons en Colonne A les articles et en Colonne B les quantités.

Sub TrouverRemplacer()

Dim Cellule As Range
Dim Art As String
Dim Qt As Integer

Art = InputBox("Article à rechercher")
Qt = InputBox("Quantité à inscrire")

With ActiveSheet.Range("A1:A500")
    Set Cellule = .Find(Art, LookIn:=xlValues)
    If Not Cellule Is Nothing Then
        firstAddress = Cellule.Address
        Do
            Cellule.Offset(0, 1).Value = Qt
            Set Cellule = .FindNext(Cellule)
        Loop While Not Cellule Is Nothing And Cellule.Address <> firstAddress
    End If
End With

End Sub

Il y a place à l'amélioration c'est juste le principe

Mytå