Condition If, and et oe en VBA
san789
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
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
- Vba concatenate string and integer ✓ - Forum VB / VBA
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