Étirer date automatiquement sur cellules vide

[jokerfidelio]

Bonjour a tous.

Mon tableau excel est crée a partir d'une conversion d'un fichier pdf au format excel.
sur ce nouveau tableau la date est noté une seule fois et pas en face des données
Pour faire un tableau de croise dynamique il faut donc que j’étire cette date sur toute les cellules vide et pour chaque date (sur un mois les données peuvent êtres importante)

y a t'il la possibilité que sur chaque cellule vide au dessus de la date noté que la même date puisse ce mettre automatiquement ?

d'avance merci a vous

 

[Jocelyn]

Re : Étirer date automatiquement sur cellules vide

Bonjour le Forum,
Bonjour jokerfidelio,

une solution par formule consiste suivant ton fichier exemple a mettre en F22

=SI(A22<>"";A22;F23)

ensuite on étire la formule vers le haut puis on fait un copier de la plage F2:F22 et collage spécial (valeur) sur la plage A2:A22

il ne reste qu'a supprimer la colonne F c'est plus rapide a faire qu'a écrire

Attention on démarre bien du bas des donnée

Cordialement

 

[jokerfidelio]

Re : Étirer date automatiquement sur cellules vide

Merci pour cette solution
cela marche impeccable.
Mais je recherche quelques chose d'automatique sans manipulation. en VBA est ce posible ?

 

[Jocelyn]

Re : Étirer date automatiquement sur cellules vide

re,

Hum hum oui je pense que c'est largement jouable mais la je passe la main je suis une bille a ce jeu la

il te reste a attendre les VBaïstes

 

[jokerfidelio]

Re : Étirer date automatiquement sur cellules vide

merci dans tous les cas

 

[DoubleZero]

Re : Étirer date automatiquement sur cellules vide

Bonjour à toutes et à tous,

Comme ceci ?

Option Explicit
Sub Dates_renseigner()
    Cells(Rows.Count, "a").End(xlUp).Name = "ici"
    Range("a2:ici").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[+1]C"
    With Columns(1): .Value = .Value: End With
    ActiveWorkbook.Names("ici").Delete
End Sub

Double bise, Jocelyn 😀

A bientôt 🙂

 

[jokerfidelio]

Re : Étirer date automatiquement sur cellules vide

bonjour DoubleZero

comment intégrer ces lignes sur mon fichier y a t il des choses a modifier ?
vba n'est pas mon ami !

Option Explicit
Sub Dates_renseigner()
    Cells(Rows.Count, "a").End(xlUp).Name = "ici"
    Range("a2:ici").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[+1]C"
    With Columns(1): .Value = .Value: End With
    ActiveWorkbook.Names("ici").Delete
End Sub

j'ai modifie "ici" par nom de la feuille mais rien.
et Range("a2:ici") a2 par b car sur exemple c'est la colonne b

cdlt

 

[DoubleZero]

Re : Étirer date automatiquement sur cellules vide

Re-bonjour,

Voir le fichier joint.

A bientôt 🙂

 

[jokerfidelio]

Re : Étirer date automatiquement sur cellules vide

un gros merci genial fonctionne a 100%

 

[Jocelyn]

Re : Étirer date automatiquement sur cellules vide

re,

Et voila je te l'avais bien dis qu'un VBaiste passerait et un plus veinard tu as eut doubleZero

@ 00 bises !!!!!