Re : 6 mots et 4 opérateurs
Bonjour et merci de tenter de résoudre mon problème.
6 cellules cel1, cel2, cel3, cel4, cel5, cel6
et 4 opérateurs +, -, *, /
Comment additionner, soustraire, etc toutes ces cellules entre elles en concaténant les 6 termes ?
Un gentil contributeur m'a trouvé la solution en imbriquant des boucles : voici sa solution (1024 possibilités) et merci à lui (et aussi à vous) :
Sub ListerOpérations()
Dim o, a%, b%, c%, d%, e%, n%
o = Array("+", "-", "*", "/")
For a = 0 To 3
For b = 0 To 3
For c = 0 To 3
For d = 0 To 3
For e = 0 To 3
n = n + 1
ActiveSheet.Cells(n, 1) = [E1] & o(a) & [E2] & o(b) & [E3] & o(c) _
& [E4] & o(d) & [E5] & o(e) & [E6]
Next e
Next d
Next c
Next b
Next a
End Sub
Script court et nickel !
Merci encore de vous être intéressé à ma question.