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