Macro : incrémenter sans déplacement

[TomTom07]

Bonjour

je souhaite incrémenter sans déplacement lors de l'exécution de la macro

Range("BD3").Select
ActiveCell.FormulaR1C1 = "=test"
Range("BD3").Select
Selection.AutoFill Destination:=Range("BD3:BU3"), Type:=xlFillDefault
Range("BD3:BU3").Select
Selection.AutoFill Destination:=Range("BD3:BU1094")
Range("BD3:BU1094").Select

ça me permet d'actualiser des alertes mais je souhaiterai rester sur la même cellule initiale , le bouton se trouvant sur le panneau en haut

merci d'avance

 

[ERIC S]

Re : Macro : incrémenter sans déplacement

bonsoir

je n'ai pas tout regardé mais pour ne pas se déplacer il ne faut pas utiliser select

exemple :

Range("BD3").Select
ActiveCell.FormulaR1C1 = "=test"
peut s'écrire

Range("BD3").FormulaR1C1 = "=test"

 

[TomTom07]

Re : Macro : incrémenter sans déplacement

Merci beaucoup

la solution est de remplacer selection par range:

Range("BD3").FormulaR1C1 = "=test"
Range("BD3").AutoFill Destination:=Range("BD3:BU3"), Type:=xlFillDefault
Range("BD3:BU3").AutoFill Destination:=Range("BD3:BU1094")