bonjour à tous
j'ai un fichier avec un forulaire sur lequel je me sers de DTPicker1
tout se passe correctement
Sur un second fichier avec meme configuration (Feuil9), j'ai une erreur sur la ligne DTPicker
Voici la macro telle qu'elle est enregistrée :
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub
Private Sub DTPicker1_Change()
For col = 167 To 532
Lig = 1
If DTPicker1.Value = CStr(Feuil9.Cells(Lig, col)) Then
'origine
a.Value = Feuil9.Cells(Lig + 2, col).Value
b.Value = Feuil9.Cells(Lig + 3, col).Value
c.Value = Feuil9.Cells(Lig + 4, col).Value
d.Value = Feuil9.Cells(Lig + 5, col).Value
End If
Next col
End Sub
Le message d'ereur est sur la ligne : If DTPicker1.Value = CStr(Feuil9.Cells(Lig, col)) Then
Merci pour votre aide
cdlt
philippe
j'ai un fichier avec un forulaire sur lequel je me sers de DTPicker1
tout se passe correctement
Sur un second fichier avec meme configuration (Feuil9), j'ai une erreur sur la ligne DTPicker
Voici la macro telle qu'elle est enregistrée :
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub
Private Sub DTPicker1_Change()
For col = 167 To 532
Lig = 1
If DTPicker1.Value = CStr(Feuil9.Cells(Lig, col)) Then
'origine
a.Value = Feuil9.Cells(Lig + 2, col).Value
b.Value = Feuil9.Cells(Lig + 3, col).Value
c.Value = Feuil9.Cells(Lig + 4, col).Value
d.Value = Feuil9.Cells(Lig + 5, col).Value
End If
Next col
End Sub
Le message d'ereur est sur la ligne : If DTPicker1.Value = CStr(Feuil9.Cells(Lig, col)) Then
Merci pour votre aide
cdlt
philippe