Discussion :

[OBADJ]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

Bonjour Obadj,

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.

[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 !

[MarcelG]

Salut Obadj,

C'était juste un clin d'oeil

Pour la fonction Trim, tu peux regarder cette aide

A plus tard.

[Patrice740]

Bonjour,

Essaies :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[OBADJ]

Ça a l'air de fonctionner !