Lone-wolf
XLDnaute Barbatruc
Bonjour le Forum,
cette macro (permet d'éffacer + ou -) de droite à gauche un texte dans une cellule.
Le problème, c'est qu'au bout de 5 caractères, il éfface plusieurs caractères au lieu de 1.
A+ 😎
cette macro (permet d'éffacer + ou -) de droite à gauche un texte dans une cellule.
Code:
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 SubLe problème, c'est qu'au bout de 5 caractères, il éfface plusieurs caractères au lieu de 1.
A+ 😎
Dernière édition: