Boucle for qui ne se lance pas
Bonjour,
Un petit blocage basique, je n'aurais jamais pensé bloquer sur ca, mais je ne trouve absolument pas la raison... En effet, dans le code ci-dessous, tous s'effectue bien, sauf la seconde boucle For, qui ne se lance pas. Pourriez vous m'indiquer pourquoi je ne rentre même pas dans cette boucle ? Merci à vous et bonne soirée !
Sub Auto_open()
Dim y As Double
Dim a As Double
y = WorksheetFunction.IsoWeekNum(Date)
For i = 1 To 350 Step 6
If Sheets("Saisi des ratés hebdomadaire").Cells(3, i).Value <> y Then
a = i
For x = 1 To x = 6
Columns(a).EntireColumn.Hidden = True
a = a + 1
Next x
Else
End If
Next i
End Sub
bonjour,
remplace cette instruction
For x = 1 To x = 6par
For x = 1 To 6bonjour,
corriger :
For x = 1 To 6 'au lieu de For x = 1 To x = 6EDIT : On a frisé la collision ! Salut H2SO4
A+
Chercher 1h pour ca qui étais sous mes yeux depuis le début …. Merci beaucoup ! :)