reconnaissance de dates

  • Initiateur 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'
 

Discussions similaires

Réponses
6
Affichages
268
Réponses
1
Affichages
1 K

Statistiques des forums

Discussions
311 721
Messages
2 081 927
Membres
101 842
dernier inscrit
seb0390