Je suis un novice dans le codage VBA pour excel et je suis face à une problème qui me bloque dans ma programmation. Je vous mets une partie de mon code qui est du coup fausse mais c'est pour que vous puissiez visualiser ce que j'essaie de faire :
Range(k, "G43").Select
Formule = "='10Y-EIS2022'!Fk"
ActiveCell.Formula = "'=10Y-EIS2022'!Fk"
en fait j'aimerai que le "k" s'incrémente tout seule de 8 (sa valeur actuelle) à 19 la dernière case du tableau.
Le problème est que je ne peux pas diffuser ce document du fait de sa confidentialité. Alors c'est une référence à une autre feuille du ficier excel avec sa case qui est aujourd'hui F16. En fait j'aimerai que le k remplace la valeur après le F.
Tu crée un nouveau classeur avec des données bidons et tu montre le résultat que tu veux avoir. Sinon, peut-être comme ceci.
VB:
Sub test()
Dim fin&, i&, k&
fin = Cells(Rows.Count, "A").End(xlUp).Row
k = Sheets("10Y-EIS2022").Range("f16").Value
For i = 43 To fin
k = k + 1
Cells(i, "G") = k
Next i
End Sub