XL 2019 Date

[le___destin]

Je veux créer une colone d'un tableau lorsque je rempli la premiere case emplie automatiquement les autre cellule jusqu'à la date du fin du moi

 

[Victor21]

Habituellement le destin frappe à la porte et dit bonjour, non ?

C'est quoi le fin du toi ?

 

[job75]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Target(1)) Or Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
While Month(Target + 1) = Month(Target)
    Set Target = Target(2)
    Target = Target(0) + 1
    Target.NumberFormat = Target(0).NumberFormat
Wend
Application.EnableEvents = True
End Sub

Salut Patrick

 

[le___destin]

Habituellement le destin frappe à la porte et dit bonjour, non ?

C'est quoi le fin du toi ?

Victor 21 .. bonsoir la fin du mois
01/01/2020
02/01/2020
.
.
.
31/01/2020
Je sens que tu veux m'aider
Alors mercie d'avance dans tout les cas

 

[job75]

Avec une RAZ :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Target(1)) Or Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
While Month(Target + 1) = Month(Target)
    Set Target = Target(2)
    Target = Target(0) + 1
    Target.NumberFormat = Target(0).NumberFormat
Wend
Range(Target(2), Cells(Rows.Count, Target.Column)).ClearContents 'RAZ dessous
Application.EnableEvents = True
End Sub

 

[le___destin]

Avec une RAZ :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Target(1)) Or Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
While Month(Target + 1) = Month(Target)
    Set Target = Target(2)
    Target = Target(0) + 1
    Target.NumberFormat = Target(0).NumberFormat
Wend
Range(Target(2), Cells(Rows.Count, Target.Column)).ClearContents 'RAZ dessous
Application.EnableEvents = True
End Sub

Merci

 

[Victor21]

Bonjour le__destin, Gérard

Par formule, date en A1, formule en A2 à recopier vers le bas :
=SI(A$1+LIGNE()-1<FIN.MOIS(A$1;0);A$1+LIGNE()-1;"")

Mais c'est plus rapide de saisir les deux premières dates, et de tirer l'ensemble vers le bas.

 

[Victor21]

RE,

Ou utiliser les outils intégrés :

1. Tapez un nombre ou une date dans une cellule.
2. Sélectionnez la plage de cellules dans laquelle la série doit être créée.
3. Basculez sur l'onglet Accueil du ruban.
4. Cliquez sur l'icône Remplissage dans le groupe Edition et sélectionnez Série dans le menu.

 

[mdo100]

Bonjour à toutes et tous,

@Victor21,

Est-ce que la formule de serait pas plutôt.

=SI(A$1+LIGNE()-1<FIN.MOIS(A$1;0)+1;A$1+LIGNE()-1;"")

Pour que la fin du "moi"(s) ait son dernier jour.

Cordialement.

 

[job75]

Bonjour le fil, le forum,

En VBA je préfère nettement ceci, sans boucle :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Target(1)) Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
With Target.Resize(DateSerial(Year(Target), Month(Target) + 1, 1) - Target)
    .NumberFormat = Target.NumberFormat
    .DataSeries
    .Offset(.Count).Resize(Rows.Count - .Count - .Row + 1).Delete xlUp 'RAZ dessous
End With
Application.EnableEvents = True
End Sub

Bonne journée.

 

[le___destin]

Bonjour le fil, le forum,

En VBA je préfère nettement ceci, sans boucle :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Target(1)) Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
With Target.Resize(DateSerial(Year(Target), Month(Target) + 1, 1) - Target)
    .NumberFormat = Target.NumberFormat
    .DataSeries
    .Offset(.Count).Resize(Rows.Count - .Count - .Row + 1).Delete xlUp 'RAZ dessous
End With
Application.EnableEvents = True
End Sub

Bonne journée.

bnj
et merci ca marche bien
juste un problème au dessus de la dernier date j'ai des case de calcule alors chaque foi la date change j'ai un problème des dernier ligne
je veux toujours travailler sur même tableau

 

[job75]

D'après ce que je vois sur votre fichier ma macro n'est pas la meilleure solution.

Utilisez des formules pour incrémenter vos dates sur 31 jours et masquez les jours excédentaires 29 et 30 quand c'est nécessaire.

 

[le___destin]

D'après ce que je vois sur votre fichier ma macro n'est pas la meilleure solution.

Utilisez des formules pour incrémenter vos dates sur 31 jours et masquez les jours excédentaires 29 et 30 quand c'est nécessaire.

Ya t il un macro qui masque les ligne alors en metta les valeux de case zero pour que le total reste correcte

 

[job75]

Cherchez sur le forum avec le mot clé calendrier, très nombreux exemples.

 

[danielco]

Bonjour,

Essaie le code de job75 modifié :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Target(1)) Or Target.Count > 1 Then Exit Sub
If Target.Address <> "$K$11" Then Exit Sub
If Day(Target) <> 1 Then Exit Sub
Application.EnableEvents = False
[K12:K41] = ""
Rows("12:41").Hidden = False
With Target.Resize(DateSerial(Year(Target), Month(Target) + 1, 1) - Target)
    .NumberFormat = Target.NumberFormat
    .DataSeries
End With
With Application
  If .CountA([K39:K41]) < 3 Then
    Rows(41).Offset(-2 + .CountA([K39:K41])).Resize(3 - .CountA([K39:K41])).Hidden = True
  End If
End With
Application.EnableEvents = True
End Sub

Dans le classeur joint, j'ai ajouté des mises en forme pour colorer en bleu les samedis et dimanche. Les modifs sont seulement sur la feuille tab. Je peux les reporter sur les autres.

Daniel