Bonjour à tous,

Je voudrai exécuter un code si plusieurs variables sont TOUTES différentes l'une de l'autre :

Voici ce que j'ai écrit, mais bien sûr cela ne fonctionne pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test_control()
 
    Dim a, b, c, d, e As Integer
 
    a = 1
    b = 2
    c = 3
    d = 1
    e = 5
 
    'Ca ça ne fonctionne pas ! Comment faire ?
    If a <> b <> c <> d <> e Then MsgBox "Toutes les variables sont différentes"
 
End Sub
Par contre je ne souhaiterais pas avoir à écrire toutes les solutions de comparaison... car là le test est avec 5 variables... mais en réalité il y'en a plus.

Comment faudrait-il faire ? Il doit exister une petite astuce !

Merci

A+

Damsmut