Astuces Excel
  1. Astuces Excel
  3. EXCEL / VBA – Insérez les formules dynamicment dans les cellules
Intereting Posts
Ajout de lignes filtrées dans Excel Copier datatables sur les feuilles de travail nouvellement ajoutées en fonction de la sélection Fichier Open Excel VBA (error handling) Avez-vous VBA pour les éléments uniques dans la gamme multicolumn, comment filterr plusieurs lignes sur les résultats précédents? Dans Excel Sheet, comment filterr des lignes spécifiques qui ont des valeurs spécifiques Userform CommandButton à replace basé sur CheckBox True / False Excel – Est-il possible de déclarer des variables pour des mots spécifiques? Reporting Services – Exporter des données vers Excel en une seule feuille Les applications Web Microsoft ajoutent un button d'printing à pdf dans un file embedded En cours d'erreur Continuer à ne pas fonctionner VBA Lors de l'export d'un file xml depuis Excel, les dates sont devenues des nombres à 5 numbers Excel ne reconnaît pas la zone de list déroulante lorsque le file est ouvert Obtenir des noms de colonnes de pandas DataFrame au format dtype: object Exception de caractère invalide lors de la lecture de la feuille Excel créer un diagramme de dispersion avec plusieurs valeurs d'axe Y pour chaque valeur d'axe x

EXCEL / VBA – Insérez les formules dynamicment dans les cellules

J'ai une table et le nombre de lignes qu'il possède est inconnu. Chaque fois que l'user saisit un élément dans la colonne A de ce tableau, je veux que les autres colonnes de la table se retrouvent dynamicment avec des formules qui font reference à l'élément qui vient d'être entré dans la colonne A.

Je ne veux pas simplement copyr la formule dans les colonnes B, C, D etc tout au long de ma feuille car le nombre de lignes dans la feuille est inconnu.

Existe-t-il un moyen efficace de le faire?

Mes tentatives d'écriture de code dans les events onCalculate et onChange dans VBA semblent très inefficaces ou entraînent des loops éternelles.

Si vous utilisez Excel 2007 ou Excel 2010, définissez votre gamme de list car une list le fera automatiquement!
La meilleure macro n'est pas une macro

Voici un exemple qui remplira les formules vierges en B, C et D chaque fois que votre sélection change:

Dans ThisWorkbook: 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim oSh As Worksheet, oUsed As Range, oRng As Range Set oSh = Sh Set oUsed = oSh.UsedRange.Columns("B") 'only add to blank formulas Set oRng = oUsed.Find("", LookIn:=xlFormulas) Do While Not oRng Is Nothing 'B formula oRng.Offset(, 0).FormulaR1C1 = "=RC[-1] + 100" 'C formula oRng.Offset(, 1).FormulaR1C1 = "=RC[-1] + 100" 'D formula oRng.Offset(, 2).FormulaR1C1 = "=RC[-1] + 100" Set oRng = oUsed.Find("", oRng, xlFormulas) Loop End Sub

Cela fonctionne sur chaque feuille de calcul dans le classur, vous voudrez peut-être tester la feuille dans laquelle vous vous trouvez.