Macro pour indexer une position cellule

Question

Peut-être que ce sujet a déjà été traite Je cherche une petite macro qui permettrai de mettre une lettre ex : « X » dans une cellule « F4 » Et à chaque exécution de la macro de placer un « X » dans la cellule « F6 » sans effacer « F4 » Et ainsi de suite, un compteur qui change l’adresse de la cellule a chaque utilisation « X » dans « F4 » à « X » dans « F6 » à « X » dans « F8 » Je cherche depuis un certain temps sans résultats Merci pour une solution...

ThauThème · Answer

Bonsoir Wallase et bienvenu, bonsoir le forum,

Si tu laisses une ligne vide chaque fois et si F2 n'est pas vide :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim CEL As Range 'déclare la variable CEL (CELlule)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
Set CEL = O.Cells(Application.Rows.Count, "F").End(xlUp).Offset(2, 0) 'définit la cellule CEL
CEL.Value = "X" 'renvoie X dans CEL
End Sub

Sinon, le petit fichier exemple qui va bien...