Condition If, and et oe en VBA Fermé

Question

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 Configuration: Windows / Internet Explorer 11.0

Patrice33740 · Answer

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

san789 · Answer

Patrice, 

je me demandais si je veux d'autre conditions de plus, Est-ce que le "else" est appropier?

Condition If, and et oe en VBA

2 réponses

Discussions similaires