cellules avec condition relié avec checkbox

Bonjour,
Je suis débutant en vba. Voici mon problème. Je veux quand je remplir les cellules a1,a2 et a3 et que si les conditions sont vrai que le checkbox3 se coche automatiquement. Si les conditions sont fausses que le checkbox4 se coche. merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

Sub Macro1() ' ' Macro1 Macro cond1 = Range("a1") <= 10 cond2 = Range("a2") <= 10 cond3 = Range("a3") >= 10   If cond1 And cond2 And cond3 = True Then CheckBox3.Value = True CheckBox4.Value = False End If   If cond1 And cond2 = True And cond3 = False Then CheckBox3.Value = false CheckBox4.Value = True End If   If cond1 And cond3 = True And cond2 = False Then CheckBox3.Value = false CheckBox4.Value = True End If   If cond1 = True And cond2 And cond3 = False Then CheckBox3.Value = false CheckBox4.Value = True   End If   If cond1 And cond2 And cond3 = False Then CheckBox3.Value = false CheckBox4.Value = True   End If   If cond1 And cond2 = False And cond3 = True Then CheckBox3.Value = False CheckBox4.Value = True End If   If cond1 And cond3 = False And cond2 = True Then CheckBox3.Value = False CheckBox4.Value = True End If   If cond1 = False And cond2 And cond3 = True Then CheckBox3.Value = False CheckBox4.Value = True End If   End Sub   Private Sub Worksheet_change(ByVal taget As Excel.Range) If Range("a1") Or Range("a2") Or Range("a3") <> 0 Then Run Macro1 End If If Range("a1") Or Range("a2") Or Range("a3") = 0 Then   Run Macro1 End If   End Sub

---

B'jour,

J'ai pas regardé dans les détails ce qui pourrait être simplifié, j'ai juste adapté ton code pour que (en principe :D) il fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

Sub Macro1() Dim Cond1 As Boolean, Cond2 As Boolean, Cond3 As Boolean   Cond1 = False Cond2 = False Cond3 = False   If Range("A1") <= 10 Then Cond1 = True If Range("A2") <= 10 Then Cond2 = True If Range("A3") >= 10 Then Cond3 = True     If Cond1 = True And Cond2 = True And Cond3 = True Then ActiveSheet.OLEObjects("CheckBox3").Object.Value = True ActiveSheet.OLEObjects("CheckBox4").Object.Value = False End If   If Cond1 = True And Cond2 = True And Cond3 = False Then ActiveSheet.OLEObjects("CheckBox3").Object.Value = False ActiveSheet.OLEObjects("CheckBox4").Object.Value = True End If   If Cond1 = True And Cond3 = True And Cond2 = False Then ActiveSheet.OLEObjects("CheckBox3").Object.Value = False ActiveSheet.OLEObjects("CheckBox4").Object.Value = True End If   If Cond1 = True And Cond2 = False And Cond3 = False Then ActiveSheet.OLEObjects("CheckBox3").Object.Value = False ActiveSheet.OLEObjects("CheckBox4").Object.Value = True End If   If Cond1 = False And Cond2 = False And Cond3 = False Then ActiveSheet.OLEObjects("CheckBox3").Object.Value = False ActiveSheet.OLEObjects("CheckBox4").Object.Value = True End If   If Cond1 = False And Cond2 = False And Cond3 = True Then ActiveSheet.OLEObjects("CheckBox3").Object.Value = False ActiveSheet.OLEObjects("CheckBox4").Object.Value = True End If   If Cond1 = False And Cond3 = False And Cond2 = True Then ActiveSheet.OLEObjects("CheckBox3").Object.Value = False ActiveSheet.OLEObjects("CheckBox4").Object.Value = True End If   If Cond1 = False And Cond2 = True And Cond3 = True Then ActiveSheet.OLEObjects("CheckBox3").Object.Value = False ActiveSheet.OLEObjects("CheckBox4").Object.Value = True End If   End Sub

---

peut etre mieu de faire ca comme ceci je ne sais pas ce qu en pense fring...

Code:

---

1 2 3 4

If Range("A1") <= 10 Then Cond1 = True ElseIf Range("A2") <= 10 Then Cond2 = True ElseIf Range("A3") >= 10 Then Cond3 = True End If

---

Merci beaucoup ! La Macro1 fonctionne très bien.

Est-ce possible que la macro1 fonctionne automatiquement en remplissant les cellule a1 ,a2 et a3., avec ce code.:

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_change(ByVal taget As Excel.Range) If Range("a1") Or Range("a2") Or Range("a3") <> 0 Then Run Macro1 End If If Range("a1") Or Range("a2") Or Range("a3") = 0 Then   Run Macro1 End If

---

Citation:

---

Envoyé par tomy7

peut etre mieu de faire ca comme ceci je ne sais pas ce qu en pense fring...

---

Non pas correct, déjà écrit comme ça tu vas avoir un joli bug :mrgreen:
Donc si je reprend ton idée

Code:

---

1 2 3 4 5 6 7

