Mise en Forme MACRO EXCEL 2

Version imprimable

Voir 40 message(s) de cette discussion en une page

Salut,

@eric4459,
Tu étais bien parti avec Application.Substitute qui était la meilleur solution.
Il ne faut pas que ça dépasse 65536 cellules par dimension par contre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub EcritDansCellule()
    ' Me = Feuil1 dans le test
    Me.Range("A1").Value = "  rz  zz ghd"
    Me.Range("A4").Value = "fhj dcfj lum  "
    Me.Range("A10").Value = "w gq74  25k gt   "
End Sub
 
Sub MainTest()
 
    EcritDansCellule
 
    With Me.Range("A1:A10")
        .Offset(ColumnOffset:=1).Value = Application.Substitute(.Value, " ", "")
    End With
 
End Sub

@Nouveau2
Si je met

Code:

1
2
3
4
5
6
7
8
9
10
11
With Export
    der = .Cells(.Rows.Count, 3).End(xlUp).Row
 
    For i = 1 To der
    Cells(1, 3).Select
         If Cells(i, 3).Value Like ("* *") Then
         Cells(i, 3) = Replace(Cells(i, 3), " ", "")
         End If
    Next i
 
End With

je ne serai limité que par le nombre de ligne de ma feuille, non?
Eric

18/12/2014, 21h53
Invité

Salut,

Citation:

Envoyé par eric4459

je ne serai limité que par le nombre de ligne de ma feuille, non?
Eric

Oui, c'est juste :mrgreen:

Voir 40 message(s) de cette discussion en une page