Variable dans FormulaR1C1 VBA Excel
zeratule
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai besoin d'aide svp, j'ai un probleme sur l'insertion d'une formule en VBA. voici mon code:
a = ActiveSheet.Name
Range("A1").select
ActiveCell.Value = "Tableau achat Materiel " & a
Sheets(Sheets.Count).Range("A7").Select
ActiveCell.FormulaR1C1 = "=a!RC"
Je sais ou le probleme se situe mais je sias pas comment le contourner: le probleme est au nivo du ActiveCell.FormulaR1C1 = "=a!RC", il reconnait la variable a masi ca marche si je l'insere dans "=a!RC" .
Comment faire alors, please help.
Merci d'avance
j'ai besoin d'aide svp, j'ai un probleme sur l'insertion d'une formule en VBA. voici mon code:
a = ActiveSheet.Name
Range("A1").select
ActiveCell.Value = "Tableau achat Materiel " & a
Sheets(Sheets.Count).Range("A7").Select
ActiveCell.FormulaR1C1 = "=a!RC"
Je sais ou le probleme se situe mais je sias pas comment le contourner: le probleme est au nivo du ActiveCell.FormulaR1C1 = "=a!RC", il reconnait la variable a masi ca marche si je l'insere dans "=a!RC" .
Comment faire alors, please help.
Merci d'avance
A voir également:
- Vba formular1c1 avec variable
- Formular1c1 ✓ - Forum Bureautique
- Formula R1C1 avec variable - Forum VB / VBA
- FormulaR1C1 ✓ - Forum VB / VBA
- FormulaR1C1 ✓ - Forum VB / VBA
- Vba formular1c1 - Forum Excel
3 réponses
Bonjour,
Merci Patrice, une autre petite question: j'arrive pas a mettre une varuiabe dans a fonction min:
En gros je ve l'equivalent de= min('toto'!B7:K7)
a= activesheet.name 'a prends le nomde la feuille a= "toto"
ActiveCell.FormulaR1C1 = "=" & "min" & (a & "!RC[-4]:RC[5]")
Mais ca bloque encore, j'ai essayé plusieurs combinaison mais j'y arrive pas.
si t'as des idees?
En tt cas merci bcp.
Merci Patrice, une autre petite question: j'arrive pas a mettre une varuiabe dans a fonction min:
En gros je ve l'equivalent de= min('toto'!B7:K7)
a= activesheet.name 'a prends le nomde la feuille a= "toto"
ActiveCell.FormulaR1C1 = "=" & "min" & (a & "!RC[-4]:RC[5]")
Mais ca bloque encore, j'ai essayé plusieurs combinaison mais j'y arrive pas.
si t'as des idees?
En tt cas merci bcp.
