remplir une cellule si elle est vide

[f69815]

bonsoir, bonsoir amis du forum,

comment peut-on faire pour remplir une colonne avec la date du jour, à condition que la cellule soit vide.

en formule j'ai fait =si(j2='';maintenant(), mais le pb est que c'est dans j2 que je veux la date, et bien sûr la cellule n'est pas vide.

merci

 

[Claudy]

Bonsoir....
1) tu fais 'Alt F11' et tu arrives dans le vba....
2° dans le code de ta feuille tu colles ceci:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = Now
End Sub

3° dans ta cellule vide tu cliques deux fois....
a+
Claudy

 

[f69815]

merci de ta réponse,

cela va bien pour quelques cellules, mais quand tu en as 4000, je pense qu'il faut une boucle

a+

 

[Claudy]

Ok, ...sans boucle et en un click....

Sub celvides()
ActiveSheet.Range('A1:A4000').SpecialCells(xlCellTypeBlanks) = Date
End Sub

 

[f69815]

bonjour,

c'est du tout bon, merci

 

[andré]

Salut,

Autre solution :

Sélectionner la plage
Touche clavier F5 / Cellules / cellules vides / OK
Encoder : MAINTENANT()
Valider par Ctrl+Entrée

Â+