Parcourir une colonne et mettre la date

Oranger

XLDnaute Occasionnel

• 28 Décembre 2011

• #2

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,

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 28 Décembre 2011

• #3

Re : Parcourir une colonne et mettre la date

Bonjour,
une possibilité :

Code:

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+

 

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 28 Décembre 2011

• #4

Re : Parcourir une colonne et mettre la date

Bjr a vous deux,

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

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 28 Décembre 2011

• #5

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+

 

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 28 Décembre 2011

• #6

Re : Parcourir une colonne et mettre la date

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 28 Décembre 2011

• #7

Re : Parcourir une colonne et mettre la date

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

Une autre suggestion :

Code:

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

A bientôt 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Décembre 2011

• #8

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 😉

Code:

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

 

Dernière édition: 28 Décembre 2011

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 28 Décembre 2011

• #9

Re : Parcourir une colonne et mettre la date

Re-bonjour,

Staple1600 à dit:

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

Code:

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

Cliquez pour agrandir...

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

A bientôt 🙂🙂

 

Vote positif 0 Vote négatif