1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Sub da()
Dim c As Range
For Each c In Selection
If Not c.Value > 100000 Then ‘ca me permet de modifier la date si la date est en dessous du 10
c.Value = Mid(c.Value, 2, 2) & "/" & Left("0" & c.Value, 2) & "/" & Right(c.Value, 2)
Else ‘converti le nombre en date
Selection.TextToColumns Destination:=c, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
End If
If c.Value = "0" Then ‘dans le fichier il peut y avoir des 0 mais ce code ne marche pas meme si je le place dans un elseif
c.Value = "Pas de date renseigner"
End If
Next c
End Sub |
