Choix avec une checkbox
simkmil
Messages postés
505
Date d'inscription
Statut
Membre
Dernière intervention
-
simkmil Messages postés 505 Date d'inscription Statut Membre Dernière intervention -
simkmil Messages postés 505 Date d'inscription Statut Membre Dernière intervention -
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
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
-
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 -
Merci beaucoup, je vais tester cela de suite.
je reviens dire si cela fonctionne .... ou non !
merci