cathodique
XLDnaute Barbatruc
Bonjour,
Dans l'aide du vbe, j'ai trouvé un exemple de code pour utiliser la fonction DatePart.
J'ai pris l'un de mes fichiers pour exploiter cette fonction et me suis rendu compte que la fonction Debug.Print ne renvoyer ni les bons résultats,
ni le même nombre de lignes par rapport à la source (feuille ("bd")).
J'ai utilisé le code sur la feuille et ça donne de bons résultats mais pas le debug.print.
J'ai aussi utilisé la même fonction mais cette fois-ci en utilisant un array, ça donne aussi de bons résultats.
Par contre le debug.print plante, et je n'ai pas vraiment compris pourquoi?
Merci, de me venir en aide.
Bonne journée.
Dans l'aide du vbe, j'ai trouvé un exemple de code pour utiliser la fonction DatePart.
J'ai pris l'un de mes fichiers pour exploiter cette fonction et me suis rendu compte que la fonction Debug.Print ne renvoyer ni les bons résultats,
ni le même nombre de lignes par rapport à la source (feuille ("bd")).
J'ai utilisé le code sur la feuille et ça donne de bons résultats mais pas le debug.print.
J'ai aussi utilisé la même fonction mais cette fois-ci en utilisant un array, ça donne aussi de bons résultats.
Par contre le debug.print plante, et je n'ai pas vraiment compris pourquoi?
VB:
Sub MaProcedure()
Dim Sh1 As Worksheet, dl As Long, Tb(), i As Long
Set Sh1 = ThisWorkbook.Worksheets("BD")
dl = Sh1.Range("A" & Sh1.Rows.Count).End(xlUp).Row
Tb = Sh1.Range("A2:L" & dl).Value2
For i = 2 To dl
Sh1.Cells(i, 14) = ""
Sh1.Cells(i, 14) = "Trim" & DatePart("q", Sh1.Cells(i, 1)) 'bons résultats
Debug.Print "Trim" & DatePart("q", Sh1.Cells(i, 1)) 'ne donne de bons résultats
Next i
For i = 1 To UBound(Tb)
Tb(i, 1) = "Trim" & DatePart("q", Tb(i, 1)) 'bons résultats
Debug.Print "Trim" & DatePart("q", Tb(i, 1)) 'erreur d'execution 13, incompatilité de type
Next i
Feuil2.Range("A1").Resize(UBound(Tb, 1), UBound(Tb, 2)) = Tb
End Sub
Bonne journée.