Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Cherche jour

Cherche jour

9 réponses
Avatar
oliver
Bonjour,
après la création d'un calendrier annuel sur une colonne (du 1er janvier au
31 décembre) en fonction de l"année saisie dans une cellule quelconque, je
souhaiterais par exemple trouver tous les lundi.
merci pour votre aide
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Un filtre élaboré où tu définis ta zone de critère
comme étant : G1:G2

En G1: tu laisses la cellule totalement vide
En G2, tu écris la formule suivante : =JOURSEM(A2;2)=1
dans la formule, le 2 -> si tu es Européen, sinon, tu utilises 1
Et si tu désires retenir seulement les lundi pour une année quelconque,
la formule en G2 est :
=ET(JOURSEM(A2;2)=1;ANNEE(A2) 08)

A2 représente la première cellule du champ sur lequel le filtre est appliqué
supposant qu'en A1, il y a l'étiquette de colonne.

Tu vas obtenir une liste ne contenant que les lundi



"oliver" a écrit dans le message de news:
45db5819$0$13514$
Bonjour,
après la création d'un calendrier annuel sur une colonne (du 1er janvier au
31 décembre) en fonction de l"année saisie dans une cellule quelconque, je
souhaiterais par exemple trouver tous les lundi.
merci pour votre aide
Avatar
Chewi
Salut,

Tu peux copier ta colonne.
Dans ta colonne copiée, tu utilise un format personnalisé du type: jjjj
(4j).
Tu te retrouve alors avec tout les jours de semaine (lundi, mardi,
mercredi... lundi,...)
Tu utilise ensuite un tri en sélectionnant tes 2 colonnes.
et tu trie alors suivant la valeur "lundi" dans ta 1ère colonne tu retrouve
toutes les dates correspondant à un lundi.

B à T,

Chewi

"oliver" wrote in message
news:45db5819$0$13514$
Bonjour,
après la création d'un calendrier annuel sur une colonne (du 1er janvier
au 31 décembre) en fonction de l"année saisie dans une cellule quelconque,
je souhaiterais par exemple trouver tous les lundi.
merci pour votre aide




Avatar
LSteph
Bonsoir,

Mets ta colonne au format personnalisé
"jjj-jj-mmm-aaaa"

Cordialement.

lSteph

Bonjour,
après la création d'un calendrier annuel sur une colonne (du 1er janvier au
31 décembre) en fonction de l"année saisie dans une cellule quelconque, je
souhaiterais par exemple trouver tous les lundi.
merci pour votre aide




Avatar
JB
Bonsoir

En A1: 1/1/2008
En B1: ¡+MOD(2-JOURSEM(A1);7)
En B2: ±+7

JB

On 20 fév, 21:11, "oliver" wrote:
Bonjour,
après la création d'un calendrier annuel sur une colonne (du 1er janv ier au
31 décembre) en fonction de l"année saisie dans une cellule quelconqu e, je
souhaiterais par exemple trouver tous les lundi.
merci pour votre aide


Avatar
LSteph
..sinon si tu préfètres les faire ressortir
sélectionne la colonne où tu as mis toutes tes dates du 01/01 au 31/12
et applique (menu Format) la mise en forme conditionnelle suivante
(supposons que le 1er janvier soit en a2:
=JOURSEM(A2)=2

puis danns la même boite de dialogue clique sur format onglet motif et
choisis une couleur ...Ok.

Cordialement.

lSteph


Bonjour,
après la création d'un calendrier annuel sur une colonne (du 1er janvier au
31 décembre) en fonction de l"année saisie dans une cellule quelconque, je
souhaiterais par exemple trouver tous les lundi.
merci pour votre aide




Avatar
oliver
J'ai essayé avec cette macro mais ça ne fonctionne pas!
Sub Macro2()
' Standards du lundi
With Range("a10:a300")
'Critère de recherche
Set c = .Find(vbSunday, LookIn:=xlValues)
'Si différent du critère, aucun évènement
If Not c Is Nothing Then
firstAddress = c.Address
Do

c.Offset(0, 2).Value = "CEM01"
c.Offset(0, 5).Value = "OSM01"
c.Offset(0, 10).Value = "AEM01"
c.Offset(0, 13).Value = "ASM01"

Range(ActiveCell, ActiveCell(0, 2)).Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
"LSteph" a écrit dans le message de news:

..sinon si tu préfètres les faire ressortir
sélectionne la colonne où tu as mis toutes tes dates du 01/01 au 31/12
et applique (menu Format) la mise en forme conditionnelle suivante
(supposons que le 1er janvier soit en a2:
=JOURSEM(A2)=2

puis danns la même boite de dialogue clique sur format onglet motif et
choisis une couleur ...Ok.

Cordialement.

lSteph


Bonjour,
après la création d'un calendrier annuel sur une colonne (du 1er janvier
au 31 décembre) en fonction de l"année saisie dans une cellule
quelconque, je souhaiterais par exemple trouver tous les lundi.
merci pour votre aide





Avatar
LSteph
...

