XL 2010 N-1

Efgé

XLDnaute Barbatruc

• 3 Novembre 2021

• #2

Bonjour

VB:

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

Cordialement

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 3 Novembre 2021

• #3

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

VB:

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Novembre 2021

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

C

CATPLUS

XLDnaute Junior

• 3 Novembre 2021

• #5

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

 

Vote positif 0 Vote négatif