Discussion :

[malabarbe]

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

[fring]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Point 2, exemple pour la colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JackOuYA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[malabarbe]

Bonjour,

Merci a vous deux pour vos explications

Tout tourne super

@ +