Calendrier du 26 au 25

[bikerman]

[Résolu par porcinet82] Calendrier du 26 au 25

bonjour,

je suis nouveau ici et aussi en excel,

voila ce que j'aimerai arriver a faire :

une sorte de calendrier mais du 26 du mois precedent au 25 du mois choisi dans une cellule.

par exemple il faudrai que :

si je tape en A1 : 26/01/2008
excell me fait une recopie incrémenter jusqu'au 25 du mois suivant dans la colone A

pour l'instant j'ai fait cette macro :

    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A31"), Type:=xlFillDefault

Mais ca pose un probleme pour les mois qui se termine en 30 ou 29 comme février car la liste bien évidement continu en affichant les jours 26 et 27 et donc ne se limite pas a 25 comme je le souhaiterais.

merci par avance de m'eclairer

 

[porcinet82]

Re : Calendrier du 26 au 25

Salut,

Tout d'abord, bienvenue sur le forum.
Pour ta question, voici une petite bidouille qui focntionne :

Sub test()
Dim ik%
Range("A1").AutoFill Destination:=Range("A1:A31"), Type:=xlFillDefault
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Day(Cells(i, 1).Value) > 25 Then
        Cells(i, 1).ClearContents
    Else
        Exit Sub
    End If
Next i
End Sub

@+

 

[pierrejean]

Re : Calendrier du 26 au 25

bonjour bikerman
tu peux par exemple completer par

A tester

Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A31"), Type:=xlFillDefault
for n=31 to 29 step-1
  if month(Range("A" & n))<>month(range("A1")) then Range("A" & n)=""
next n

Decidement Romain , tu es le plus rapide !!

Re edit
et en plus toi tu as compris la question
moi je suis mur pour le ZOP

 

[porcinet82]

Re : Calendrier du 26 au 25

re,

Arf PierreJean, une fois n'est pas coutume, ma solution est meilleure que la tienne !!! J'en prend note et je vais meme faire une croix rouge sur mon calendrier !!!!! 😀

@+

 

[bikerman]

Re : Calendrier du 26 au 25

Salut,

Tout d'abord, bienvenue sur le forum.
Pour ta question, voici une petite bidouille qui focntionne :

Sub test()
Dim ik%
Range("A1").AutoFill Destination:=Range("A1:A31"), Type:=xlFillDefault
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Day(Cells(i, 1).Value) > 25 Then
        Cells(i, 1).ClearContents
    Else
        Exit Sub
    End If
Next i
End Sub

@+

Merci de ta réponse si rapide !
alors cela fonctionne bien pour les mois en 31 jours (du 26/01/08 au 25/02/08) mais pas pour les mois comme (du 26/02/08 au 26/03/08)

edit : si ca marche bien en fait !

 

[bikerman]

Re : Calendrier du 26 au 25

bonjour bikerman
tu peux par exemple completer par

A tester

Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A31"), Type:=xlFillDefault
for n=31 to 29 step-1
  if month(Range("A" & n))<>month(range("A1")) then Range("A" & n)=""
next n

Merci de ta réponse, je viens d'essayer mais cela ne fonctionne pas comme je le souhaiterai.

 

[porcinet82]

Re : Calendrier du 26 au 25

re,

Tu veux que la dernière soit toujours une date du genre 25/mm/aaaa non ?
Si c'est le cas, le code fonctionne. Sinon, c'est que j'ai mal compris ta demande...

@+

 

[pierrejean]

Re : Calendrier du 26 au 25

Re

A tester peut-etre

Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A31"), Type:=xlFillDefault
for n=31 to 1 step-1
  if month(Range("A" & n))<>month(range("A1"))  and day(Range("A" & n))> 25 then Range("A" & n)=""
next n

 

[bikerman]

Re : Calendrier du 26 au 25

Merci porcinet82 😀

j'ai rien (enfin pas tout) compris a ce qui est dans le code mais ca marche !

 

[bikerman]

Re : Calendrier du 26 au 25

cela fonctionne dans un nouveau classeur mais pas dans mon fichier

j'ai une erreur d'execution 13
Dans le deboggeur la ligne suivante est en jaune :

If Day(Cells(i, 1).Value) > 25 Then

 

[bikerman]

Re : Calendrier du 26 au 25

voici la macro "transposé" dans mon fichier :

Sub Date_auto()
'

Dim ik%
Range("B7").AutoFill Destination:=Range("B7:B37"), Type:=xlFillDefault
For i = Range("B65536").End(xlUp).Row To 1 Step -1
    If Day(Cells(i, 1).Value) > 25 Then
        Cells(i, 1).ClearContents
    Else
        Exit Sub
    End If
Next i
End Sub

a savoir que les cellules au dessus de B7 sont vides et qu'il y a d'autres cellules contenant divers valeurs apres B42

 

[porcinet82]

Re : Calendrier du 26 au 25

re,

Il faut que tu modifies les lignes suivantes :
For i = Range("B65536").End(xlUp).Row To 1 Step -1
If Day(Cells(i, 1).Value) > 25 Then

par :
For i = Range("B65536").End(xlUp).Row To 7 Step -1
If Day(Cells(i, 2).Value) > 25 Then

@+

 

[bikerman]

Re : Calendrier du 26 au 25

ok ca marche mais j'ai toujours une erreur d'éxécution '13', je pense que cela viens du fait que j'ai également des données de B42 à B78 non?

 

[porcinet82]

Re : Calendrier du 26 au 25

re,

Exactement. Du coup, change For i = Range("B65536").End(xlUp).Row To 7 Step -1 par For i = 38 To 7 Step -1

@+

 

[bikerman]

Re : Calendrier du 26 au 25

ben maintenant c'est parfait, merci romain, je n'y serai pas arriver sans toi ! meme si pas le fait d'avoir bidouiller un max mais je vais reprendre et modifier legerement ta signature :

« REConnaître son ignorance est la meilleure part de la connaissance. »

😉