Mettre valeur d'une cellule à 0 VBA

Fermé
zer4 Messages postés 53 Date d'inscription lundi 31 octobre 2011 Statut Membre Dernière intervention 12 décembre 2017 - 12 déc. 2017 à 15:41
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 12 déc. 2017 à 22:14
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.

1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
12 déc. 2017 à 22:14
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
0