Suppression espaces cellules vides en VBA

Version imprimable

Bonjour à tous,

Je voudrais rajouter à ma macro, qu'il supprime les espaces dans les cellules "vides" dans ma colonne 17.
Voici la macro qui me permet déjà de supprimer les espaces avant et après et de transformer par exemples "05 01 2018" en "05/01/2018", donc en date de jour. Il faudrait juste que je complète en rajoutant qu'il doit supprimer les espaces dans les cellules "vides".
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub ConvertDate() Dim i As Long, Temp As String With Sheets(1) Derligne = .Range("A" & Rows.Count).End(xlUp).Row For i = 2 To Derligne If Not IsError(.Cells(i, 17)) Then If Len(Replace(.Cells(i, 17), " ", "")) = 8 Then Temp = Replace(.Cells(i, 17), " ", "") .Cells(i, 17) = DateSerial(CInt(Right(Temp, 4)), CInt(Mid(Temp, 3, 2)), CInt(Left(Temp, 2))) End If Else: .Cells(i, 17).ClearContents End If Next i End With End Sub
Merci de m'aider à compléter mon code :D

21/01/2019, 10h27
MarcelG

Bonjour Obadj,

Citation:

Il faudrait juste que je complète en rajouter qu'il supprimer les espaces dans les cellules "vides".

Si les cellules sont vides, alors je ne vois pas ce qui doit être supprimé.
A toute fin utile, tu peux utiliser les fonctions de chaînes de caractères Trim, RTrim et LTrim.
Autre piste, utiliser la méthode Replace comme tu l'as fait.

Remarque.
Dans ton code, j'aurais initialisé la variable Temp avant la condition.
Ce afin de l'utiliser et alléger le code.
21/01/2019, 10h32
OBADJ

Marcel, si je le demande c'est qu'il y une utilité. Je m'explique les cellule "vides" comportes plusieurs espaces à l'intérieur de la cellules donc il ne la reconnait pas comme cellules vides...

Merci de m'aider sur le codage car je sais qu'il s'agit de la fonction Trim mais je n'arrive pas a la faire fonctionner.

Merci de votre aide !
21/01/2019, 10h56
MarcelG

Salut Obadj,

C'était juste un clin d'oeil:)

Pour la fonction Trim, tu peux regarder cette aide

A plus tard.

Bonjour,

Essaies :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Sub ConvertDate()
Dim i&, d&
  With Worksheets(1)
    d = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To d
      If Not IsError(.Cells(i, "Q").Value) Then
         .Cells(i, "Q").Value = Replace(Trim(.Cells(i, "Q").Text), " ", "/")
      End If
    Next i
  End With
End Sub

21/01/2019, 12h11
OBADJ

Ça a l'air de fonctionner !