Discussion :

[jp222]

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 :

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

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...