[XL-2007] probleme de boucle [Résolu]

[chris09300]

Bonjour
je travaille sur excel 2007.
J'ai un tableau sur 3 colonnes et x lignes variables,
dans la colonne B j'ai des dates, et je souhaiterais dans la colonne E recuperer cette date, que je formate en MMMM.
merci de vos infos
cris

[Daniel.C]

Oups, en colonne E, ce sera :

Code :

1
2
3
4
5
6
7
Sub test1()
    Dim c As Range
    For Each c In Range([B2], Cells(Rows.Count, 2).End(xlUp))
        c.Offset(, 3).Value = c.Value
        c.Offset(, 3).NumberFormat = "MMM"
    Next c
End Sub

[lenovo49]

Bonjour,

Voici une premiere réponse:

Sub boucle()

Code :

1
2
3
4
5
6
7
8
9
10
Range("B2").Select 'Si il y a une ligne titre
 
For a = 1 To 50 'A adapter avec le nombre de ligne
If ActiveCell.Offset(0, 0) <> "" Then
ActiveCell.Offset(0, 3) = Format((ActiveCell.Offset(0, 0).Value), "mmmm")
ActiveCell.Offset(1, 0).Select
End If
Next a
 
End Sub

Cordialement

[chris09300]

merci beaucoup, cela fonctionne tres bien.
cris