Erreur 424 VB EXCEL boucle IF

Fermé
MarineG76 Messages postés 4 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 27 mai 2010 - 26 mai 2010 à 09:26
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 26 mai 2010 à 18:46
Bonjour,
j'ai crée une boite de dialogue qui demande à l'utilisateur de cliquer sur des checkbox.
Je souhaiterai mettre des conditions sur ces checkbox pour pouvoir associer une valeur dans la case A2 de la feuille1 correspondant à une valeur dans la case D2 de la feuille2.
Voici le code que j'ai écris et qui me donne comme message d'erreur "erreur 424".

If CheckBox1.Value = True Or CheckBox2.Value = True Or CheckBox3.Value = True Then
Sheets("Feuille1").Range("A2") = Sheets("Feuille2").Range("D2") * 4
ElseIf CheckBox1.Value = True Or CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = True Then
Sheets("Feuille1").Range("A2") = Sheets("Feuille2").Range("D2") * 6
Else
Sheets("Feuille1").Range("A2") = Sheets("Feuille2").Range("D2") * 5

Ne vous formalisez pas sur la pertinence des conditions, je n'ai pas pu tout écrire car c'est bcp trop long. Je pense que le pb est le ".Value" pour les checkbox mais dans des boucles précédentes je l'ai aussi utilisé et ça ne m'a pas posé de pb !

Merci d'avance pour vos réponses

A voir également:

3 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
26 mai 2010 à 10:18
Bonjour,

Peux tu nous dire sur quelle ligne se produit l'erreur ?

De plus, le nom des onglets est-il correct ? Feuil1 et Feuil2 au lieu de Feuille1 et Feuille2.

;o)
0
MarineG76 Messages postés 4 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 27 mai 2010
26 mai 2010 à 17:33
Je ne sais pas si j'ai répondu au bon endroit !
Ds le doute, je recommence :

L'erreur est signalée sur la ligne du If...
Et oui je suis sure que mes feuilles sont bien écrite (en vrai ce n'est pas écris comme ça mais c'était plus simple pour éxpliquer)

J'espere que c'est plus clair maintenant !
0
MarineG76 Messages postés 4 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 27 mai 2010
26 mai 2010 à 17:32
L'erreur est signalée sur la ligne du If...
Et oui je suis sure que mes feuilles sont bien écrite (en vrai ce n'est pas écris comme ça mais c'était plus simple pour éxpliquer)

J'espere que c'est plus clair maintenant !
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
26 mai 2010 à 18:46
Bonjour,
Ca ne peut être qu'une erreur de nom
Err 424 = Objet requis
Fait une sub provisoire,
Sub Test
If CheckBox1.Value = True Then stop
if  CheckBox2.Value = True then stop
if  CheckBox3.Value = True Then stop
end sub

Et vérifie le nom de la CheckBox sur la quel ca plante.
Erreur fréquente.. un espace au début ou fin du nom que l'ont ne vois pas bien.
A+
0