Sub acelundi()
Dim c As Range
For Each c In [a10:a300]
If Weekday(c) = 2 Then
c.Offset(0, 2) = "tagadapouetpouet"
'...
End If
Next
End Sub

'Cdlt

'lSteph

J'ai essayé avec cette macro mais ça ne fonctionne pas!
Sub Macro2()
' Standards du lundi
With Range("a10:a300")
'Critère de recherche
Set c = .Find(vbSunday, LookIn:=xlValues)
'Si différent du critère, aucun évènement
If Not c Is Nothing Then
firstAddress = c.Address
Do

c.Offset(0, 2).Value = "CEM01"
c.Offset(0, 5).Value = "OSM01"
c.Offset(0, 10).Value = "AEM01"
c.Offset(0, 13).Value = "ASM01"

Range(ActiveCell, ActiveCell(0, 2)).Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
"LSteph" a écrit dans le message de news:

..sinon si tu préfètres les faire ressortir
sélectionne la colonne où tu as mis toutes tes dates du 01/01 au 31/12
et applique (menu Format) la mise en forme conditionnelle suivante
(supposons que le 1er janvier soit en a2:
=JOURSEM(A2)=2

puis danns la même boite de dialogue clique sur format onglet motif et
choisis une couleur ...Ok.

Cordialement.

lSteph


Bonjour,
après la création d'un calendrier annuel sur une colonne (du 1er janvier
au 31 décembre) en fonction de l"année saisie dans une cellule
quelconque, je souhaiterais par exemple trouver tous les lundi.
merci pour votre aide








Avatar
oliver
OK merci
mais en compliquant si je souhaites le premier lundi!
"LSteph" a écrit dans le message de news:

...

Sub acelundi()
Dim c As Range
For Each c In [a10:a300]
If Weekday(c) = 2 Then
c.Offset(0, 2) = "tagadapouetpouet"
'...
End If
Next
End Sub

'Cdlt

'lSteph

J'ai essayé avec cette macro mais ça ne fonctionne pas!
Sub Macro2()
' Standards du lundi
With Range("a10:a300")
'Critère de recherche
Set c = .Find(vbSunday, LookIn:=xlValues)
'Si différent du critère, aucun évènement
If Not c Is Nothing Then
firstAddress = c.Address
Do

c.Offset(0, 2).Value = "CEM01"
c.Offset(0, 5).Value = "OSM01"
c.Offset(0, 10).Value = "AEM01"
c.Offset(0, 13).Value = "ASM01"

Range(ActiveCell, ActiveCell(0, 2)).Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
"LSteph" a écrit dans le message de news:

..sinon si tu préfètres les faire ressortir
sélectionne la colonne où tu as mis toutes tes dates du 01/01 au 31/12
et applique (menu Format) la mise en forme conditionnelle suivante
(supposons que le 1er janvier soit en a2:
=JOURSEM(A2)=2

puis danns la même boite de dialogue clique sur format onglet motif et
choisis une couleur ...Ok.

Cordialement.

lSteph


Bonjour,
après la création d'un calendrier annuel sur une colonne (du 1er
janvier au 31 décembre) en fonction de l"année saisie dans une cellule
quelconque, je souhaiterais par exemple trouver tous les lundi.
merci pour votre aide










Avatar
LSteph
Sub acepremierlundidumois()
Dim c As Range
For Each c In [a10:a300]
If Weekday(c) = 2 And _
Month(c) <> Month(c - 7) Then
c.Offset(0, 2) = "tagadapouetpouet"
'...
End If
Next
End Sub

'lSteph

OK merci
mais en compliquant si je souhaites le premier lundi!
"LSteph" a écrit dans le message de news:

...

Sub acelundi()
Dim c As Range
For Each c In [a10:a300]
If Weekday(c) = 2 Then
c.Offset(0, 2) = "tagadapouetpouet"
'...
End If
Next
End Sub

'Cdlt

'lSteph

J'ai essayé avec cette macro mais ça ne fonctionne pas!
Sub Macro2()
' Standards du lundi
With Range("a10:a300")
'Critère de recherche
Set c = .Find(vbSunday, LookIn:=xlValues)
'Si différent du critère, aucun évènement
If Not c Is Nothing Then
firstAddress = c.Address
Do

c.Offset(0, 2).Value = "CEM01"
c.Offset(0, 5).Value = "OSM01"
c.Offset(0, 10).Value = "AEM01"
c.Offset(0, 13).Value = "ASM01"

Range(ActiveCell, ActiveCell(0, 2)).Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
"LSteph" a écrit dans le message de news:

..sinon si tu préfètres les faire ressortir
sélectionne la colonne où tu as mis toutes tes dates du 01/01 au 31/12
et applique (menu Format) la mise en forme conditionnelle suivante
(supposons que le 1er janvier soit en a2:
=JOURSEM(A2)=2

puis danns la même boite de dialogue clique sur format onglet motif et
choisis une couleur ...Ok.

Cordialement.

lSteph


Bonjour,
après la création d'un calendrier annuel sur une colonne (du 1er
janvier au 31 décembre) en fonction de l"année saisie dans une cellule
quelconque, je souhaiterais par exemple trouver tous les lundi.
merci pour votre aide