XL pour MAC Etendre une cellule (date) sur un nombre définit de cellule

Chris401

XLDnaute Accro

• 11 Octobre 2021

• #2

Bonjour et bienvenue

Sous réserves d'avoir compris ta demande :
Pour une date en A6, en A7 la formule :

Code:

=SI(NB.SI($A$6:A6;A6)=69;A6+1;A6)

Formule que tu tires vers le bas

 

Vote positif 0 Vote négatif

A

Analysis

XLDnaute Nouveau

• 11 Octobre 2021

• #3

Chris401 à dit:

Bonjour et bienvenue

Sous réserves d'avoir compris ta demande :
Pour une date en A6, en A7 la formule :

Code:

=SI(NB.SI($A$6:A6;A6)=69;A6+1;A6)

Formule que tu tires vers le bas

Cliquez pour agrandir...

Merci pour votre retour,

Je vous joins mon fichier Excel en photo (celui ci étant trop volumineux) afin d'être plus clair.
Comme vous pouvez le voir sur la feuille date (la première), la cellule A contient la répétition d'une même date sur 69 ligne, je cherche à reproduire cela avec les dates de la colonne B qui elles sont présentes uniquement sur une ligne.
J'espère être plus clair


Le but final étant l'utilisation de cette base de donné sur R studio

Merci beaucoup

 

Pièces jointes

• Capture d’écran 2021-10-11 à 12.23.04.png

  72.6 KB · Affichages: 18

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 11 Octobre 2021

• #4

Ton image n'est pas assez explicative et je ne connais pas R studio.
Prépare un fichier avec juste quelques lignes et inscrit la réponse attendue.

 

Vote positif 0 Vote négatif

A

Analysis

XLDnaute Nouveau

• 11 Octobre 2021

• #5

Mon but et de pouvoir étendre la date dans la colonne B (01/03/2021) sur 69. Comme dans l'exemple de la colonne A ou la date est étalé sur plusieurs lignes. Travaillant sur une time série j'ai une plage de donné de 5 ans donc je me demandais s’il existait une formule me permettant étendre chacune de mes dates sur une plage définit directement.

Je ne sais pas si cela est possible

Merci pour votre temps

cordialement

 

Pièces jointes

• Date time serie (thesis).xlsx

  9 KB · Affichages: 3

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Octobre 2021

• #6

Bonjour,

Vous sélectionnez vos 69 cellules à partir B2, saisissez votre date (B2) et valider par CTRL+ENTREE.
Autre option dont je ne sais pas si elle existe sous Mac
Ou vous saisissez votre date en B2, la tirez sur 68 lignes relachez et quand vous voyez apparaître le bouton d'option d'incrémentation, cliquez le et sélectionnez la première option :


Cordialement

 

Dernière édition: 11 Octobre 2021

Vote positif 0 Vote négatif

A

Analysis

XLDnaute Nouveau

• 11 Octobre 2021

• #7

Bonjour,

Merci pour votre réponse cependant cette méthode ne me permettra pas de gagner du temps travaillant sur une plage de 5 années le nombre de jours est de 1500

Merci pour votre retour
cordialement

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Octobre 2021

• #8

Re,

Pour sélectionner rapidement une plage de cellule :
CTRL+T et dans la fenêtre qui s'ouvre Tapez la référence de la plage : B2:B15001
Validez, c'est fait.
saisissez la date (b2 = cellule active) en validant par CTRL+ENTREE

Eventuellement faites le avec l'enregistreur de macro démarré


cordialement

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 11 Octobre 2021

• #9

@Analysis, peux-tu inscrire, dans une nouvelle feuille, ce que tu attends par rapport à la feuille DATE STP

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Octobre 2021

• #10

Re,

voici une solution par macro dans le fichier joint (cliquer sur le bouton bleu).

VB:

Sub Dater()
    Const NbCells As Integer = 69
    Dim Dates As Variant, dte As Variant
    Dim plgDest As Range
    With ThisWorkbook.Sheets("Date")
        '
        ' tableau en mémoire des dates de la colonne B
        Dates = .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp)).Value
        '
        ' Plage de destination de départ
        Set plgDest = .Range("A2").Resize(NbCells)
    End With
    '
    ' Pour chaque date du tableau des dates
    For Each dte In Dates
        '
        ' Remplir la destination de sa valeur
        plgDest.Value = dte
        '
        ' prochaine destination de la prochaine date : 69 lignes plus bas
        Set plgDest = plgDest.Offset(NbCells)
    Next
End Sub

Cordialement

 

Pièces jointes

• Date time serie (thesis).xlsm

  23.5 KB · Affichages: 1

Vote positif 0 Vote négatif