Choix avec une checkbox

Fermé
simkmil Messages postés 427 Date d'inscription mardi 19 février 2008 Statut Membre Dernière intervention 20 février 2024 - 5 juil. 2021 à 11:48
simkmil Messages postés 427 Date d'inscription mardi 19 février 2008 Statut Membre Dernière intervention 20 février 2024 - 5 juil. 2021 à 17:50
Bonjour,
j'ai deux checkbox . Si la première est cochée, alors j'ai "cofidis" dans une cellule d'une autre feuille. Si la seconde est cochée, alors j'ai "Cetelem" dans cette même cellule.
Je voudrais que si AUCUNE des checkbox n'est cochée, dans la cellule de l'autre feuille s'inscrive "COMPTANT" (et si possible je voudrais l'écrire en rouge)
voici ce que j'ai essayé :
'choix de la sté de crédit

If Sheets("Bon de Commande").CheckBox4.Value = True Then
Sheets("Bon de Commande").Range("K30").Value = "Cofidis"

End If
If Sheets("Bon de Commande").CheckBox5.Value = True Then
Sheets("Bon de Commande").Range("K30").Value = "Cetelem"
End If

If Sheets("Bon de Commande").CheckBox4.Value And Sheets("Bon de Commande").CheckBox5.Value = False Then
Sheets("Bon de Commande").Range("K30").Value = "COMPTANT"
End If

le problème est que avec une checkbox cochée le mot Comptant va dans la cellule en question.

Merci de votre aide



Configuration: Windows / Chrome 91.0.4472.124

2 réponses

f894009 Messages postés 17178 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 février 2024 1 701
5 juil. 2021 à 17:00
Bonjour,

If Sheets("Bon de Commande").CheckBox4.Value And Sheets("Bon de Commande").CheckBox5.Value = False


Plutot comme ceci:
If Sheets("Bon de Commande").CheckBox4.Value=False  And Sheets("Bon de Commande").CheckBox5.Value = False
0
simkmil Messages postés 427 Date d'inscription mardi 19 février 2008 Statut Membre Dernière intervention 20 février 2024 34
5 juil. 2021 à 17:50
Merci beaucoup, je vais tester cela de suite.
je reviens dire si cela fonctionne .... ou non !

merci
0