Ligne numéro de semaine

Le
syleg35
Bonjour à tous " & Bonne année "

J'ai une macro pour aller dans ma feuille à la date aujourd'hui à
l'ouverture de mon fichier, voir ci-dessous.
pourrait on me donner la version pour aller au numéro de semaine ou
pour aller à la journée la plus proche d'aujourd'hui.

Merci à vous.
****************************************************************
Sub LigneDate()
Dim No_Ligne As Variant
With Worksheets("CA-Jour") 'nom feuille à adapter
.Activate
No_Ligne = Application.Match(CLng(Date), .Range("A3:A80"), 0)
If Not IsError(No_Ligne) Then
.Range("C" & No_Ligne).Select
Else
Err.Clear
' Icône : Sans icône, bouton(s) : OK, bouton par défaut : 1er
Reponse = MsgBox("Date pas trouvé ! ! !" & Chr$(10) & "" & Chr$(10) &
" Vérifier que la feuille soit bien renseigné dans le
( ThisWorkbook )" & Chr$(10) & "" & Chr$(10) & " Merci. . .", 0,
"Syleg35")
End If
End With
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #18292671
Bonjour, bonne année à toi également.
Pour la journée la plus proche, essaie :

Sub LigneDate()
Dim No_Ligne As Variant
With Worksheets("CA-Jour") 'nom feuille à adapter
.Activate
No_Ligne = Application.Match(CLng(Date), .Range("A3:A80"), 0)
If Not IsError(No_Ligne) Then
.Range("C" & No_Ligne).Select
Else
No_Ligne = Application.Match(CLng(Date), .Range("A3:A80"), 1)
If Date - Application.Index([A3:A80], No_Ligne) < _
Application.Index([A3:A80], No_Ligne + 1) - Date Then
Cells(No_Ligne, 3).Select
Else
Cells(No_Ligne + 1, 3).Select
End If
End If
End With
End Sub

Cordialement.
Daniel

Bonjour à tous " & Bonne année "

J'ai une macro pour aller dans ma feuille à la date aujourd'hui à
l'ouverture de mon fichier, voir ci-dessous.
pourrait on me donner la version pour aller au numéro de semaine ou
pour aller à la journée la plus proche d'aujourd'hui.

Merci à vous.
****************************************************************
Sub LigneDate()
Dim No_Ligne As Variant
With Worksheets("CA-Jour") 'nom feuille à adapter
.Activate
No_Ligne = Application.Match(CLng(Date), .Range("A3:A80"), 0)
If Not IsError(No_Ligne) Then
.Range("C" & No_Ligne).Select
Else
Err.Clear
' Icône : Sans icône, bouton(s) : OK, bouton par défaut : 1er
Reponse = MsgBox("Date pas trouvé ! ! !" & Chr$(10) & "" & Chr$(10) &
" Vérifier que la feuille soit bien renseigné dans le
( ThisWorkbook )" & Chr$(10) & "" & Chr$(10) & " Merci. . .", 0,
"Syleg35")
End If
End With
End Sub


Youky \(BJ\)
Le #18292831
With Worksheets("CA-Jour") 'nom feuille à adapter
.Activate
For k = .[A1000].End(3).Row To 3 Step -1
If .Cells(k, 1) <= CLng(Date) Then
.Cells(k, 3).Select: Exit Sub
End If
Next

Bonjour et Bonne année aussi.......
Si le jour n'existe pas je prends la plus proche avant quelque soit l'écart.
Youky (BJ)

Bonjour à tous " & Bonne année "

J'ai une macro pour aller dans ma feuille à la date aujourd'hui à
l'ouverture de mon fichier, voir ci-dessous.
pourrait on me donner la version pour aller au numéro de semaine ou
pour aller à la journée la plus proche d'aujourd'hui.

Merci à vous.
****************************************************************
Sub LigneDate()
Dim No_Ligne As Variant
With Worksheets("CA-Jour") 'nom feuille à adapter
.Activate
No_Ligne = Application.Match(CLng(Date), .Range("A3:A80"), 0)
If Not IsError(No_Ligne) Then
.Range("C" & No_Ligne).Select
Else
Err.Clear
' Icône : Sans icône, bouton(s) : OK, bouton par défaut : 1er
Reponse = MsgBox("Date pas trouvé ! ! !" & Chr$(10) & "" & Chr$(10) &
" Vérifier que la feuille soit bien renseigné dans le
( ThisWorkbook )" & Chr$(10) & "" & Chr$(10) & " Merci. . .", 0,
"Syleg35")
End If
End With
End Sub
syleg35
Le #18293631
Bonjour " Daniel.C" & "Youky
Merci à vous j'ai trouvé mon bonheur dans vos réponse !
Bonne journée
@+


On 4 jan, 10:42, Daniel.C
Bonjour, bonne année à toi également.
Pour la journée la plus proche, essaie :

Sub LigneDate()
Dim No_Ligne As Variant
With Worksheets("CA-Jour") 'nom feuille à adapter
    .Activate
    No_Ligne = Application.Match(CLng(Date), .Range("A3:A80"), 0)
    If Not IsError(No_Ligne) Then
        .Range("C" & No_Ligne).Select
    Else
        No_Ligne = Application.Match(CLng(Date), .Range("A3:A80 "), 1)
        If Date - Application.Index([A3:A80], No_Ligne) < _
            Application.Index([A3:A80], No_Ligne + 1) - Date Then
            Cells(No_Ligne, 3).Select
        Else
            Cells(No_Ligne + 1, 3).Select
        End If
    End If
End With
End Sub

Cordialement.
Daniel



> Bonjour à tous " & Bonne année "

> J'ai une macro pour aller dans ma feuille à la date aujourd'hui à
> l'ouverture de mon fichier, voir ci-dessous.
> pourrait on me donner la version pour aller au numéro de semaine ou
> pour aller à la journée la plus proche d'aujourd'hui.

> Merci à vous.
> ****************************************************************
> Sub LigneDate()
> Dim No_Ligne As Variant
> With Worksheets("CA-Jour") 'nom feuille à adapter
>     .Activate
>     No_Ligne = Application.Match(CLng(Date), .Range("A3:A80"), 0)
>     If Not IsError(No_Ligne) Then
>         .Range("C" & No_Ligne).Select
>     Else
>         Err.Clear
> ' Icône : Sans icône, bouton(s) : OK, bouton par défaut : 1er
> Reponse = MsgBox("Date pas trouvé ! ! !" & Chr$(10) & "" & Chr$(10) &
> " Vérifier que la feuille soit bien renseigné dans le
> ( ThisWorkbook )" & Chr$(10) & "" & Chr$(10) & " Merci. . .", 0,
> "Syleg35")
>     End If
> End With
> End Sub- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Publicité
Poster une réponse
Anonyme