remplir une cellule si elle est vide

f69815 · 17 Novembre 2005

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 · 17 Novembre 2005

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 · 17 Novembre 2005

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 · 17 Novembre 2005

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

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

f69815 · 18 Novembre 2005

bonjour,

c'est du tout bon, merci

andré · 18 Novembre 2005

Salut,

Autre solution :

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

Â+

remplir une cellule si elle est vide

f69815

XLDnaute Occasionnel

Claudy

XLDnaute Accro

f69815

XLDnaute Occasionnel

Claudy

XLDnaute Accro

f69815

XLDnaute Occasionnel

andré

XLDnaute Barbatruc

Discussions similaires