Additionner

Résolu
tortuegenie Messages postés 110 Date d'inscription lundi 27 mars 2006 Statut Membre Dernière intervention 21 octobre 2008 - 9 août 2006 à 10:15
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 9 août 2006 à 10:24
Bonjour je souhaite mettre dans la cellule N8 (feuille 4)le résultat de la somme B8 jusqu'à M8 (feuille4)

et voilà le code que j'ai ecrit
Sheets(4).Range("N8").Value = (WorksheetFunction.Sum("B8:M8"))

Quelqu'un peut me donner le code exact car là je sèche. Pas un pro du VB!!!!
Merci

1 réponse

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
9 août 2006 à 10:24
Salut,

Essaie ceci
'Active la feuille d'indice 4
Worksheets(4).Activate 
'Selectionne la plage B8=>M8
ActiveSheet.Range("B8:M8").Select 
'Place le resultat de la somme de cette selection dans N8
ActiveSheet.Range("N8").Value = WorksheetFunction.Sum(Selection) 

 

<small> Coloration syntaxique automatique [AFCK]</small>
      

@+, Julien
Pensez:
3
Rejoignez-nous