Contrôle de ComboBox non vides [Résolu]

Signaler
Messages postés
1476
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
4 juin 2021
-
Messages postés
1476
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
4 juin 2021
-
Bonjour le forum,

Nouveau problème que je n'arrive pas à résoudre !

J'ai ce code :

'Si ICP retenue et points renseignés, fiche et onglet colorés en vert :
If CheckBox_OUI = True And _
ComboBox_C1 <> "" And _
checkbox_C2 <> "" And _
checkbox_C3 <> "" Then
With ActiveSheet
Range("A1:AA35").Interior.Color = RGB(164, 215, 107)
End With
With ActiveSheet.Tab
.Color = 5287936
.TintAndShade
End With
End If


lié à cette partie de mon UsF :



Pour résumer : si OUI est coché et qu'il y a une valeur dans chacune des ComboBox entourées de rouge, une plage de cellules se colore en vert ainsi que l'onglet.

Cependant, quand toutes les conditions sont respectées, les cellules se remplissent en rouge et l'onglet ne change pas de couleur (blanc).

Le code qui fait que les cellules doivent se colorer en rouge :

'Si ICP non retenue, fiche et onglet colorés en rouge :
If CheckBox_NON = True Then
With ActiveSheet
Range("A1:AA35").Interior.Color = RGB(255, 121, 121)
End With
With ActiveSheet.Tab
.Color = 255
.TintAndShade = 0
End With
End If


Est-ce le contrôle d'une valeur dans les ComboBox
ComboBox_C1 <> ""
qui serait mauvais ?

Configuration: Windows / Chrome 85.0.4183.121

1 réponse

Messages postés
1476
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
4 juin 2021
150
Je viens de me rendre compte de ma connerie, après une énième relecture du code :
 'Si ICP retenue et points renseignés, fiche et onglet colorés en vert :
If CheckBox_OUI = True And _
ComboBox_C1 <> "" And _
checkbox_C2 <> "" And _
checkbox_C3 <> "" Then


Est en fait :
'Si ICP retenue et points renseignés, fiche et onglet colorés en vert :
If CheckBox_OUI = True And _
ComboBox_C1 <> "" And _
ComboBox_C2 <> "" And _
ComboBox_C3 <> "" Then


Pas réveillé le garçon !!!