adaptation d'une macro

[PHILIP]

Bonjour à tous ,

J'ai une macro qui permet de faire clignoter une cellule si la valeur de la cellule est superieure à 9

Voici le code

Private Sub Workbook_Open()
    'Lance le clignotement  à l'ouverture si la cellule AZ3 supérieure à 9
    If Val(Sheets(1).Range("AZ3").Value) > 9 Then Clign
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Interrompt le clignotement éventuel avant fermeture
    StopClign
End Sub

Ce code j'aimerai l'adapter afin qu'il agisse en testant toute les cellule de la colonne AZ
j'ai donc transformé ce code en

Private Sub Workbook_Open()
Dim i As Long, shut As Worksheet
Set shut = Worksheets("Vordispoliste")
For i = Cells(65000, 28).End(xlUp).Row To 1 Step -1 'boucle de la dernière ligne colonne J à la première
            'If Cells(i, 10) Like "GLS" Then Rows(i).Delete 'supprime la ligne si elle contient "GLS"
         'Next
    'Lance le clignotement  à l'ouverture si la cellule B3 supérieure à 9
    If Val(shut.Range(i, 28).Value) > 333 Then Clign
    Next
    Set shut = Nothing
End Sub

mais il ne marche pas il me dit la methode range fde l'objet worksheet à echoué
pourriez vous m'aider
merci

 

[flyonets44]

Re : adaptation d'une macro

Bonsoir
tu essaies
with shut
.activate
ton code
end with

 

[job75]

Re : adaptation d'une macro

Bonjour,

https://www.excel-downloads.com/threads/selection-de-2-dates.163593/

Il n'y aura probablement pas de réponse

A+