Condition If, and et oe en VBA
san789
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
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
A voir également:
- Condition If, and et oe en VBA
- Excel cellule couleur si condition texte - Guide
- Spybot search and destroy - Télécharger - Antivirus & Antimalwares
- Oe mac - Guide
- Find and mount - Télécharger - Récupération de données
- Disk boot failure insert system disk and press enter - Guide
2 réponses
Bonjour,
Essaies :
Cordialement
Patrice
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
ca fonctionne super bien