Parcourir une colonne et mettre la date

[sonskriverez]

Bonjour le forum,


J'ai dans la colonne B des dates et je voudrais pouvoir indiquer la date du jour dans les cellules vides.

En VBA svp

Merci de votre aide

 

[Oranger]

Re : Parcourir une colonne et mettre la date

Voilà un exemple:

Sub macro()
For i = 1 To 100
If Feuil1.Cells(i, 2) = "" Then
Feuil1.Cells(i, 2) = Date
Feuil1.Cells(i, 2).NumberFormat = "m/d/yyyy"
End If
Next i
End Sub

Cdlt,

 

[david84]

Re : Parcourir une colonne et mettre la date

Bonjour,
une possibilité :

Sub test()
Dim cellule As Range
For Each cellule In Range("B1", Range("B" & Rows.Count).End(xlUp))
    If IsEmpty(cellule) Then cellule.Value = Date
Next cellule
End Sub

A+

 

[sonskriverez]

Re : Parcourir une colonne et mettre la date

Bjr a vous deux,

Oups, j'ai oublié de préciser la feuille est filtrée !!!

 

[david84]

Re : Parcourir une colonne et mettre la date

Re
je pense qu'un fichier exemple avec quelques données anonymisées nous aiderait à t'aider.
A+

 

[sonskriverez]

Re : Parcourir une colonne et mettre la date

Pas la peine cela fonctionne parfaitement, merci a vous 2 et bonnes fêtes

 

[DoubleZero]

Re : Parcourir une colonne et mettre la date

Bonjour, sonskriverez, Oranger, david84 🙂, le Forum,

Une autre suggestion :

Sub Date_en_B()
    Columns("B:B").SpecialCells(xlCellTypeBlanks) = Date
End Sub

A bientôt 🙂

 

[Staple1600]

Re : Parcourir une colonne et mettre la date

Bonjour à tous


00
Tu est trop généreuse 😉
Toutes les cellules vides de la colonne B, ça peut faire bonbon parfois

Tu me permets cette petite sécurité sur ton code 😉

Sub Date_en_B_Vides_MaispasTrop()
Range([B1], [B65536].End(xlUp)).SpecialCells(4) = Date
End Sub

 

[DoubleZero]

Re : Parcourir une colonne et mettre la date

Re-bonjour,

... Tu me permets cette petite sécurité sur ton code 😉

Sub Date_en_B_Vides_MaispasTrop()
Range([B1], [B65536].End(xlUp)).SpecialCells(4) = Date
End Sub

Bonjour et merci, Staple1600 😀, de veiller sur la sécurité.

A bientôt 🙂🙂