Bonjour,

Voici un code qui me permet de mettre un "X" automatiquement en cliquant sur un bouton. Mais que dois-je rajouter pour que le curseur descende automatiquement d'une cellule après le clic ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub CommandButton5_Click()
ActiveCell.Select
ActiveCell.FormulaR1C1 = "X"
End Sub
Merci par avance