XL 2010 N-1

[CATPLUS]

Bonjour à tous
Je sélectionne dans la colonne A la cellule A10 (ou une autre cellule), je clique sur le bouton et efface le contenu.
Ma question:
Svp comment puis-je passer, de la cellule A10 après avoir effacer cette cellule venir dans la cellule supérieure A9
Cordialement

 

[Efgé]

Bonjour

Sub Bouton1_Cliquer()
    Selection.ClearContents
    Selection.Offset(-1, 0).Select
End Sub

Cordialement

 

[JM27]

bonjour
Avec une gestion d'erreur si on est en ligne 1

Sub Bouton1_Cliquer()
   Selection.ClearContents
   On Error Resume Next
   ActiveCell.Offset(-1, 0).Activate
   On Error GoTo 0
End Sub

 

[ChTi160]

Bonjour
Histoire de vous saluer Lol
Une autre version (JM) sans gestion d'erreur !

Sub test()  
   If Selection.Row = 1 Or Selection.Columns.Count > 1 Then Exit Sub
   'en supposant que la première Ligne est la Ligne d'entetes
    Selection.ClearContents
   ActiveCell.Offset(-1, 0).Activate
End Sub

Bonne journée
jean marie

 

[CATPLUS]

Merci à tous les trois. Les réponses fonctionnent parfaitement et répondent à mon besoin.
Bonne journée