Discussion :

[progbabou]

Bonjour
Alors voila j'aimerais convertir ma sélection qui est un nombre en date le code suivant marche super bien quand ma sélection est unique mais quand je sélectionne plusieurs cellules celui-ci bug je pense que ça vient de la boucle.
Si quelqu'un peut m'aider ça serait gentil.
Merci d'avance.

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

[parmi]

Bonjour,

Quel est le format de date que tu as et quel format désires-tu avoir comme résultat ?
Avec quelques exemples, ça devrait aider...

[progbabou]

Non on fait c'est bon je te remerci j'ai réussi a me débrouiller mais j'ai pas réussi a supprimer le post

[fuine0069]

Hello,

à ce que je vois, tu ne convertis pas en date mais tu transformes ton nombre en chaine de caractère.
Je te conseilles de plus regarder sous format date. (voir lines ci dessous)
la technique de chaines de caractères est bonne pour manipuler tom format, mais après cela, il faut que tu change le format de ta cellule en date.

http://mhubiche.developpez.com/vba/f...tetime/#LIII-E

bàt,