Include array reference into loop

Hi !

I'm kind of new into programming and I would need your help on this one... I have lot of buttons and they are all named by the same prefix "BtnRAP1P_" and a number instead of the underscore. If the value in the range ("L" & ___ ) (the underscore is the row value indicated by the position of the button) is "FAUX" then the button is not visible. I would like to introduce an Array to set the number to loop... and with what I have it crashes...

Sub RAPPORT1()
Dim WS As Worksheet
Dim Para As Variant
Dim i as Integer
Dim a as Integer

Set WS = ActiveSheet

Para = Array(2,3,4,5,6,11,12)

For i = LBound(Para) To UBound(Para)
a = WS.Shapes("BtnRAP1P" & i).Visible = IIF(WS.Range("L" & a).Value = FAUX, True, False)
Next i

End sub

Thanks a lot !

For i = LBound(Para) To UBound(Para)
a = WS.Shapes("BtnRAP1P" & i).Visible = IIF(WS.Range("L" & a).Value = FAUX, True, False)
Next i

it should read IF

It sets me a red line when i remove the first I of IIF... but when I click debug, I see theat the value of i = 0 when it should be equal the array in my list...

Sub RAPPORT1()
Dim WS As Worksheet
Dim Para As Variant
Dim i As Integer
Dim a As Integer

Set WS = ActiveSheet

Para = Array(2, 3, 4, 5, 6, 11, 12)

For i = LBound(Para) To UBound(Para)
    a = WS.Shapes("BtnRAP1P" & i).TopLeftCell.Row    
WS.Shapes("BtnRAP1P" & i).Visible = IIf(WS.Range("L" & a).Value = FAUX, True, False)
    Next i

End Sub

Is it possible that the info doesn't communicate from the array to the shape TopLeftCell.Row request ?

FAUX means "false" in french...

do you mean "refer to Para(i)" like this ?

Sub RAPPORT1()

Dim WS As Worksheet
Dim Para As Variant
Dim i As Integer
Dim a As Integer

Set WS = ActiveSheet

Para = Array(2, 3, 4, 5, 6, 11, 12)

For i = LBound(Para) To UBound(Para)
    a = WS.Shapes("BtnRAP1P" & Para(i)).TopLeftCell.Row
WS.Shapes("BtnRAP1P" & Para(i)).Visible = IIf(WS.Range("L" & a).Value = "FAUX", True, False)
    Next i

End Sub

In this way, it doesn't work actually...

I should have specified... sorry about that...

I tried to remove the IIF as you said and replacing it by a classic IF ELSE statement. It started to work like a charm !

Sub RAPPORT1()

Dim WS As Worksheet
Dim Para As Variant
Dim i As Integer
Dim a As Integer

Set WS = ActiveSheet

Para = Array(2, 3, 4, 5, 6, 11, 12)

For i = LBound(Para) To UBound(Para)
    a = WS.Shapes("BtnRAP1P" & Para(i)).TopLeftCell.Row
    If Range("L" & a).Value = FAUX Then
    WS.Shapes("BtnRAP1P" & Para(i)).Visible = True
    Else
    WS.Shapes("BtnRAP1P" & Para(i)).Visible = False
    End If
    Next i

End Sub

I tried to put the FAUX between "" and my buttons stopped appering and desapearing as i wanted... weird a bit... but my excel is in french ant all the coding ids done in english so maybe this is why it accepts the FAUX as is...

Anyway, thank for your help !