W
WyLLoU !!
Guest
Bonjour,j'ai un souci qui perciste et je ne sais pas pourquoi
Peut-être que vous pourez m'éclairer.
Présentation:
J'ai une connection ADO avec un fichier excel dans laquel je récupère les données d'une colonne dans un tableau pour ensuite le copier dans la colonne d'un autre fichier.
Moi ce que j'ai voulu c'est que si la cellule est vide,je met un C dans mon tableau(a la place de la valeur de la cellule) et que sinon je met un A
Do While Not rcs.EOF
For indL = 1 To rcs.RecordCount 'lignes
For indC = 0 To rcs.Fields.Count - 1 'colonnes
If rcs.Fields(indC).Value = Null Then
Arr(indL, indC + 1) = 'C'
Else
Arr(indL, indC + 1) = 'A'
End If
'Arr(indL, indC + 1) = rcs.Fields(indC).Value
Next
rcs.MoveNext
Next
Loop
Le problème: il me met toujours des A jamais des C,arrivé au If il passe toujours au Else;à mon avis c'est un souci sur le If rcs.Fields(indC).Value = Null ; il doit pas reconnaitre la valeur Null ,mais si je met '' c'est pareil.
Peut-être que vous pourez m'éclairer.
Présentation:
J'ai une connection ADO avec un fichier excel dans laquel je récupère les données d'une colonne dans un tableau pour ensuite le copier dans la colonne d'un autre fichier.
Moi ce que j'ai voulu c'est que si la cellule est vide,je met un C dans mon tableau(a la place de la valeur de la cellule) et que sinon je met un A
Do While Not rcs.EOF
For indL = 1 To rcs.RecordCount 'lignes
For indC = 0 To rcs.Fields.Count - 1 'colonnes
If rcs.Fields(indC).Value = Null Then
Arr(indL, indC + 1) = 'C'
Else
Arr(indL, indC + 1) = 'A'
End If
'Arr(indL, indC + 1) = rcs.Fields(indC).Value
Next
rcs.MoveNext
Next
Loop
Le problème: il me met toujours des A jamais des C,arrivé au If il passe toujours au Else;à mon avis c'est un souci sur le If rcs.Fields(indC).Value = Null ; il doit pas reconnaitre la valeur Null ,mais si je met '' c'est pareil.
