emsylvin69
XLDnaute Junior
Bonjour a tous.
Une fois de plus, j'ai besoin de vos lumières.
J'essaye de faire une petite commande en vba mais je reste bloqué dans la formulation.
Je dispose d'une colonne (a) contenant la date et d'une colonne (b) contenant une formule assez longue. Pour plusieurs raisons, cette formule peux être effacée.
J'ai rempli les cellules (de b4 à b35) en étirant la formule de haut en bas.
Si par exemple, j'ai besoin d'effacer le contenu de b10 pendant un certain temps et pour la remettre plus tard, j'ai prévu pour faciliter l'utilisation entre autre, l'affichage d'un petit Userform dans lequel, j'ai un bouton qui devrait me permettre de remettre la formule d'origine dans la case b10.
Le code de ce bouton est celui-ci:
Je vous le donne en mille..... Ca ne fonctionne pas.
Auriez-vous une solution à me proposer et par la même m'expliquer pourquoi mon petit bout de code ne fonctionne pas?
D'avance merci et bonne journée à tous.
Une fois de plus, j'ai besoin de vos lumières.
J'essaye de faire une petite commande en vba mais je reste bloqué dans la formulation.
Je dispose d'une colonne (a) contenant la date et d'une colonne (b) contenant une formule assez longue. Pour plusieurs raisons, cette formule peux être effacée.
J'ai rempli les cellules (de b4 à b35) en étirant la formule de haut en bas.
Si par exemple, j'ai besoin d'effacer le contenu de b10 pendant un certain temps et pour la remettre plus tard, j'ai prévu pour faciliter l'utilisation entre autre, l'affichage d'un petit Userform dans lequel, j'ai un bouton qui devrait me permettre de remettre la formule d'origine dans la case b10.
Le code de ce bouton est celui-ci:
Code:
Sub RemiseZero ()
Set a= ActiveCell.Offset (0, 1)
Set b= ActiveCell.Offset (0, 2)
ActiveCell.AutoFill Destination:=Range ("a:b"), Type:=xlFillDefaut
End Sub
Auriez-vous une solution à me proposer et par la même m'expliquer pourquoi mon petit bout de code ne fonctionne pas?
D'avance merci et bonne journée à tous.
Dernière édition: