EXCEL-Pb avec format de cellules

Version imprimable

04/02/2007, 13h16
VBBBA

EXCEL-Pb avec format de cellules

bonjour à tous.
Je reviens vers vous car j'ai un petit soucis avec une feuille excel:
J'ai des données sur 5 collones et 300 lignes.La premiere collone étant des dates.Le format des dates est: 06.12.2004 format standard. Je veux les rendre en format date mais quand je fais la manip ca passe pas.
Et une des collones est de la forme 2'904.51 alors que je la veux au format nombre et 2904,51.
J'essaye de faire une macro pour resoudre ce pb mais apres quelques mois d'absence sur vba, j'ai du mal à resoudre ma ptit problematique du dimanche.
Toute aide sera la bien venue. Meri d'avance
04/02/2007, 13h28
VBBBA

je viens de resoudre le pb avec les dates. reste plus que le pb des nombres...:roll:
04/02/2007, 13h30
VBBBA

jai parlé trop vite

:arf:

Pour les nombre, pas de difficulté : Tu sélectionnes ta colonne et tu remplaces ' par rien.
En enregistrant la macro, tu as le code
Pour les dates, explique le contexte : "Macro", pas macro ?
Si macro
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub ChangerFormat() Dim NoLigneDébut, NoCol, Dernièreligne Dim LaPlage As Range NoLigneDébut = 2 NoCol = 1 'Colonne des dates Dernièreligne = Range("A1").SpecialCells(xlCellTypeLastCell).Row Range(Cells(NoLigneDébut, NoCol), Cells(Dernièreligne, NoCol)).Replace _ What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder:=xlByRows Set LaPlage = Range(Cells(NoLigneDébut, NoCol), Cells(Dernièreligne, NoCol)) For Each LaCell In LaPlage LaCell.Value = Format(LaCell.Value, "dd/mm/yyyy") Next End Sub
Comme ça, tu as même le code pour remplacer l'apostrophe par rien ;)
Tu dis
A+

04/02/2007, 14h27
SfJ5Rpw8

Bonjour VBBBBBAA... comment est "remplie" ta feuille excel ..?
04/02/2007, 14h35
VBBBA

Salut bbiiiiiiil.
Ca faisait longtemps....
Ma feuille est remplie normalement: En collones.
chaque donnée est un indice et la premiere collone est les dates à la premiere collone
04/02/2007, 14h38
VBBBA

en plus j'ai des dates au format 2-Feb-04
je veux les rendre au format 02/02/2004. Le formateur classique ne fonctionne pas. En tout cas pas pour toute la collone 8O. Bizarre

Et si tu nous disais tout à la fois ?

Code:

1
2
3
4
5
6
Columns("A:A").Replace What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder:=xlByRows
Columns("A:A").Replace What:="-", Replacement:=" ", LookAt:=xlPart, SearchOrder:=xlByRows
Set LaPlage = Range(Cells(NoLigneDébut, NoCol), Cells(Dernièreligne, NoCol))
For Each LaCell In LaPlage
     LaCell.Value = Format(LaCell.Value, "dd/mm/yyyy")
Next

04/02/2007, 14h41
SfJ5Rpw8

Citation:

Envoyé par bbil

Bonjour VBBBBBAA... comment est "remplie" ta feuille excel ..?

je voulais dire comment sont saisie ces dates ... ? si tu change le format sous excel leurs affichage change ou c'est seulement des chaînes de caractéres ...?
04/02/2007, 14h46
VBBBA

j'ai importé mes données sur differents sites. Le pb c'est que j'ai Plusieurs indices.Et chaque indice est importé sous un format differend.

Mes pb sont:
1)mettre tout au meme format: pour le moment je suis arrivé sauf pour les cellules dates au format 04-Fev-O4. ils ont l'air detre en format texte.

2) aligner les dates une fois mon pb n°1 resolu: mais ça je pense pouvoir le faire sans pb.
04/02/2007, 15h01
ouskel'n'or
Remplace ma dernière boucle par celle-ci après remplacement des séparateurs de date (- . , ; ou ce que tu veux)
Code:

