Résolu Problème avec Visual Basic pour Excel

Solutions (3)
Tags :
  • Visual basic
  • Logiciels
|
Bonjour,

Est-ce le titre ? Mais personne n'a répondu à mon précédent message que je répète donc....

Sur Excel, avec Visual Basic, j'aimerai pouvoir relever une formule écrite dans une cellule, la modifier et la réécrire dans une autre cellule.
Ma formule en cellule C15 de ma feuille 'Récapitulatif' : =si(B15="";"";'7'!$E$89) ou '7' est le nom d'une feuille.
Après avoir intégrer une feuille '8' (ça, j'ai su faire) il me faut reprendre la formule, la transformer en : =si(B15="";"";'8'!$E$89) et l'écrire cellule C16 en feuille 'Récapitulatif'.
C'est la formule dont j'ai besoin; pas le résultat de la formule.
Merci aux spécialistes de VBA sur Excel, de m'aider.

gporte
Contenus similaires
Meilleure solution
partage
|
Bonjour, gporte

Essaie ces instructions :

X = Worksheets("Récapitulatif").Range("C15").Formula
X = Replace(X, "'7'!", "'8'!")
Worksheets("Récapitulatif").Range("C16").Formula = X

J'ai détaillé mais tu peux le faire en une seule ligne :

Worksheets("Récapitulatif").Range("C16").Formula = Replace(Worksheets("Récapitulatif").Range("C15").Formula, "'7'!", "'8'!")

Bonne continuation.
  • Commenter cette solution |
Score
0
òh
òi
|
Meilleure réponse sélectionnée par gporte.
  • Commenter cette réponse |
Score
0
òh
òi
|
gillou_gre a dit :
Bonjour, gporte

Essaie ces instructions :

X = Worksheets("Récapitulatif").Range("C15").Formula
X = Replace(X, "'7'!", "'8'!")
Worksheets("Récapitulatif").Range("C16").Formula = X

J'ai détaillé mais tu peux le faire en une seule ligne :

Worksheets("Récapitulatif").Range("C16").Formula = Replace(Worksheets("Récapitulatif").Range("C15").Formula, "'7'!", "'8'!")

Bonne continuation.



Merci bien gillou_gre

Je me mets au boulot.
Je n'ai qu'une réponse:la vôtre.

gporte

  • Commenter cette réponse |

Ce n'est pas ce que vous cherchiez ?

Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS