Contrôle de ComboBox non vides

Résolu/Fermé
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 - 6 oct. 2020 à 09:22
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 - 6 oct. 2020 à 09:25
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

Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 165
6 oct. 2020 à 09:25
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 !!!

0