scroll

[Evelynetfrancois]

bonjour
sur une feuil j'ai dans chaque colonne : A2 ..a A250 les dates de l'annee en cour

Auriez vous la macro qui me permettrais de faire venir la colonne du jour en colonne B par scroll (je pense).
merci pour toutes vos idees qui vont me permettre d'avancer
bonne journee
E et F

 

[Jam]

Bonjour vous deux

Euh, j'comprend pas bien l'utilité de 'déplacer' la date du jour...Il vous suffit de mettre la formule =AUJOURDHUI() en colonne B pour avoir la date du jour.

Ou alors j'ai pas bien compris ce que vous voulez faire.

Bon courage.

 

[evelynetfrancois]

alors en fait chaque colonne correspond a une date qui lui est attiuée
j'aurai donc aime avoir tous les jours la colonne du jour le plus possible a gauche ,pour ne pas aller la chercher avec la souris sans arret
et qu au demarrage de la page la collone soit prete a etre saisie
j'espere etre clair lol
merci pour tout

 

[galopin01]

Bonjour,
Un petit bout d'essai...
A+ [file name=galopin.zip size=9274]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/galopin.zip[/file]

 

[Evelynetfrancois]

bonsoir Galopin et merci !!
c'est exatement ca !
mais dans l'autre sens
mes dates sont dans les premieres cell de chaque colonnes
c'est donc les colonnes qui devraient se scrooler !
si tu as une bonne idee
je te remercie d'avance
e et f

 

[_Thierry]

Bonsoir E&F, Galopin, le Forum

Pas bien compliqué, vous n'êtes pas d'un naturel curieux !

J'ai simplement converti le code de Galopin pour Column à la place de Row...

Et un petit gestionnaire d'erreur si pas la date...

Option Explicit

Sub A_Galopin_Colonne()
Dim c As Range
Dim z As String
Dim i As Integer

    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
Exit Sub
Out:
MsgBox 'Date ' & Format(Date, 'DD/MM/YYYY') & ' Non Trouvée'
End Sub

Arf et j'ai déclaré les variables aussi, petit galopin !! lol

Bon Week End
@+Thierry

 

[galopin01]

Suffit de transposer...
A+
[file name=galopin_20050311171911.zip size=10019]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/galopin_20050311171911.zip[/file]

 

[_Thierry]

re Hello

Et alors Roger c'est variable... ou ces variables ?

Mais en tout cas Roger ? Vous n'avez rien à déclarer ?

Bon Week End
@+Thierry

 

[evelynetfrancois]

merci beaucoup
evidement ca marche super bien

oups
j'avais bien tenté ,mais je me suis trompe avec les 's' de ROWS et COLUMN

bonne soiree a vous deux
E et F