Bonjour,
J'ai un soucis sur une macro sous excel car débutant
Je voudrais une macro qui puisse m'enlever tout les espaces superflus dans toutes mes cellules....
Merci par avance pour votre aide
Sub SupprEspaces() Dim L, C For L = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Row For C = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Column Cells(L, cl).Value = Trim(Cells(L, C).Value) Next Next End Sub
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.
Dim L, C
For L = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Row
For C = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Cells(L, c).Value = Trim(Cells(L, C).Value)
Next
Next
End Sub
voici le bon code
Pourrais-tu me commenter t on message précédent car je voudrais l'appliquer seulement a quelques colonnes de ma
feuille.
Merci beaucoup
Cordialement
Tructpol