Étirer date automatiquement sur cellules vide

Jocelyn

XLDnaute Barbatruc

• 6 Avril 2016

• #2

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

Code:

=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

 

Vote positif 0 Vote négatif

J

jokerfidelio

XLDnaute Occasionnel

• 6 Avril 2016

• #3

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 ?

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 6 Avril 2016

• #4

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

 

Vote positif 0 Vote négatif

J

jokerfidelio

XLDnaute Occasionnel

• 6 Avril 2016

• #5

Re : Étirer date automatiquement sur cellules vide

merci dans tous les cas

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 6 Avril 2016

• #6

Re : Étirer date automatiquement sur cellules vide

Bonjour à toutes et à tous,

Comme ceci ?

Code:

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 🙂

 

Vote positif 0 Vote négatif

J

jokerfidelio

XLDnaute Occasionnel

• 6 Avril 2016

• #7

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 !

Code:

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

 

Pièces jointes

• Classeur3.xlsm

  36.5 KB · Affichages: 28
• Classeur3.xlsm

  36.5 KB · Affichages: 31

Dernière édition: 6 Avril 2016

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 6 Avril 2016

• #8

Re : Étirer date automatiquement sur cellules vide

Re-bonjour,

Voir le fichier joint.

A bientôt 🙂

 

Pièces jointes

• 00 - jokerfidelio - Dates renseigner.xlsm

  61.9 KB · Affichages: 42

Vote positif 0 Vote négatif

J

jokerfidelio

XLDnaute Occasionnel

• 6 Avril 2016

• #9

Re : Étirer date automatiquement sur cellules vide

un gros merci genial fonctionne a 100%

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 7 Avril 2016

• #10

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 !!!!!

 

Vote positif 0 Vote négatif