Macro conversion de date

Bonjour,

J'ai 2 questions :

1 - Comment par macro, transformer
Samedi 28 juin 2008 en 28/06/2008

2 - Pour supprimer des lignes (ne connaissant pas la longueur de la feuille)
je fais for i = 1 to 500
comment connaitre le nonbre de lignes
pour faire for i = 1 to nb_lignes ?

Merci à vous

Bonjour,

Point 1, en supposant qu'au départ le format de la cellule est "jjjj jj mmm aaaa"

Code:

---

Range("A1").NumberFormat = "dd/mm/yy"

---

Point 2, exemple pour la colonne A

Code:

---

1 2	Dim NbLigne As Integer '(As Long si plus de 35000 lignes) NbLigne = Range("A65535").End(xlUp).Row

---

Précision supplémentaire, pour supprimer des lignes, il faut faire une boucle du bas vers le haut (de la dernière ligne à la première)

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Dim NbLigne As Integer, i As Integer   NbLigne = Range("A65535").End(xlUp).Row   For i = NbLigne To 1 Step -1 If Range("A" & i) = "toto" Then Rows(i).Delete Next End Sub

---

Bonjour,

pour le 1/ ne sachant pas d'ou viens ta chaîne de caractére date je considére qu'elle as toujours ce format. jourSemaine<espace><Date>

on peu utiliser la fonction DateValue, mais celle-ci ne supporte pas le jour de semaine "Samedi", il faut donc le supprimer ce jour de semaine :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub YaDate() Dim Ya As String Dim D As Date Ya = "Samedi 28 juin 2008" ' on enléve le samedi par une recherche du premier espace Ya = Mid(Ya, InStr(1, Ya, " ") + 1) D = DateValue(Ya) 'On peu choisir le format d'affichage grâce à la fonction Format MsgBox Format(D, "dd/mm/yyyy") End Sub

---

ben pour le 2/ je ne comprends pas le lien avec la question 1/ et le titre "Macro de convertion de date" .. donc j'attends les explications.


JacqueS.

Bonjour,

Merci a vous deux pour vos explications

Tout tourne super

@ +