[VBA] Fonction if !!! Need help

Résolu/Fermé
Dog killer Messages postés 57 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 12 juin 2007 - 6 juin 2007 à 07:54
Dog killer Messages postés 57 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 12 juin 2007 - 7 juin 2007 à 10:29
Bonjour, j'avais créé un post a propos de if sans réponse , bref!
je vais reprendre mon problème: je voulais utiliser la fonction si dans une cellule de mon classeur mais j'ai besoin de plus de huit si donc je doit passer en VBA avec la fonction IF . J'ai essayé de m'y mettre mais ce que j'ai écrit comporte des érreur !!!! (boite de dialogue) donc si vous pouvez m'aider???
PS: au debut je ne voulais pas de macro mais maintenant je pense mettre un boutton pour l'actionner.
If B14="" then B16=""
Else
   If B9="diam interieur" then
      If B14>B11 then
      B15="REBUT"
      Else
         If B14<B10 Then B15="A USINER"
         Else
            If B12<B14<B11 then B15="BONNE"
            End if
   Else
      If B14<B11 then
      B15="REBUT"
      Else
         If B14>B10 Then B15="A USINER"
         Else
            If B12<B14<B11 then B15="BONNE"
            End if
End if




merci
A voir également:

2 réponses

blux Messages postés 26001 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 24 avril 2024 3 289
6 juin 2007 à 08:33
Salut,

c'est quoi ton erreur ?
3
Dog killer Messages postés 57 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 12 juin 2007 25
6 juin 2007 à 09:16
ca me dit : else sans if
0
blux Messages postés 26001 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 24 avril 2024 3 289
6 juin 2007 à 09:23
C'est normal, tu as 8 if et 3 end if, alors il se perd !

Prends l'habitude d'indenter ton code, tu verras où ils doivent être placés...

Ca peut donner un truc comme ça :
If B14="" then
    B16=""
Else
   If B9="diam interieur" then
      If B14>B11 then
        B15="REBUT"
      Else
         If B14<B10 Then
            B15="A USINER"
         Else
            If B12<B14<B11
                then B15="BONNE"
            End if
         End if
      End if
   Else
      If B14<B11 then
         B15="REBUT"
      Else
         If B14>B10 Then
            B15="A USINER"
         Else
            If B12<B14<B11 then
                B15="BONNE"
            End if
         End if
      End if
   End if
End if
--
A+ Blux
 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"
0
Dog killer Messages postés 57 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 12 juin 2007 25
7 juin 2007 à 10:29
Merci beaucoup
0