Problème incrémentation avec formule VBA
Bonjour,
Suite à un besoin de restructuration de mon entreprise, je suis en charge de développer un programme de gestion des fournitures.
Mon tableau est construit de la manière suivante:
1er colonne (C): Listing des fournitures.
2e colonne
3e colonne (E) : Le stock de chaque fourniture modifié en fonction des emprunts ou des rendus.
J'ai ainsi créé une boite de dialogue demandant : La fourniture.
Le nombre emprunté ou rendu.
Mon code est le suivant:
Private Sub OK1_Click()
With Sheets("Tableau")
If designation1 = "Touret corde" And quantite1 <> "" Then
Range("E138").Value = Range("D138").Value + Val("quantite1")
End If
End With
End Sub
Problème ! La formule ne fonctionne pas. Lorsque je rentre une quantité de "-4" ou "+10", la valeur E118 reste identique à la valeur du stock initial...
Aussi, je demande votre aide.
Cordialement,
Bonjour et bienvenu(e)
Crobin a écrit :la valeur E118 reste identique
C'est normal tu écris en E138
Ton fichier est indispensable dans ce cas
bonjour,
pour remplacer
Range("E138").Value = Range("D138").Value + quantite1.Value
Bonjour
Modifie ton code (enlève les "" (guillemets) autour de quantite1
Normalement il faut un . (point) devant Range
Private Sub OK1_Click()
With Sheets("Tableau")
If designation1 = "Touret corde" And quantite1 <> "" Then
.Range("E138").Value = .Range("D138").Value + Val(quantite1)
End If
End With
End SubLe code fonctionne parfaitement.
Un grand merci à vous !
Re-bonjour,
Grace à votre correction mon programme est terminé.
Seulement, j'aimerai que mon code s'active par l'interface d'un bouton sur excel.
Ainsi, après avoir cliqué sur "insérer", dessiné la forme de mon bouton, mis la macro en référence, la commande de fonctionne pas.
Un message d’erreur me dit que l'élément portant ce nom est introuvable...
Que faire ?
Merci d'avance.
Vraiment super.
Encore merci !