Correction code UserForm

Bonjour,

J'ai créé le code suivant dans un UserForm qui dit que si toutes les checkbox 1 à 6 sont true alors en P83 je retrouve "R" et en Q83 "£" ce qui marchetrès bien.

Ensuite j'ai ajouté la deuxième ligne qui dit que si une seule des checkBox est False alors P83 "£" et Q83 "R"

Et là qu'importe ce que je coche on retrouve tout le temps P83 "£" et Q83 "R"

Si quelqu'un a une idée sur l'erreur ou une autre solution, je suis preneur

Le fichier est bien trop volumineux pour être joint

Private Sub CommandButton1_Click()

If CheckBox1 And CheckBox2 And CheckBox3 And CheckBox4 And CheckBox5 And CheckBox6 = True Then

Cells(83, 16).Value = "R"

Cells(83, 17).Value = "£"

End If

If CheckBox1 Or CheckBox2 Or CheckBox3 Or CheckBox4 Or CheckBox5 Or CheckBox6 = False Then

Cells(83, 16).Value = "£"

Cells(83, 17).Value = "R"

UserForm14.Hide

End If

End Sub

Merci

Bonjour,

Essaies plutôt ainsi :

Option Explicit
Private Sub CommandButton1_Click()
    Cells(83, 16).Value = "£"
    Cells(83, 17).Value = "R"
    If CheckBox1 = True And CheckBox2 = True And CheckBox3 = True And _
        CheckBox4 = True And CheckBox5 = True And CheckBox6 = True Then
            Cells(83, 16).Value = "R"
            Cells(83, 17).Value = "£"
    End If
    UserForm14.Hide
End Sub

Et si il y a toujours erreur remplces CheckBox1.value=True, etc...

Cdlt

Ca marche parfaitement je tatonne dans excel et ça me fait haluciner les réponses que vous pouvez apporter.

Merci Beaucoup

Jeremy

Bon weekend.