[VBA-E] Contrôle If_Then

Version imprimable

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 :aie:
Code:

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

25/04/2007, 17h25
alsimbad

salut
tu fais un tableau, tu compare la nouvelle entrèe avec toutes les autres, si elle est differente, elle rentre dans le tableau, sinon, elle ne rentre pas
25/04/2007, 17h44
damsmut

Désolé, mais j'ai pas tout compris.
Peux tu me donner un exemple ?
merci

bon, c'est jour de bonté
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Sub untableau() nbdeligne = Worksheets(1).Cells(65535, 1).End(xlUp).Row k = 1 ReDim tableaudevariable(k) tableaudevariable(k) = Cells(k, 1) For k = 1 To nbdeligne j = UBound(tableaudevariable) For i = 1 To j If Cells(k + 1, 1) = tableaudevariable(i) Then u = False MsgBox " variable déja existante en " & Chr(10) _ & Cells(k + 1, 1).Address & Chr(10) _ & "c'est le " & Cells(k + 1, 1) Exit For Else: u = True End If Next i If u = True Then ReDim Preserve tableaudevariable(j + 1) tableaudevariable(j + 1) = Cells(k + 1, 1) End If Next k For i = 1 To j MsgBox "variables entrées " & tableaudevariable(i) Next End Sub
ce code te permet d'analyser une colonne, et de créer un tableau sans qu'aucune variable ne soit répétté, tu est donc sur qu'elle est unique.
il ne te reste plus qu'a adapter. sinon, tu regarde dans les aides, les faq, les tutoriels, et tu cherche comment enlever les doublons. je ne vois pas comment tu pourrais comparer ta variable avec toutes les combinaisons possible d'un certain nombre de variable, ça ferais trop de combinaisons.

Sans utiliser la feuille de calculs, la même

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test_control()
Dim a, b, c, d, e As Integer
    a = 1
    b = 2
    c = 3
    d = 1
    e = 5
    If a <> b and a<> c and a<>d and a<> e and b <> c and _
          b <> c and b <> d and b <> e and c <> d and _
          c <> e and d<>e then 
              msgbox "tes variables sont toutes différentes" 
          else
              msgbox "Tu as des variables semblables "
    endif
End Sub

Maintenant, je trouverais une autre solution si j'étais toi ;)

PS - Pas testé :lol:

26/04/2007, 08h43
damsmut

ouskel'n'or j'avais aussi pensé à la même solution que toi...
mais en pratique j'ai beaucoup plus de variables et les comparaisons n'en finissent plus... trop galère.
merci
a+