Condition If, and et oe en VBA
Bonjour,
voici le code VBA que j'ai :
If b1 <> b2 Then
nom = .Range(Prenom & liFS).Value
n = n + 1
ReDim Preserve T(1 To n)
res = nom & " amount changed from " & b1 & " to " & b2
T(n) = res
End If
If b1 <> b2 And d1 <> d2 Then
nom = .Range(Prenom & liFS).Value
n = n + 1
ReDim Preserve T(1 To n)
res = nom & " Deceased ," & " amount changed from " & b1 & " to " & b2
T(n) = res
End If
mon problème c'est que je veux que la macro me sorte une seule de ses deux lignes. pour l'instant sa me sort
" Bob amount changed from 100 to 150"
" Bob deceased, amount changed from 100 to 150"
Mais je veux seulement la deuxieme ligne si quelqu'un repond aux deux conditions
mais quand je met le "or" entre les deux ca ne fonctionne pas. avez-vous des suggestions?
Merci
voici le code VBA que j'ai :
If b1 <> b2 Then
nom = .Range(Prenom & liFS).Value
n = n + 1
ReDim Preserve T(1 To n)
res = nom & " amount changed from " & b1 & " to " & b2
T(n) = res
End If
If b1 <> b2 And d1 <> d2 Then
nom = .Range(Prenom & liFS).Value
n = n + 1
ReDim Preserve T(1 To n)
res = nom & " Deceased ," & " amount changed from " & b1 & " to " & b2
T(n) = res
End If
mon problème c'est que je veux que la macro me sorte une seule de ses deux lignes. pour l'instant sa me sort
" Bob amount changed from 100 to 150"
" Bob deceased, amount changed from 100 to 150"
Mais je veux seulement la deuxieme ligne si quelqu'un repond aux deux conditions
mais quand je met le "or" entre les deux ca ne fonctionne pas. avez-vous des suggestions?
Merci
2 réponses
-
Bonjour,
Essaies :If b1 <> b2 Then nom = .Range(Prenom & liFS).Value n = n + 1 ReDim Preserve T(1 To n) If d1 <> d2 Then res = nom & " Deceased ," & " amount changed from " & b1 & " to " & b2 Else res = nom & " amount changed from " & b1 & " to " & b2 End If T(n) = res End If
Cordialement
Patrice -
Patrice,
je me demandais si je veux d'autre conditions de plus, Est-ce que le "else" est appropier?
