reconnaissance de dates

  • Auteur de la discussion Evelynetfrancois
  • Date de début
E

Evelynetfrancois

Guest
bonjours a tous lol
je vous solicite pour un petit blem

je calle sur un probleme insoluble pour moi
dans un programme jai cette macro si desous , qui me calle a gauche la colonne contenant la date du jour

cette macro fonctionne parfaitement sur tout les ordis sauf sur un (windows nt)
je ne m explike pas la cause
les parametres regionnaux son identiques

ayriez vous une idees ..merci d avance
et bonne journee
EetF


Private Sub Worksheet_Activate()
Dim c As Range
Dim z As String
Dim i As Byte
With Rows(1)
Set c = .Find(Date , LookIn:=xlValues)
If Not c Is Nothing Then
i = c.Column
z = c.Address
Range(z).Activate

End If

End With

On Error GoTo Out:
ActiveWindow.ScrollColumn = i
ActiveCell.Interior.ColorIndex = 50
ActiveCell.Offset(1, 0).Select
Exit Sub

Out:
MsgBox 'Date ' & Format(Date, 'DD/MM/YYYY') & ' Non Trouvée'
 

2passage

XLDnaute Impliqué
Bonjour,

cette macro fonctionne parfaitement sur tout les ordis sauf sur un
tu pourrais être plus précis ? (macro ne fait rien ? mets le sablier quelques secondes puis rien ? plante avec message d'erreur ?etc..)

Merci
A+

Message édité par: 2passage, à: 03/08/2005 11:44
 

Discussions similaires


Haut Bas