[VBA] Fonction if !!! Need help

Résolu
Dog killer Messages postés 57 Statut Membre -  
Dog killer Messages postés 57 Statut Membre -
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
--
Être ou ne pas etre acoudé au comptoir , tel est la véritable question (Martini au Shak_spear) ; ) 
HAVE FUN 
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1. blux Messages postés 2046 Date d'inscription   Statut Modérateur Dernière intervention   3 455
     
    Salut,

    c'est quoi ton erreur ?
    3
    1. Dog killer Messages postés 57 Statut Membre 25
       
      ca me dit : else sans if
      0
    2. blux Messages postés 2046 Date d'inscription   Statut Modérateur Dernière intervention   3 455
       
      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
  2. Dog killer Messages postés 57 Statut Membre 25
     
    Merci beaucoup
    0