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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas