Fonction cells

[Kox]

Bonjour,

Je rencontre un problème avec une fonction cells utilisant des variables.

Celle-ci me renvoie la valeur "vide" est donc ne fonctionne pas.

Voici la partie du code concerné :
Il s'agit de la partie avec la variable f, Datdet me revoie "vide" alors que la valeur existe bien dans la colonne concernée (c'est une date...)

--------------------------------------------------------------
'Définition des variables

Dat1 = TextBox1.Value

For i = 1 To 50

Windows("STATLAB.xls").Activate

Sheets("certificats").Select


If Cells(i, 1) <> "" Then
DETERM = Cells(i, 3).Value
FIC = Cells(i, 4).Value

FENETRE = FIC + ".XLS"

'Ouverture base de données concernée
Windows(FENETRE).Activate

'Recherche de la colonne date
For d = 1 To 10
If Cells(1, d) = "DateEnrg" Then Coldate = d
Next d

'Recherche de la ligne correspondante à la date
For f = 1 To 9999
If Cells(f, Coldate) = Dat1 Then Datdet = f
Next f

'Recherche de la détermination
For G = 1 To 255
If Cells(1, G) = DETERM Then Determination = G
Next G

'Copie des données
Cells(Datdet, Determination).Select
Selection.Copy
Windows("STATLAB.xls").Activate
Cells(i, 8).Select
Sheets("certificats").Paste

End If

Next i
--------------------------------------------------------------

Avez vous des pistes à me donner...

Pour info avec Win XP et office XP cela fonctionnait, maintenant avec Win Seven et office 2003 ça ne marche plus.

Merci

 

[Pierrot93]

Re : Fonction cells

Bonjour,

peut être lors de l'initialisation de la variable "Dat1", modifie comme suit :

Dat1 = CDate(TextBox1.Value)

par contre je ne vois pas dans ton code les définitions de variable...

bonne journée
@+

 

[Kox]

Re : Fonction cells

Merci pour l'astuce, cela fonctionne à nouveau.

Pour la phrase de définition des variables, c'est une ancienne indication qui trainait par là, je vais l'enlever...

Merci Pierrot, à la prochaine peut être...