Discussion :

[arctica]

Bonjour à tous

je souhaiterai un coup de main car j'aimerai adapter une macro qui teste une cellule et selon le résultat agit, en je teste toutes les cellules d'une colonne et j'agis
Voici le code original:

Code :

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

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

J' ai donc essayé ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
Dim i As Long, shut As Worksheet
Set shut = Worksheets("Vordispoliste")
With shut
For i = Cells(65000, 28).End(xlUp).Row To 1 Step -1                      
        If Val(shut.Range(i, 28).Value) > 333 Then Clign
   End With
    Next
    Set shut = Nothing    
End Sub

Hélas elle ne marche pas m'indiquant qu'il y a end with sans with ou que la methode range a echouée

[Pierre Fauconnier]

Salut.

Tu as imbriqué un bloc With et un bloc For...

Inverse tes lignes 7 et 8.

[Tydher]

Il me semble que tu as inversé deux lignes. De plus, il faut un nom de variable apres le next

Tente avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
Dim i As Long, shut As Worksheet
Set shut = Worksheets("Vordispoliste")
With shut
  For i = Cells(65000, 28).End(xlUp).Row To 1 Step -1                      
        If Val(shut.Range(i, 28).Value) > 333 Then Clign
  Next i
end with
    Set shut = Nothing    
End Sub

[arctica]

Merci pour votre aide

J'ai rectifie le code mais il bute maintenant sur cette partie

Code :

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

If Val(shut.Range(i, 28).Value) > 333

en me signifiant que la methode range de l'objet worksheet a échoué
Est ce qu'il ne faudrait pas inclure une variable lastig pour que la selection s'arrete à la derniere ligne?

[Philippe Tulliez]

Bonjour,

Il me semble que tu as inversé deux lignes. De plus, il faut un nom de variable apres le next

Le nom de la variable après un Next, n'est pas obligatoire.

[Philippe Tulliez]

Bonjour,
Dans ta ligne If Val(shut.Range(i, 28).Value) > 333 Then Clign, il manque l'attribution d'une valeur à Clign et comme le dit justement Kesimon63 c'est cells et pas range

Code :

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

1
2
3
For i = Cells(65000, 28).End(xlUp).Row To 1 Step -1                      
        If Val(shut.Range(i, 28).Value) > 333 Then Clign
  Next i

Rectification : Je suppose que cLign est le nom d'une procédure. Alors évidemment c'est correct

[mercatog]

Je suppose que Clign est une procédure (sans paramètres)

[kesimon63]

Ce n'est pas Range qu'il faut utiliser mais Cells
De plus tu n'a pas de End if

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
Dim i As Long
Dim Shut As Worksheet
 
Set Shut = Worksheets("Vordispoliste")
With Shut
    For i = .Cells(.Rows.Count, 28).End(xlUp).Row To 1 Step -1
        If Val(.Range("AB" & i).Value) > 333 Then Clign
    Next i
End With
Set Shut = Nothing
End Sub

@kesimon63: End If n'est pas nécessaire vu que l'instruction est sur une seule ligne