1 2 3 4 Set LaPlage = Range(Cells(NoLigneDébut, NoCol), Cells(Dernièreligne, NoCol)) For Each LaCell In LaPlage LaCell.Value = Format(CDbl(LaCell.Value), "dd/mm/yyyy") Next
CDbl remplace la donnée lue en N° de série que format met dans le format date que tu veux
Tu dis
04/02/2007, 15h09
VBBBA

je vais bidouiller tout ça et voir ce que ca donne.
Merci pour vos aides.

Citation:

Envoyé par VBBB

.... pour le moment je suis arrivé sauf pour les cellules dates au format 04-Fev-O4. ils ont l'air detre en format texte.
...

donc si c'est au format texte .. .il va te falloir "jouer" avec les fonctions de traitements de texte pour résoudre ton probléme... , n'as tu pas un moyen de récupérer ces dates sous un autre format... ?

sinon ... voir fonction Split ... qui va te permetre d'extraire le jour le mois et l'année .. puis date sérial..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 Function ExtDate(st As String) As Date Dim tb() As String Dim i As Integer Dim NomMois NomMois = Array("JAN", "FEV", "MAR", "AVR", "MAI", "JUI", "JUI", "AOU", "SEP", "OCT", "NOV", "DEC") Dim iMois As Integer Dim iAn As Integer tb = Split(st, "-") If UBound(tb) <> 2 Then 'Date incorrecte .. renvoi 0 ... ExtDate = 0 Exit Function End If 'Determine le mois .. For i = 1 To 12 If UCase(tb(1)) = NomMois(i - 1) Then iMois = i Exit For End If Next If iMois = 0 Then 'Mois introuvable ExtDate = 0 Exit Function End If If tb(2) < 50 Then 'Faut traiter le passage en 2000... iAn = tb(2) + 2000 Else iAn = tb(2) + 1900 End If ExtDate = DateSerial(iAn, iMois, tb(0)) End Function
manque plus qu'a boucler sur les cellules concernées et y appliquer la fonction....

Tiens, pour généraliser la procédure sur l'idée de bbil

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Dates_Formater()
Dim LaCell As Range, LaDate, Result, i As Integer, DerLigne As Integer, Plage As Range
Dim LeTableau, Annee, séparateur
Annee = Array("", "JAN", "FEV", "MAR", "AVR", "MAI", "JUN", "JUL", "AOU", "SEP", "OCT", "NOV", "DEC")
DerLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Set Plage = Range(Cells(1, 1), Cells(DerLigne, 1))
    For Each LaCell In Plage
        LaDate = LaCell.Value
        If InStr(LaDate, "-") Then
                séparateur = "-"
            ElseIf InStr(LaDate, ".") Then
                séparateur = "."
            ElseIf InStr(LaDate, "/") Then
                séparateur = "/"
            ElseIf InStr(LaDate, " ") Then
                séparateur = " "
        End If
        For i = 1 To 12
            If LCase(LaCell.Value) Like "*" & séparateur & LCase(Annee(i)) & séparateur & "*" Then
                Result = Left(LaDate, InStr(LaDate, Annee(i)) - 1) & Right("0" & CStr(i), 2) & _
                Right(LaDate, Len(LaDate) - InStr(LaDate, Annee(i) - 1) - Len(LaDate))
                LaDate = Result
                Exit For
            End If
        Next
        Result = ""
        LeTableau = Split(LaDate, séparateur)
        For i = 1 To UBound(LeTableau)
            Result = Result & " " & LeTableau(i)
        Next
        'Juste pour montrer qu'on peut faire n'importe quoi...
        '... et passer d'un format à un autre
        LaCell = Format(Result, "dddd dd mmmm yyyy")
        Debug.Print LaCell.Value
    Next
End Sub

Tu peux en faire une fonction en envoyant le contenu de la date et les N° de ligne et de colonne en paramètres
A+

Attention, c'est JUN pour juin et JUL pour juillet. MAY ou MAI, AUG ou AOU, sont "apparemment" acceptés