none
Ms Excel macro VBA RRS feed

  • Question

  • Bonjour !

    Pour qu'Excel incrémente un chiffre suivi d'un point (1.a, 1.b, 1.c ou 11.a, 11.b, 11.c), j'ai composé les formules suivantes:

    unité (1.a) =STXT(INDIRECT("A"&LIGNE()-1);1;2) & CAR(CODE(STXT(INDIRECT("A"&LIGNE()-1);3;2))+1)
    dizaine (10.a)=STXT(INDIRECT("A"&LIGNE()-1);1;3) & CAR(CODE(STXT(INDIRECT("A"&LIGNE()-1);4;3))+1)
    Ces formules fonctionnent quand elles sont placées sous la cellule de départ et on peut les incrémenter en cliquant-tirant.

    Malheureusement, je n'arrive pas à les transformer en macro. Je voudrais que la macro place simplement la formule dans la cellule sélectionnée, charge à moi ensuite de cliquer-tirer pour l'incrémenter.

    Quand j'écris en VBA

    ActiveCell.Formula=STXT(INDIRECT(A&LIGNE()-1);1;3) & CAR(CODE(STXT(INDIRECT(A&LIGNE()-1);4;3))+1)

    La formule devient toute rouge et la macro ne fonctionne pas.

    Quelqu'un a-t-il la solution ?

    Je le/la remercie déjà de sa précieuse aide.

    Avec mes meilleures salutations.

    Pomponne
    mercredi 7 novembre 2018 09:38