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
| Sub Translate_AS_to_VBA_V2()
Dim AScpt$, VA, V, L&, DL_AS$
AScpt = Cells(Rows.Count, 1).End(xlUp): VA = Split(AScpt, vbCr): DL_AS = "" ' OU => " & Chr(13) & _" <= POUR METTRE UN RETOUR LIGNE A LA FIN DU CODE AS POUR VBA
Application.ScreenUpdating = False
Sepa_AS_VBA "APPLESCRIPT", "TO VBA", 70, "-"
For Each V In VA
L = Cells(Rows.Count, 1).End(xlUp)(2).Row
If Len(Trim(V)) > 0 Then
If V <> VA(UBound(VA)) Then
Cells(L, 1) = V
V = Chr(34) & Replace(Trim(V), Chr(34), Chr(34) & Chr(34)) & Chr(34) & " & Chr(13) & _": Cells(L, 2) = V
Else
Cells(L, 1) = V
V = Chr(34) & Replace(Trim(V), Chr(34), Chr(34) & Chr(34)) & Chr(34) & DL_AS: Cells(L, 2) = V
End If
End If
Next
Sepa_AS_VBA "APPLESCRIPT (FIN)", "TO VBA (FIN)", 70, "-"
Application.ScreenUpdating = True
End Sub
Function Sepa_AS_VBA(Deb$, Fin$, Cpt As Byte, Sep$)
With Cells(Rows.Count, 1).End(xlUp)(2)
.Value = String(Cpt, Sep) & " " & Deb & " " & String(Cpt, Sep)
.Interior.Color = 14277081: .Font.Bold = True
.HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter
With .Offset(, 1)
.Value = String(Cpt, Sep) & " " & Fin & " " & String(Cpt, Sep)
.Interior.Color = 14277081: .Font.Bold = True
.HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter
End With
End With
End Function |
Partager