Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Check box avec condition "IF"

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Tony44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Tony44

XLDnaute Occasionnel
bonjour,

je souhaiterais avoir une précision sur les checkbox.
je souhaite savoir comment écrire le code pour dire, par exemple, que si une cellule A1 =7, alors on indique dans la cellule A2 ->7 et dans la cellule A3-> 1.
par contre si la cellule A1= 8, alors dans la cellule A2 on indique 8 mais dans la cellule A3 on indique rien.

pas facile ..
pour être plus clair, j'ai mis un exemple en fichier joint.
merci pour votre aide.
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Check box avec condition "IF"

Bonjour

Un exemple pour la CheckBox1
Code: 
Private Sub CheckBox1_Click()
If CheckBox1 Then
a = CheckBox1.TopLeftCell.Row
Range("E" & a & "," & "G" & a & "," & "I" & a & "," & "K" & a & "," & "M" & a).Value = Range("C" & a)
Range("F" & a & "," & "H" & a & "," & "J" & a & "," & "L" & a & "," & "N" & a).Value = 1
Else
a = CheckBox1.TopLeftCell.Row
Range("E" & a & "," & "G" & a & "," & "I" & a & "," & "K" & a & "," & "M" & a).Value = Empty
Range("F" & a & "," & "H" & a & "," & "J" & a & "," & "L" & a & "," & "N" & a).Value = Empty
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Check box avec condition "IF"

Salut TempusFugit

merci pour ton aide, mais du coup ce qui ne marche pas c'est que lorsque dans la colonne C il y a "8", je ne doit pas avoir la donnée "1" qui s'affiche.
 
Vote positif 0 Vote négatif
Re : Check box avec condition "IF"

L'exemple a été fait comme indiqué pour la CheckBox1

Je pensais que tu savais adapter le code pour la CheckBox2 tellement cela me semble évident.

Donc voici pour la CheckBox2
Code: 
Private Sub CheckBox2_Click()
If CheckBox2 Then
a = CheckBox2.TopLeftCell.Row
Range("E" & a & "," & "G" & a & "," & "I" & a & "," & "K" & a & "," & "M" & a).Value = Range("C" & a)
Else
a = CheckBox2.TopLeftCell.Row
Range("E" & a & "," & "G" & a & "," & "I" & a & "," & "K" & a & "," & "M" & a).Value = Empty
End If
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Check box avec condition "IF"

re,

en fait je me rend compte que je suis pas très clair dans mes explications.

Là où est la difficulté de ma demande, c'est que dans la colonne "C", un coup ça peut être 8 et une autre fois 7. ce chiffre est une variable qui ne dépend pas d'une saisie. du coup dans le code, il faut pourvoir faire comprendre que si c'est 7 ou 8, alors on applique les conditions que je mentionnais ci-dessus.

en tout cas je te remercie par avance des infos ..
 
Vote positif 0 Vote négatif
Re : Check box avec condition "IF"

Essaie avec cet ajout
Ici pour la CheckBox1
Je te laisse faire les modifications nécessaires pour la CheckBox2
Code: 
Private Sub CheckBox1_Click()
If CheckBox1 Then
a = CheckBox1.TopLeftCell.Row
Select Case Range("C" & a)
Case 7
Range("E" & a & "," & "G" & a & "," & "I" & a & "," & "K" & a & "," & "M" & a).Value = Range("C" & a)
Range("F" & a & "," & "H" & a & "," & "J" & a & "," & "L" & a & "," & "N" & a).Value = 1
Case 8
Range("E" & a & "," & "G" & a & "," & "I" & a & "," & "K" & a & "," & "M" & a).Value = Range("C" & a)
End Select
Else
a = CheckBox1.TopLeftCell.Row
Range("E" & a & "," & "G" & a & "," & "I" & a & "," & "K" & a & "," & "M" & a).Value = Empty
Range("F" & a & "," & "H" & a & "," & "J" & a & "," & "L" & a & "," & "N" & a).Value = Empty
End If
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Check box avec condition "IF"

merci, on s'y rapproche.

dans mon précédent message, je voulais dire que si en colonne "C" il y a 8, alors dans la journée du vendredi on doit indiquer "7" (et non pas 8 comme dans le dernier message).
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL 2021 formule avec des dates
Réponses
7
Affichages
102
MANU64360
M
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
358
komarlehomard
K
D
  • Question Question
XL 2021 Cellule avec plusieurs options
2
Réponses
15
Affichages
380
job75
P
  • Résolu(e)
XL 2021 Formule avec SI ET et si possible plusieurs ET
Réponses
4
Affichages
307
PR.
P
W
  • Question Question
XL 2016 La fonction SI avec conditions multiples
Réponses
4
Affichages
266
TooFatBoy
N
  • Résolu(e)
Microsoft 365 Formule conditionnelle
Réponses
7
Affichages
515
NONO14
N
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
746
un internaute
U
Y
  • Résolu(e)
Microsoft 365 Rechercher et remplacer éditer une procedure
Réponses
8
Affichages
352
YGU1
Y
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
284
PR.
P
M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
422
mamarus1
M
L
  • Résolu(e)
Autres Ajouter dans une cellule un repas toute les 8 heures
Réponses
3
Affichages
551
leptitdu33
L
G
  • Question Question
Microsoft 365 Départager des ex aequo
Réponses
10
Affichages
411
Gerantoine
G
J
  • Question Question
Microsoft 365 Recherche formule automatique
Réponses
7
Affichages
544
JPAd
J
E
  • Question Question
Microsoft 365 Mise en forme conditionnelle d'une ligne avec critère.
Réponses
9
Affichages
666
TooFatBoy
W
  • Question Question
Microsoft 365 Correspondance de mot dans une cellule
Réponses
3
Affichages
292
job75
B
  • Question Question
XL 2021 Tri alphabétique dans une cellule
Réponses
5
Affichages
688
Baldur
B
M
  • Question Question
Google Sheets Formule à rallonge avec conditions
Réponses
13
Affichages
376
Moreno076
M
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
R
  • Question Question
Microsoft 365 Colorier ligne si
Réponses
3
Affichages
448
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…