Transformer une date en valeur

tigeline001 · 15 Juillet 2016

Bonjour tout le monde
j'ai une date sous cette forme "2016-04-19 11:07:23.000" et je voudrais la convertir en valeur mais en faisant le debogage il me dit incompatible type au niveau de l'instruction " tabloDte(ln, 1) = tabloDte(ln, 1) * 1 "voir code ci dessous

VB:

Dim  tabloDte, tabloM, ln&, v&, m As Byte, c

    Sheets("Indicateur_C").Range("CI16").CurrentRegion.Offset(1, 0).Clear
    Sheets("Indicateur_C").Range("CM17:CM28").ClearContents
   
    tabloDte = Sheets("Rapport_Intervention").Range("E2:E" & Range("E" & Rows.Count).End(xlUp).Row)
    For ln = 1 To UBound(tabloDte, 1)           'pour régler le pb des dates américaines
        tabloDte(ln, 1) = tabloDte(ln, 1) * 1     'on transforme les dates en valeurs
    Next ln

SVP ,quelqu'un peut m'indiquer là où se trouve l'erreur ou comment transformer ces genres de date.
Jai remarqué que si j'enléve les "000" à la fin au niveau de la date ça marche
Merci

Caillou · 15 Juillet 2016

Bonjour,

Si les dates sont toutes au meme format (et de meme longueur) :
For ln = 1 To UBound(tabloDte, 1)
Feuil1.Cells(ln + 1, "G") = CDate(Left(Feuil1.Cells(ln + 1, "F"), 19))
Next ln

Caillou

tigeline001 · 15 Juillet 2016

Merci Cailloux il me donne toujours le meme message
Erreur d'execution '13'
Incompatibilité de type

Caillou · 15 Juillet 2016

Re,
Peux tu poster un fichier réduit

tigeline001 · 15 Juillet 2016

Ok
tu peux cliquer sur le bouton Max il te sort directement l'erreur

Caillou · 15 Juillet 2016

re,

modifies la boucle comme ceci:
For ln = 1 To UBound(tabloDte, 1) 'pour régler le pb des dates américaines
tabloDte(ln, 1) = CDate(Left(tabloDte(ln, 1), 19)) 'on transforme les dates en valeurs
Next ln
chez moi ça marche !

Caillou

tigeline001 · 15 Juillet 2016

Merci Caillou
ça marche
comment faire si on a à la place de certaine date des NULL

Caillou · 15 Juillet 2016

a l'arrache !
tu rajoutes
On Error Resume Next
au début de la procédure

Caillou

tigeline001 · 15 Juillet 2016

MErci encore de ta disponibilite et de ton aide

tigeline001 · 15 Juillet 2016

Excuse Cailllou
es ce qu'il ya possiblite avec le code suivant d'avoir le maximum par mois

VB:

Sub Compter_encore()
Dim Couleurs, MonDico, C, mRange, Last
Dim Plg
Dim Maxi, iMaxi
Dim DMax As Variant
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Sheets("Rapport_Intervention")
Set ws2 = Sheets("Indicateur_C")
Set MonDico = CreateObject("Scripting.Dictionary")
'[E:F].ClearContents
Last = ws1.[A65000].End(xlUp).Row
Set mRange = ws1.Range("A2:A" & Last): mRange.Interior.ColorIndex = Null
For Each C In mRange
  If C <> "" Then MonDico.Item(C.Value) = MonDico.Item(C.Value) + 1
  Maxi = IIf(Maxi > MonDico.Item(C.Value), Maxi, MonDico.Item(C.Value))
  iMaxi = IIf(Maxi > MonDico.Item(C.Value), iMaxi, C)
Next C
ws2.[Y17].Resize(MonDico.Count) = Application.Transpose(MonDico.Keys)
ws2.[Z17].Resize(MonDico.Count) = Application.Transpose(MonDico.Items)
Last = ws2.[F65000].End(xlUp).Row
Set Plg = ws2.Range("Y17:Y" & Last)
DMax = Application.Max(MonDico.Items)
Sheets("Indicateur_C").Cells(Last + 2, "Z").Value = DMax
Sheets("Indicateur_C").Cells(Last + 2, "Y").Value = iMaxi
Sheets("Indicateur_C").Range("AB17").Value = DMax
End Sub

tigeline001 · 15 Juillet 2016

ce que je veux c'est d'avoir pour chaque mois le maximum d'intervention
Exemple
Pour mai l'intervention 1-1103913505 est present 9 fois
Pour le meme mois de mai 1-1121401607 est present 1 fois
donc on doit prendre le nombre 9
Merci

Transformer une date en valeur

tigeline001

XLDnaute Occasionnel

Caillou

XLDnaute Impliqué

tigeline001

XLDnaute Occasionnel

Caillou

XLDnaute Impliqué

tigeline001

XLDnaute Occasionnel

Pièces jointes

Caillou

XLDnaute Impliqué

tigeline001

XLDnaute Occasionnel

Caillou

XLDnaute Impliqué

tigeline001

XLDnaute Occasionnel

tigeline001

XLDnaute Occasionnel

tigeline001

XLDnaute Occasionnel

Discussions similaires