Bonjour,
j'ai fais un dt picker sur une feuille qui fonctionne bien j'ai copié cette
feuilles plusieurs fois mais mon dt picker ne fonctionne que sur la feuille
ou j'ai tout crée.
je laisse mon code, je pense que c'est au niveau du with worksheet (1) qu'il
faut changer quelque chose mais je ne sais pas quoi.
Private Sub DTPicker1_CloseUp()
With Worksheets(1).Cells
Set c = .Find(DTPicker1.Value)
If Not c Is Nothing Then
Application.Goto c
Else
MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation
End If
End With
Essaie avec ActiveSheet au lieu de worksheets(1) worksheets(1) c'est toujours la premiere ;-)
With Worksheets(1).Cells
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
jerome.tania
Bonjour JLuc Bien le merci cela fonctionne. Bonne soirée Tania "JLuc" a écrit dans le message de news:
*Bonjour jerome.tania*,
Essaie avec ActiveSheet au lieu de worksheets(1) worksheets(1) c'est toujours la premiere ;-)
With Worksheets(1).Cells
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Bonjour JLuc
Bien le merci cela fonctionne.
Bonne soirée
Tania
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.8c5f7d6427d484b0.40692@free.fr.ns...
*Bonjour jerome.tania*,
Essaie avec ActiveSheet au lieu de worksheets(1)
worksheets(1) c'est toujours la premiere ;-)
