A
Antoine
Guest
Re-bonjour et re-bon lundi
Je m'échine depuis ce matin sur ces quelque lignes, exel ne me signale pas d'erreur, mais il ne fait pas ce que je veut pour autant. le but est d'aller chercher la valeur d'une cellule ( SalleActive ) et de verifier si la valeur = le nom de tout les bouttons sur la page 1 d'un controle multipages. Si cette condition est vrai, alors le controle en question doit changer de couleur ( et devenir vert ou rouge, au choix )
Public Sub fonction()
Dim MyControl As Control
Dim SalleActive As Range
Dim Couleur As String
For Each MyControl In fbase.MultiPage1.Pages(1).Controls
If SalleActive.value = MyControl.Name Then
'## couleur
Select Case couleur
Case couleur = "vert"
MyControl.BackColor = RGB(0, 255, 0)
Case couleur = "rouge"
MyControl.BackColor = RGB(255, 0, 0)
End Select
End If
Next
End Sub
merci de me débloquer si vous le pouvez !
Antoine
Je m'échine depuis ce matin sur ces quelque lignes, exel ne me signale pas d'erreur, mais il ne fait pas ce que je veut pour autant. le but est d'aller chercher la valeur d'une cellule ( SalleActive ) et de verifier si la valeur = le nom de tout les bouttons sur la page 1 d'un controle multipages. Si cette condition est vrai, alors le controle en question doit changer de couleur ( et devenir vert ou rouge, au choix )
Public Sub fonction()
Dim MyControl As Control
Dim SalleActive As Range
Dim Couleur As String
For Each MyControl In fbase.MultiPage1.Pages(1).Controls
If SalleActive.value = MyControl.Name Then
'## couleur
Select Case couleur
Case couleur = "vert"
MyControl.BackColor = RGB(0, 255, 0)
Case couleur = "rouge"
MyControl.BackColor = RGB(255, 0, 0)
End Select
End If
Next
End Sub
merci de me débloquer si vous le pouvez !
Antoine