embrouille avec les trim$

[batiscaf]

Bonsoir le forum,

j'ai bien cru que j'allais trouver, mais raté.

L'exemple joint est très simple :
En VB, je cherche à faire une copie d'onglet dans mon classeur, mais que les données du nouvel onglet ne reprennent pas les espaces des textes qui trainent à droite dans les colonnes.

J'ai voulu utiliser le trim$ comme il m'arrive de faire lorsque je veux épurer une cellule, en 1 ou 2 lignes de code, mais je me suis planté avec la notion d'onglet je pense.

Merci de votre aide.

Batiscaf.

 

[PhiBou]

Bonjour Batiscaf, le Forum

Crée l'onglet Feuil2, met un bouton sur Feuil1 affecté à cette macro :

Option Explicit

Sub Batiscaf()
Dim Mat As Variant
Dim Col, j As Integer
Dim Lig, i As Long
Dim Plage As String
Mat = Sheets("Feuil1").UsedRange
Plage = ActiveSheet.UsedRange.Address
Lig = UBound(Mat)
Col = ActiveSheet.UsedRange.Count / UBound(Mat)
For j = 1 To Col
For i = 1 To Lig
Mat(i, j) = RTrim(Mat(i, j))
Next i
Next j
Sheets("Feuil2").Range(Plage) = Mat
End Sub

Bonne journée

PhiBou

 

[batiscaf]

Bonjour Phibou, le Forum,

C'est parfait. Un grand merci.

Effectivement ça ne se fait pas en 1 ou 2 lignes de code comme je pensais.

Bonne fin de journée.