[R] Traduction code vba dans autoit

[zoca]

Bonjour,
Debutant sur autoit je cherche a créer l'équivalent des 2 codes Vba ci-dessous sur autoit qui me permettent de
modifier un fichier excel.

la première macro pour supprimer les colonnes vide a partir de la ligne 2

Code : Tout sélectionner

Sub macro1()
Dim c
For c = 256 To 1 Step -1
If Cells(65536, c).End(xlUp).Row = 1 Then Cells(1, c).EntireColumn.Delete
Next c
End Sub
 

la seconde macro pour colorer les cellules vides

Code : Tout sélectionner

Sub macro2()
ActiveSheet.UsedRange.Select
Dim Cel As Range
    For Each Cel In Selection
        If IsEmpty(Cel) Then
            Cel.Interior.ColorIndex = 34
        Else
            Cel.Interior.ColorIndex = xlNone
        End If
    Next Cel
End Sub
 

Merci d’avance pour votre aide.

[walkson]

Bonjour,

► Afficher le texte

Code : Tout sélectionner

#include <Excel.au3>
Local $oAppl = _Excel_Open()
Local $sWorkbook = @ScriptDir & "\Classeur1.xlsm";le script à coté du classeur
Local $oWorkbook = _Excel_BookOpen($oAppl, $sWorkbook, Default, Default, True)
Global Const $xlUp = -4162
Global Const $xlNone = -4142
macro1()
macro2()

    Func macro1()

    For $c = 256 To 1 Step -1
    If $oAppl.Cells(65536, $c).End($xlUp).Row = 1 Then $oAppl.Cells(1, $c).EntireColumn.Delete
    Next
    EndFunc

    Func macro2()

        For $Cell In $oAppl.ActiveSheet.UsedRange
            If $Cell.value = "" Then
                $Cell.Interior.ColorIndex = 27
            Else
                $Cell.Interior.ColorIndex = $xlNone
            EndIf
        Next
    EndFunc
 

[zoca]

Bonsoir,
Merci beaucoup cela fonctionne parfaitement.
Amicalement