Discussion :

[zigolink]

Environnement : excel 2013

Bonjour à toutes et tous,
mon problème consiste à traduire des lignes de mise en forme conditionnelle (qui fonctionne tel que désiré), dans une macro.
Je précise que j'ai déja essayé d'enregistrer la macro en créant ces mises en formes sans succès.

Le règles sont les suivantes:

Formule := $B1 = "Enlapsed_Time" Format hh:mm:ss S'applique à :$C$1:$C$1000
Formule := $B1 = "Start_Time" Format hh:mm:ss S'applique à :$C$1:$C$1000
Formule := $B1 = "Stop_Time" Format hh:mm:ss S'applique à :$C$1:$C$1000
Formule := $B1 = "EDate" Format jj/mm/aaaa S'applique à :$C$1:$C$1000

Le but de la macro est d'éclater une ligne d'information en tableau puis d'afficher le bon format en fonction du type de donnée dans la colonne B.
A l'heure actuelle ma macro crée mon tableau correctement il me manque juste l'affichage correcte du type de donnée.

Ci-dessous la macro utilisée (non fonctionnelle à partir de l'instruction FOR):

Code :

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

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
Sub Macro3()
'
' Macro3 Macro
'
 
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=True, OtherChar:= _
        ".", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
        Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
    Range("C:C,E:H").Select
    Range("E1").Activate
    Selection.Delete Shift:=xlToLeft
    Columns("A:A").ColumnWidth = 42
    Columns("B:B").ColumnWidth = 22
    Columns("C:C").Select
    ActiveWindow.Close
 
    For i = 1 To 1000
        If ("$Bi" = "Start_Time") Then
            Range("$Ci").Select
            'Selection.NumberFormat = "h:mm:ss"
        End If
        Next i
End Sub

Je n'utilise pas assez excel pour en connaitre toutes les subtilités donc quel que soient vos propositions, je suis à l'écoute.

D'avance merci pour votre aide !

[parmi]

Code :

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

1
2
3
4
5
6
For i = 1 To 1000
        If ("$Bi" = "Start_Time") Then
            Range("$Ci").Select
            'Selection.NumberFormat = "h:mm:ss"
        End If
        Next i

Bi étant une cellule, il ne faut pas la mettre entre guillemets
Essaie

Code :

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

1
2
3
4
5
    For i = 1 To 1000
        If Range("B" & i) = "Start_Time" Then
            Range("C" & i).NumberFormat = "h:mm:ss"
        End If
    Next i

[zigolink]

Bonjour parmi,

Je viens de faire l'essai et malheureusement ça ne fonctionne pas.

[parmi]

Est-ce que Start_Time est le texte trouvé en B ?
Si c'est le nom d'une variable, enlève les guillemets.

Code :

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

1
2
3
4
5
6
7
8
    For i = 1 To 1000
        Select Case Range("B" & I)
            Case "Enlapsed_Time", "Start_Time", "Stop_Time"
                Range("C" & I).NumberFormat = "h:mm:ss"
            Case "EDate"
                Range("C" & I).NumberFormat = "dd/mm/yyyy"
        End Select
    Next i