Récupérer une variable dans une formule

[Mic333]

Bonjour,


Voici ma macro :
Sub Macro1()
Range("A3").Select
ActiveCell.FormulaR1C1 = _
"=IF('Janvier 2008'!RC[3]="""",'Janvier 2008'!RC,"""")"
Range("A4").Select
End Sub

Je voudrais la transformer en :
Sub Macro1()
Range("A3").Select
A="Janvier 2008"
ActiveCell.FormulaR1C1 = _
"=IF(A!RC[3]="""",A!RC,"""")"
Range("A4").Select
End Sub

Cela ne fonctionne pas? Comment puis je faire pour récupérer une valeur de type string et la remplacer dans ma formule à la place de 'Janvier 2008'

Merci à tout le monde pour votre aide

Mic333

 

[Pierrot93]

Re : Récupérer une variable dans une formule

Bonjour Mic

essaye peut être comme ci dessous :

Sub Macro2()
Dim A As String
A = "Janvier 2008"
Range("A3").FormulaR1C1 = "=IF('" & A & "'!RC[3]="""",'" & A & "'!RC,"""")"
End Sub

bonne soirée
@+