A
Antoine
Guest
Bonjour, là je suis confronté a quelque chose de pas très compréhensible.
L'informatique est censé etre une science ( ou du moins un dérivé des maths, qui sont une science )
Et donc --> "meme cause provoquent les meme effets"
Et bien pas chez moi ;-) :
Le meme code fonctionne a merveille dans un classeur alors qu'il provoque une erreur "projet ou bibliothèque manquante" dans un autre classeur.
Il ne semble pas aimer du tout les fonction de texte : il bloque sur Trim(), Mid() et ne veut pas les reconaitre
voila le code entier d'un module .... je ne le met pas en fichier joint car c'est trop gros.
Option Explicit
Public Chaine As String
--------------------
Public Sub ExtractionDate()
Dim nbrdedate As Integer ' contient le nombre date au format jj/mm/aaaa
Dim repDebut As Single ' défini ou va commencer la selection des caractères
repDebut = 1 'commencer au premier caractère de la chaine
nbrdedate = Len(Chaine) / 11 ' car il y a 11 caractère par date
Static extractdate() As String
ReDim extractdate(1 To nbrdedate) As String ' tablo començant a 1 et ne ontenant que des string
Dim i As Integer
For i = 1 To nbrdedate
extractdate(i) = Mid(Chaine, repDebut, 10) ' la chaine, de répdebut a repdebut +10 caractère
extractdate(i) = FormatDateTime(extractdate(i), vbGeneralDate)
'ListBox1.List = extractdate
repDebut = repDebut + 11
Next i
End Sub
---------------------
Il bloque systematiquement sur Mid(), alors que le meme code fonctionne dans un autre classeur.
je ne vois pas ou est le problème ( le variables sont semble toute dimentioner et initialiser correctement .... )
L'informatique est censé etre une science ( ou du moins un dérivé des maths, qui sont une science )
Et donc --> "meme cause provoquent les meme effets"
Et bien pas chez moi ;-) :
Le meme code fonctionne a merveille dans un classeur alors qu'il provoque une erreur "projet ou bibliothèque manquante" dans un autre classeur.
Il ne semble pas aimer du tout les fonction de texte : il bloque sur Trim(), Mid() et ne veut pas les reconaitre
voila le code entier d'un module .... je ne le met pas en fichier joint car c'est trop gros.
Option Explicit
Public Chaine As String
--------------------
Public Sub ExtractionDate()
Dim nbrdedate As Integer ' contient le nombre date au format jj/mm/aaaa
Dim repDebut As Single ' défini ou va commencer la selection des caractères
repDebut = 1 'commencer au premier caractère de la chaine
nbrdedate = Len(Chaine) / 11 ' car il y a 11 caractère par date
Static extractdate() As String
ReDim extractdate(1 To nbrdedate) As String ' tablo començant a 1 et ne ontenant que des string
Dim i As Integer
For i = 1 To nbrdedate
extractdate(i) = Mid(Chaine, repDebut, 10) ' la chaine, de répdebut a repdebut +10 caractère
extractdate(i) = FormatDateTime(extractdate(i), vbGeneralDate)
'ListBox1.List = extractdate
repDebut = repDebut + 11
Next i
End Sub
---------------------
Il bloque systematiquement sur Mid(), alors que le meme code fonctionne dans un autre classeur.
je ne vois pas ou est le problème ( le variables sont semble toute dimentioner et initialiser correctement .... )