Déclaration

[Lu K]

Bonjour à toutes et à tous,

Je crois que je vais poser une question toute simple, mais je n'y comprend rien !

Voilà, je cherche à mutiplier des cellules entre elles. Voici un exemple, ça sera plus simple :

Private Sub CommandButton1_Click()
Dim un As String
Dim deux As String
Dim trois As String

un = Range("a1").Value
deux = Range("a2").Value
trois = Range("a3").Value

trois = un * deux
End Sub

 

[tototiti2008]

Re : Déclaration

Bonjour Lu_K,

Tu peux essayer de voir par là :

https://www.excel-downloads.com/threads/vba-types-de-variables.81052/

et/ou par là

Excel Downloads - Utiliser des variables et des constantes

String est un type de données Texte
On ne multiplie pas les textes entre eux

Edit : Bonsoir Pierrot 😉

 

[Pierrot93]

Re : Déclaration

Bonsoir,

pour effectuer une multiplication ou toute autre opération, il est préférable que les valeurs soient des nombres plutôt que du texte..

déclare peut^être ainsi :

Dim un As Double

ensuite fonction du contenu de la cellule, il y a peut lieu de convertir... A voir selon le modèle de donnée traité...

trois = CDbl(un) * CDbl(deux)

bonne soirée
@+

Edition bonsoir toto

 

[Lu K]

Re : Déclaration

Re,

Désolé mais il n'y a pas grand chose qui fonctionne !

Ma question n'est peut-être pas si facile que ça !!!

 

[JCGL]

Re : Déclaration

Bonjour à tous,
Salut Toto 🙂,
Salut Pierrot 🙂,

Peux-tu essayer avec :

Option Explicit

Private Sub CommandButton1_Click()
Dim Un As Double
Dim Deux As Double
Dim Trois As Double

Un = Range("A1").Value
Deux = Range("A2").Value
Trois = CDbl(Un) * CDbl(Deux)
Range("A3") = Trois
End Sub

A+ à tous

 

[ROGER2327]

Re : Déclaration

Bonsoir à tous

Je pense qu'un classeur avec des données à traiter et des exemples de résultats souhaités permettrait de répondre plus précisément.

À bientôt peut-être.
​

ROGER2327
#4600

Lundi 23 As 138 (Saint Quincey, critique d'art, SQ)
5 Frimaire An CCXIX
2010-W47-4T17:25:39Z

 

[JCGL]

Re : Déclaration

Bonjour à tous,

Ceci écrit, tu as un peu plus court...

Private Sub CommandButton1_Click()
[A3] = [A1] * [A2]
End Sub