XL 2013 Problèmes codage VBA pour Excel

[Enzo65]

Bonjour,

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.

Merci d'avance.

 

[Lone-wolf]

Bonjour enzo et bienvenu sur XLD 🙂, le Forum 🙂

Sans fichier joint, pas simple de pouvoir t'aider. D'après ceci : "'=10Y-EIS2022'!F", c'est une feuille avec sa colonne, c'est juste?

 

[Enzo65]

Merci beaucoup.

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.

 

[Lone-wolf]

Re

@Enzo65

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.

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