[Résolu] Macro retour arrière

[Lone-wolf]

Bonjour le Forum,

cette macro (permet d'éffacer + ou -) de droite à gauche un texte dans une cellule.

Private Sub CommandButton1_Click()
Sheets(1).Activate
With ActiveSheet
If Right(ActiveCell.Value, 1) <> "" Then
SendKeys "{BACKSPACE}"
ActiveCell.Value = Replace(ActiveCell.Value, Right(ActiveCell.Value, 1), "")
Else
Exit Sub
End If
End With
End Sub

Le problème, c'est qu'au bout de 5 caractères, il éfface plusieurs caractères au lieu de 1.



A+ 😎

 

[titiborregan5]

Re : Macro retour arrière

Bonjour Lone-wolf, le forum,

est ce qu'un truc comme ça ne serait pas plus simple?

car = Len(ActiveCell) - 1
ActiveCell = Left(ActiveCell, car)

 

[Lone-wolf]

Re : Macro retour arrière

Bonjour titiborregan5,

Merci d'avoir répondu. C'est très bien vu. Bravo


A+ 😎