AIDE PGM

Bonjour,

j'aimerai faire la somme de plusieurs variables référencées par rapport à des noms de cellule.

Voici mon pgm :

Sub test()

Dim SUIVI_DE1 As Variant
Dim ENCA_DE1 As Variant
Dim EXECU_DE1 As Variant
Dim MISSERV_DE1 As Variant
Dim ADASOMME As Variant
ADASOMME = (ENCA_DE1 + EXECU_DE1 + MISSERV_DE1)

Range("ADASOMME").Value = ADASOMME

End Sub

ça ne fonctionne pas..

Pouvez vous m'aider,

je vous remercie.

Maxime

la somme de plusieurs variables référencées par rapport à des noms de cellule.

y'a pas de references aux cellules dans ton code.

ENCA_DE1=Range("A1").value

la j'ai mis la valeur de la cellule A1 dans la variable ENCA_DE1, reste a faire les autres

C'est que tes variables ne renvoient pas des nombres.

Et inutile de mettre As Variant, toutes les variables sont de types Variant quand il n'en est pas indiqué d'autre.

bonjour

si j'ai bien compris ce que tu veux faire (faire la somme de plages nommées)

Sub test()

Range("ADASOMME")= application.worksheetfunction.sum(range("ENCA_DE1"),range("EXECU_DE1"),range("MISSERV_DE1"))

End Sub
 

Merci cela fonctionne parfaitement

Rechercher des sujets similaires à "aide pgm"