Astuces Excel
  1. Astuces Excel
  3. Insertion d'une formule contenant une variable dans une cellule à l'aide d'une macro
Intereting Posts
loops pour les valeurs entre les lignes avec une certaine valeur Voulez-vous ouvrir des files Word, Excel et PowerPoint dans l'application Excel VBA prenant la saisie des users pour vérifier une cellule sur plusieurs feuilles et save des feuilles spécifiques pour une utilisation ultérieure Exécuter une macro Excel à partir du service Windows Impossible d'accéder correctement aux cellules en utilisant jxl en Java Qu'est-ce qu'une bonne grid Web qui accepte datatables du presse-papiers Excel? VB obtient des données d'excel – validation Répétez une partie de mon sous Écrire au file .xsml protégé existant dans Python Remplacer VBA Excel ne fonctionne pas toujours Le classur Excel protégé est cassé après avoir collé des données à partir d'un classur "plus récent" Impossible d'exporter le tableau HTML sur Excel lors de l'utilisation d'attributes sur les éléments de la table Créez un file PDF à partir de différentes plages dans plusieurs feuilles Excel avec VBA Supprimer des lignes vides dans une table Excel à l'aide de VBA Copier à partir du jeu d'loggings avec VBScript

Insertion d'une formule contenant une variable dans une cellule à l'aide d'une macro

J'ai une macro vba qui copy la feuille actuelle et la renomme avec la date actuelle qui fonctionne bien, maintenant je souhaite qu'elle mette une formule dans la cellule B22, la formule que je veux est: 

Current Sheet Previous Sheet ='08 May 2013'!B18 - '01-04-2013'!B18

J'ai essayé d'get ce code pour fonctionner, mais il le met sous forme de string, pas une formule, c'est-à-dire = ('[08 mai 2013! R2C18] – [12 mai 2013! R2C18]) 

 Dim sheet_name As Ssortingng Dim activeSheet_name As Ssortingng Dim shtName As Integer Dim activeShtName As Integer shtName = Sheets.Count - 1 activeShtName = Sheets.Count sheet_name = Sheets(shtName).Name activeSheet_name = Sheets(activeShtName).Name Sheets(activeSheet_name).Select Range("B22").Select ActiveCell.Formula = " = ('[" & sheet_name & " !R2C18] - [ " & activeSheet_name & " !R2C18])"

Toute aide serait appréciée

Votre formule est fausse. Essayez-le d'abord dans Excel, puis copyz le text de la formule et comparez au text que produit votre dernière ligne de code ci-dessus. Modifiez votre code VBA à ceci:

ActiveCell.FormulaR1C1 = "=" et le nom de la feuille & "'! R18C2-" "et le nom de la feuille active et"'! R18C2 "

Notez l'utilisation de FormulaR1C1. Fondamentalement, vous devez entourer les noms des feuilles avec des guillemets simples.