Macro Se positionner sur la première cellule

K

kjin

XLDnaute Barbatruc

• 6 Mai 2011

• #2

Re : Macro Se positionner sur la première cellule

Bonjour,

Code:

Private Sub CommandButton3_Click()
    Sheets("Planning").Select
    Range("F" & Application.Match(CLng(VBA.Date), Range("F:F"), 0)).Select
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

L

lalalie3

Guest

• 6 Mai 2011

• #3

Re : Macro Se positionner sur la première cellule

Bonjour Kjin,
Merci pour le nouveau code qui est lui beaucoup plus rapide que le mien, mais j'arrive toujours a la dernière ligne (la 42 ème) alors que je voudrais que ce soit la première de ces 42 lignes.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 6 Mai 2011

• #4

Re : Macro Se positionner sur la première cellule

Bonjour,
Un fichier exemple conforme à l'original sera bien venu !
A+
kjin

 

Vote positif 0 Vote négatif

L

lalalie3

Guest

• 6 Mai 2011

• #5

Re : Macro Se positionner sur la première cellule

Voila une version super mega tera light du classeur.
Merci pour votre aide.

 

Pièces jointes

• Planning_caisse_vide_beta_macro_V-06-05-2011_light.zip

  96.2 KB · Affichages: 31

Vote positif 0 Vote négatif

L

lalalie3

Guest

• 9 Mai 2011

• #6

Re : Macro Se positionner sur la première cellule

Au secours a moi a l'aide .... 😀

 

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 9 Mai 2011

• #7

Bonsoir lalali et le forum.

Pas sur d'avoir bien compris. Peut-être ainsi.😕

Code:

Sheets("Planning").Select
        Range("a1") = "=MATCH(TODAY(),F:F)"
        Cells(Range("a1"), "F").Activate
        Range("a1").ClearContents
        Range("f3").Select

En ajoutant la dernière ligne ci-jointe.

A +

 

Vote positif 0 Vote négatif

L

lalalie3

Guest

• 10 Mai 2011

• #8

Re : Macro Se positionner sur la première cellule

Pour ceux et celles qui en auraient besoin.

La réponse est :

Option Explicit
Private Sub CommandButton3_Click()
'Bouton aujourd'hui
Dim w As Worksheet
Dim l As Double
Set w = Worksheets("Planning")
On Error Resume Next
l = Application.WorksheetFunction.Match(CDbl(Date), w.Range("F:F"), 0)
On Error GoTo 0
If l = 0 Then
MsgBox "La date d'aujourd'hui n'a pas été trouvée dans le planning"
Exit Sub
End If
w.Activate
w.Cells(l, "F").Activate
Set w = Nothing
End Sub

 

Vote positif 0 Vote négatif