1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Problème de formule et de macro VBA pour excel [Résolu]

Signaler
Messages postés
4
Date d'inscription
jeudi 16 juillet 2009
Statut
Membre
Dernière intervention
30 août 2010
 -
Messages postés
4
Date d'inscription
jeudi 16 juillet 2009
Statut
Membre
Dernière intervention
30 août 2010
 -
Bonjour à tous,
Je réalise des programmes en VBA pour Excel actuellement et je rencontre un problème.
La macro écrite en VBA est sensée mettre des formules dans deux cases avec la commande ci-dessous: 
   
    Range("E8").Select
    ActiveCell.FormulaR1C1 = "=(B9+B15)/2"
    Range("E9").Select
    ActiveCell.FormulaR1C1 = "=(B10+B16)/2"

Cependant au lieu d'écrire dans mes cases excel la formule comme il le fait partout ailleur dans mon programmme, il écrit cela: 
=('B9'+'B15')/2

Les Quotes (') transforme donc mes formules en texte et cela entraine un plantage de ma macro.
Quelqu'un aurait-il une solution à ce problème s'il vous plaît?
Merci d'avance

5 réponses

Réponse 1 / 5
Messages postés
303
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
3 octobre 2013
 1
Après reflexion je crois que l'on peut supprimer sum
Réponse 2 / 5
Messages postés
64
Date d'inscription
jeudi 3 mars 2005
Statut
Membre
Dernière intervention
2 septembre 2010
 1
Je ne sais pas ce qu'est la notation R1C1, mais n'est ce pas plus simple de faire:

Range("E8").Select
ActiveCell.Formula = "=(B9+B15)/2"
Range("E9").Select
ActiveCell.Formula = "=(B10+B16)/2"

?
Réponse 3 / 5
Messages postés
64
Date d'inscription
jeudi 3 mars 2005
Statut
Membre
Dernière intervention
2 septembre 2010
 1
A, à priori, le R1C1, c'est pour désigner un ensemble de cellule par rapport à une autre cellule, de façon relative:
http://www.info-stat.com/XLVBAAutoSumMacro.htm
Réponse 4 / 5
Messages postés
303
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
3 octobre 2013
 1
Bonjour

Range("E8").Select
ActiveCell.FormulaR1C1 = "=sum(r9c2+r15c2)/2"

bonne journée
Réponse 5 / 5
Messages postés
4
Date d'inscription
jeudi 16 juillet 2009
Statut
Membre
Dernière intervention
30 août 2010
 1
Merci à tous els deux. Ta solution c148270 fonctionne très bien avec le sum et sans ausse.
Répondre Posez votre question