Mettre valeur d'une cellule à 0 VBA

Question

Bonjour, 

je souhaite que dans la feuil " Stock " la quantité devienne à 0 quand je selectionne un outil a l'aide de mon UserForm et que je valide.

Voici mon fichier :
https://www.transfernow.net/?utm_source=partagefichierscom&utm_medium=download

Cordialement.

Configuration: Windows / Chrome 62.0.3202.94

gbinforme · Answer

Bonjour, 
 
Avec ce code tu devrais avoir ton résultat
Private Sub ComboBox2_Change()
Dim cel As Range, mes As String
    With Sheets("Stock")
        Set cel = .Cells.Find(ComboBox2, .[A1], xlValues, xlWhole)
        If cel Is Nothing Then
            mes = "Référence absente"
        Else
            cel.Offset(0, 1) = 0
            mes = "Référence mise à jour"
        End If
        MsgBox mes
    End With
End Sub

Mettre valeur d'une cellule à 0 VBA

1 réponse

Discussions similaires

Newsletters