K
Kristof
Guest
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.
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.