Bonjour à tous,
est il possible en VBA effectuer le calcul suivant ?
dans la colonne B si je j'inscris "oui" alors ça m'inscrit "non" dans les colonnes C, D et E.
Voici se que j'ai établi mais il faut réativer la macro à chaque fois.
Function oui()
Dim val As Variant
For Each val In [m3:m200]
If val = "oui" Then val.Offset(0, 1) = "non"
Next
For Each val In [m3:m200]
If val = "oui" Then val.Offset(0, 2) = "non"
Next
For Each val In [m3:m200]
If val = "oui" Then val.Offset(0, 3) = "non"
Next
For Each val In [m3:m200]
If val = "" Then val.Offset(0, 1) = ""
Next
For Each val In [m3:m200]
If val = "" Then val.Offset(0, 2) = ""
Next
For Each val In [m3:m200]
If val = "" Then val.Offset(0, 3) = ""
Next
End Function
Est ce que quelqu'un peut m'éclairer sur le sujet ?
est il possible en VBA effectuer le calcul suivant ?
dans la colonne B si je j'inscris "oui" alors ça m'inscrit "non" dans les colonnes C, D et E.
Voici se que j'ai établi mais il faut réativer la macro à chaque fois.
Function oui()
Dim val As Variant
For Each val In [m3:m200]
If val = "oui" Then val.Offset(0, 1) = "non"
Next
For Each val In [m3:m200]
If val = "oui" Then val.Offset(0, 2) = "non"
Next
For Each val In [m3:m200]
If val = "oui" Then val.Offset(0, 3) = "non"
Next
For Each val In [m3:m200]
If val = "" Then val.Offset(0, 1) = ""
Next
For Each val In [m3:m200]
If val = "" Then val.Offset(0, 2) = ""
Next
For Each val In [m3:m200]
If val = "" Then val.Offset(0, 3) = ""
Next
End Function
Est ce que quelqu'un peut m'éclairer sur le sujet ?