If Range("a1") <= 10 Then Range("b1") = "ok" ElseIf Range("a2") <= 10 Then Range("b2") = "ok" ElseIf Range("a3") <= 10 Then Range("b3") = "ok" End If

---

Le résultat sera que si la première condition est Vrai, il ne vérifiera pas les conditions 2 et 3.

Code:

---

1 2 3 4 5

Private Sub Worksheet_change(ByVal taget As Excel.Range) If Range("a1").value = 0 Or Range("a2").value = 0 Or Range("a3").value = 0Then application.Run "book1!Macro1" ' par exemple End If end sub

---

tu vois que sa marche fring, non je deconne c est plus correcte comme tu l as ecris!

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Or Target.Address = "$A$2" Or Target.Address = "$A$3" Then Macro1 End Sub

---

Salutlavalois et le forum

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) If [A1] <= 10 And [A2] <= 10 And [A3] >= 10 Then Me.CheckBox3.Value = True Me.CheckBox4.Value = False Else Me.CheckBox4.Value = True Me.CheckBox3.Value = false End If End Sub

---

A+

Merci Fring pour ton aide,

Pour faire fonctionner automatiquement la macro1 quand les 3 cellules ont une valeur le code suivant n'a pas fonctionné.

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_change(ByVal taget As Excel.Range) If Range("a1") Or Range("a2") Or Range("a3") <> 0 Then call Macro1 End If If Range("a1") Or Range("a2") Or Range("a3") = 0 Then   call Macro1 End If

---

J'ai testé celui que tu m'as envoyé

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Or Target.Address = "$A$2" Or Target.Address = "$A$3" Then Macro1 End Sub

---

et il ne fonctionne pas plus lui non plus.

J' aimerai quand les 3 cellules sont remplies que la macro fonctionne automatiquement.

merci

Essaye le code de Gorfael "tout en un" ;)

Si il te convient, tu peux virer la macro1

salut Fring

Je l'ai essayé mais il ne fonctionne pas non plus. Comme je commence en vba je vais faire des recherche pour trouver la solution.

merci beaucoup pour ton aide.

essaye :

Code:

---

application.run "Macro1"

---

c est ce que m a donne l enregistreur!

:koi: ça devrait pourtant fonctionner

Bon...en gardant ta Macro1, essaye ceci alors

Code:

---

1 2 3 4 5

Private Sub Worksheet_change(ByVal taget As Excel.Range) If Range("A1") <> "" And Range("A2") <> "" And Range("A3") <> "" Then Macro1 End If End Sub

---

Pour info ce code ci ou le code de Gorfael ne doivent pas se placer dans un Module mais directement dans l'objet Feuil concernée

Hello,

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range)   Me.CheckBoxes("Check Box 3").Value = _ (Range("A1") < 10 And (Range("A2") < 10)) _ And (Range("A3") > 10)     End Sub

---

Non Fring, ça fonctionne pas plus, comme je suis débutant je ne comprend pas tout. Je dois faire des recherche sur internet pour m'aider à trouver et à comprendre le problème.

merci

Pourtant toutes les solutions proposées fonctionnent...

Ci-joint un exemple avec le code de Gorfael

Salut lavalois

Citation:

---

comme je suis débutant je ne comprend pas tout

---

Les macros données ne fonctionnent pas sur un module général : il faut que se soit le module lié à la feuille.
Clic-droit sur le nom de l'onglet>>Menu contextuel>>Visualiser le code

Si ce n'est pas ça, désolé
A+

Si tes checkbox sont dans la feuille de calculs

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_change(ByVal target As Excel.Range) Dim Cond1 As Boolean, cond2 As Boolean, cond3 As Boolean Cond1 = Range("a1") <= 10 cond2 = Cond1 And Range("a2") <= 10 cond3 = cond2 And Range("a3") >= 10 ActiveSheet.CheckBox3 = cond3 ActiveSheet.CheckBox4 = Not cond3 End Sub

---

Si tes checkbox sont dans un userform

Code:

---

1 2 3 4 5 6 7 8

Sub CommandButton1_Click() 'A adapter selon la façon d'actualiser tes données Dim Cond1 as boolean, cond2 as boolean, cond3 as boolean cond1 = Range("a1") <= 10 cond2 = Cond1 and Range("a2") <= 10 cond3 = Cond2 and Range("a3") >= 10 Me.CheckBox3 = Cond3 Me.CheckBox4 = not Cond3 End Sub

---

A aucun moment tu n'indiques comment tu saisis tes données
Ton premier code laisse penser que tes checkbox sont dans un userform.
Ce que tu dis par la suite incite à penser qu'ils sont dans une feuille de calculs.
Une précision sur ces trois points pourrait aider à comprendre de que tu tentes d'obtenir.
J'ai testé le code que je te propose ;)

En plus court, sans variable

Code:

---

1 2 3 4

Private Sub Worksheet_change(ByVal target As Excel.Range) ActiveSheet.CheckBox3 = IIf(Range("a1") <= 10 And Range("a2") <= 10 And Range("a3") >= 10, True, False) ActiveSheet.CheckBox4 = Not ActiveSheet.CheckBox3 End Sub

---