Erreur 424 VB EXCEL boucle IF

MarineG76 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
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   Statut Membre Dernière intervention   1 204
 
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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
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   Statut Contributeur Dernière intervention   1 191
 
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