Probleme de macro sous excel
lj78
-
Mike-31 Messages postés 18398 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18398 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je cherche une macro qui à l'ouverture d'un classeur excel permettrait de positionner le classeur automatiquement sur la colonne contenant le nombre correspondant à la semaine en cours.
Je sais que pour les macros d'ouverture il faut utiliser la commande auto_open mais j'ai pas d'idée pour placer le curseur sur le numéro de celleule correspondant à la date du jour.
Alors si vous avez la solution merci de bien vouloir m'aider.
D'avance merci.
LJ78
Je cherche une macro qui à l'ouverture d'un classeur excel permettrait de positionner le classeur automatiquement sur la colonne contenant le nombre correspondant à la semaine en cours.
Je sais que pour les macros d'ouverture il faut utiliser la commande auto_open mais j'ai pas d'idée pour placer le curseur sur le numéro de celleule correspondant à la date du jour.
Alors si vous avez la solution merci de bien vouloir m'aider.
D'avance merci.
LJ78
A voir également:
- Probleme de macro sous excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
2 réponses
Bonjour,
question : si t connais le nom de feuille et la colonne, il est facile de trouver lalign qui contient la date du jour :
sub auto_open
i=1
do while sheets("Feuil1").cells(i,2) <> date
'remplaces fuile1 par ton nom de feuille
'cells(i,2) ==> i est une variable et va balayer ta colonne 2
' date est une fonction = date du jour
i=i+1
loop
sheets("Feuil1").cells(i,2).select
end sub
question : si t connais le nom de feuille et la colonne, il est facile de trouver lalign qui contient la date du jour :
sub auto_open
i=1
do while sheets("Feuil1").cells(i,2) <> date
'remplaces fuile1 par ton nom de feuille
'cells(i,2) ==> i est une variable et va balayer ta colonne 2
' date est une fonction = date du jour
i=i+1
loop
sheets("Feuil1").cells(i,2).select
end sub
Salut,
Question posée récemment sur ce forum,
ou ce code dans la Thiswokbook activera la cellule contenant la date du jour dans l'exemple colonnes A à C à adapter
Private Sub Workbook_Open()
Dim x
On Error Resume Next
x = Date
With Worksheets("Feuil1").Range("A:C")
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
End If
End With
Range(firstAddress).Select
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Question posée récemment sur ce forum,
ou ce code dans la Thiswokbook activera la cellule contenant la date du jour dans l'exemple colonnes A à C à adapter
Private Sub Workbook_Open()
Dim x
On Error Resume Next
x = Date
With Worksheets("Feuil1").Range("A:C")
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
End If
End With
Range(firstAddress).Select
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
