Supprimer les espaces des cellules sélectionnées, Excel VBA

Sub supprimerespaces() 
Dim myRange As Range 
Dim myCell As Range
Select Case MsgBox("You Can’t Undo This Action. " _
& "Save Workbook First?", _ vbYesNoCancel, "Alert")
Case Is = vbYesThisWorkbook.Save 
Case Is = vbCancel 
Exit Sub 
End Select
Set myRange = Selection 
For Each myCell In myRange 
If Not IsEmpty(myCell) Then 
myCell = Trim(myCell)
End If 
Next myCell 
End Sub

L’une des macros les plus utiles de cette liste. Il vérifiera votre sélection, puis en supprimera tous les espaces supplémentaires.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x