Macro If

[Kristof]

Bonsoir le forum,

Ci-dessous un bout de la macro que j'utilise :

Sub Test_Phrase_Remarque()
Dim alpha As Integer, beta As Integer, betares As Integer, gamma As Integer
Dim Phrase As Integer, Phrasentext As String


alpha = 136
beta = 137
gamma = 138
betares = 139
Phrase = 143

Do
'Cas n°1
If ActiveSheet.Cells(alpha, 5) <= '0,1' And ActiveSheet.Cells(beta, 5) <= '1' And ActiveSheet.Cells(betares, 5) <= '1' And ActiveSheet.Cells(gamma, 5) <= '100' Then Phrasentext = 'Cas n°1.'

Je voudrais ajouter au premier test
ActiveSheet.Cells(alpha, 5) <= '0,1'
une nouvelle condition du style Or ActiveSheet.Cells(alpha, 5) = '< LD' et tout cela dans le même If.

Merci pour votre aide.

 

[Charly2]

Bonsoir Kristof,

J'ai bien peur de me tromper. Ça me paraît trop simple pour être la bonne réponse :whistle:

Sub Test_Phrase_Remarque()
Dim alpha As Integer, beta As Integer, betares As Integer, gamma As Integer
Dim Phrase As Integer, Phrasentext As String

  alpha = 136
  beta = 137
  gamma = 138
  betares = 139
  Phrase = 143

  Do
    'Cas n°1
    If (ActiveSheet.Cells(alpha, 5) <= '0,1' _
          Or ActiveSheet.Cells(alpha, 5) = '< LD') And _
          ActiveSheet.Cells(beta, 5) <= '1' And _
          ActiveSheet.Cells(betares, 5) <= '1' And _
          ActiveSheet.Cells(gamma, 5) <= '100' Then
       Phrasentext = 'Cas n°1.'
      ' ...

Tiens-nous au courant.

A+

Message édité par: Charly2, à: 07/03/2006 19:58

 

[Kristof]

Malheureusement c'est bien trop simple ! J'avais déjà assayé. Merci quand même.
Une autre idée ?

 

[Charly2]

re Kristof,

Bon ok, je m'en doutais un peu :silly:

Sans rien écrire de ce que tu attends exactement, il me semble assez délicat de te proposer une autre écriture. J'utilise assez souvent les tableaux de Karnaugh et l'algèbre de Boole pour ce genre de chose, mais il faut quelles conditions déclenchent quoi...

A+