Somme de 2 valeurs

David6465 -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

A travers une valeur dans une boîte de dialogue, je souhaiterai que cette valeur, une fois que j'aurai cliqué sur OK, s'additionne à une valeur déjà existante dans une case et que le résultat de cette case apparaisse dans cette même case.

Pour cela, j'ai écrit :
PrivateSub_OK1 Click

Sheets("Tableau").Select

If designation1="touret" Then Range("F138").Value = Range("F138").Value + quantite1.Value

End If
End Sub

Mais ça fonctionne pas :(
Si quelqu'un avait une solution ce serait le top!!!


A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
Désignation et quantite1 sont des noms de cellule ???
0
David6465 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Oui ce sont des zones texte que j'ai renommé
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > David6465 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Re,
Zone de texte ??
0
David6465 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai réalisé une boîte de dialogue qui me demandera la désignation (à travers une zone modifiable) et la quantité (à travers une zone de texte ). Une fois que j'aurai cliquer sur ok ça s'appliquera sur un tableau déjà créé
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > David6465 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Re,
Ok, ce que vous saisissez dans votre. Zone de texte c'est du texte pas du numérique.
Il faut donc convertir le texte en numérique par val(quantite1)
0
David6465 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Donc à la programmation de la boîte de dialogue, je mets val(quantite1)="" au lieu de quantite1=""?
0