Discussion :

[mejrs]

Bonjour a tous, je suis venu sur ce forum pour poser une question de debutant

A l'aide de visual basic j'aimerai dans excel faire ceci:
LaValeurA1
LaValeurA2

=> Résultat= LaValeurA1 (LaValeurA2-1)

Voila le code que j'ai tester:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro1()
 
Range("A1").FormulaR1C1 = "15000"
Range("A2").FormulaR1C1 = "07/067"
 
 Dim lot
lot = Range("A1").Value
MsgBox (lot)
 
 Dim idInterne
idInterne = Range("A2").Value
MsgBox (idInterne)
 
Dim resultat
resultat = (lot + "     (" + idInterne + "-" + "1" + ")")
MsgBox (resultat)
End Sub

Ceci fonctione

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
 
 Dim lot
lot = "15000"
MsgBox (lot)
 
 Dim idInterne
idInterne = "07/067"
MsgBox (idInterne)
 
Dim resultat
resultat = (lot + "     (" + idInterne + "-" + "1" + ")")
MsgBox (resultat)
End Sub

Je ne comprend pas pourquoi Range("A1").Value pose problème

[zazaraignée]

tu as entré une valeur dans A2 sous cette forme : "07/067". Serait-il possible qu'Excel ait interprété cette valeur comme une date ?

[ucfoutu]

Bonjour,

Je dirais simplement que cela ressemble à une double erreur (erreur/type et erreur/opérateur de concaténation).

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resultat = (CStr(lot) & "     (" & CStr(idInterne) & "-" & "1" & ")")

Bonne continuation