Mettre valeur d'une cellule à 0 VBA

zer4 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -  
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   -
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   Statut Contributeur Dernière intervention   4 724
 
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