aller à une cellule à l'ouverture

[Patrick]

Bonsoir à toutes et à tous,

J'ai parcouru un peu le forum et je n'ai pas trouvé ce que je cherche ( j'ai surement pas assez insisté désolé )

Ma question:
dans la colone A j'ai des dates
je souhaiterais que lors de l'ouverture du fichier, la cellule selectionnée soit celle de la date du jour.

en espérant que ma question soit assez bien formulée, je vous dit merci d'avance

Patrick

 

[Rénato]

Bonjour Patrick,

Voici un premier script qui devrait si j'ai bien compris te dépanner.

Sub auto_open()
Dim DateDuJour As String

Range("B1").FormulaR1C1 = "=TODAY()"
DateDuJour = Range("B1").Value
Columns("A:A").Select
Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Application.CutCopyMode = False
Range("B1").FormulaR1C1 = ""
ActiveCell.Select
End Sub

Cordialement

Rénato

 

[kad]

Salut !

Dans le module ThisWorkbook sous VBA, commence par créer 'Private Sub workbook_open() qui s'éxécutera au démarrage.
Ensuite, deux possibilités :
- faire une recherche de la valeur de la date du jour (basée sur ton horloge) dans la colonne A avec une méthode .find
-parcourir toutes les cellules de la colonne A et s'arrêter sur la date du jour
(je préfère, c'est perso) tout en définissant ton format de date

Ma méthode:

Dim Vcell as object

columns("A:A").select

For each Vcell in selection

if format(vcell.value,"dd/mm/yyyy")=format(now(),"dd/mm/yyyy") then
vcell.activate
resume Next
endif

next Vcell


End sub

J'espère que ça suffira...! :0=)

 

[Patrick]

merci Renato pour ta réponse je vais essayer ça demain

Patrick

@@@

 

[Patrick]

Merci Kad

@@@

 

[Patrick]

je ne voudrais pas jouer les em... mais ça:

Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

ça coince...

snifff

 

[Rénato]

Bonsoir le forum, salut Patrick

Est ce que tes dates sont au format jj/mm/aaaa ?

Si ce n'est pas le cas en effet ça coince.

Deux pistes :

Soit tu adaptes tes dates au format ci-dessus
Soit tu as une contrainte sur le format spécifié et tu me le communique, j'essayerai de t'adapter autre chose.

Bien cordialement

Rénato

 

[Patrick]

Bonsoir les lecteurs et participants du forum,

mon format de date est:
jj.mm.aa

Merci d'avance

Patrick

@@@

 

[Rénato]

Bonjour Patrick,

Voici un fichier avec un script qui intègre ton format spécifique.

Cordialement

Rénato

 

[Patrick]

essai lundi soir...

merci Rénato

Bon week end

Patrick

@@@