Contrôle de ComboBox non vides

Signaler
Messages postés
1183
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
28 octobre 2020
-
Messages postés
1183
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
28 octobre 2020
-
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
1183
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
28 octobre 2020
117
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 !!!