1 pièce(s) jointe(s)
VBA: Cocher automatiquement checkbox en fonction de chiffre
Bonjour, bonsoir,
J'aimerais savoir si c'est possible, selon le numéro de la colonne (décidé par l'utilisateur), cocher ou décocher (automatiquement) les checkbox en fonction des numéros (de 1 à 4) dans la colonne selon la légende dans le document.
Pour activer les checkbox manuellement avec ce code ça va :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
'Dim o As Integer
'For o = 1 To 10
If Target.Value = 1 Then
Sheets("Feuil2").OLEObjects("CheckBox" & o).Enabled = True
Sheets("Feuil2").OLEObjects("CheckBox" & o).Object.Value = False
ElseIf Target.Value = 2 Then
Sheets("Feuil2").OLEObjects("CheckBox" & o).Enabled = True
Sheets("Feuil2").OLEObjects("CheckBox" & o).Object.Value = True
ElseIf Target.Value = 3 Then
Sheets("Feuil2").OLEObjects("CheckBox" & o).Enabled = False
Sheets("Feuil2").OLEObjects("CheckBox" & o).Object.Value = False
ElseIf Target.Value = 4 Then
Sheets("Feuil2").OLEObjects("CheckBox" & o).Enabled = False
Sheets("Feuil2").OLEObjects("CheckBox" & o).Object.Value = True
End If |
Mais c'est pour faire en sorte de qu'ils s'activent/désactivent automatiquement dans une sorte de boucle.
En d'autre mots, est-il possible de faire coché/décoché des checkbox automatiquement en fonction de chiffre?
dsl si je ne suis pas très clair, mais j'ai mis un exemple dans ce fichier...
Merci...