Table de verite - Vba

Version imprimable

22/05/2015, 11h22
Jordy_vba

Table de verite - Vba

Bonjour,

J'ai un problème a réaliser un tableau de verite sur vba.

la variable est l utilisateur qui taper.

donc 2 ^ variable.

par contre j'ai pas trop d'idée pour pouvoir réaliser sur une feuil :

00
01
10
11

en fonction de la variable.

Pouvez vous m'aider?

merci
22/05/2015, 15h31
gnain

Bonjour,

Je ne comprend très bien, il faut expliqué mieux quel est le problème rencontré.
22/05/2015, 18h56
Jordy_vba

vba

par exemple en prends une variable x = 2. donc 2 ^ 2 = 4 possibilités et le code doit m affiche sa table de vérité sur la feuil1 du classeur.
comme :

00
01
10
11

j'ai pas d'idée..

Bonjour,

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub Table_Verite()
 
Dim valeur As Boolean
Dim x As Long
Dim p As Long
Dim k As Long
Dim m As Long
 
valeur = False
 
Cells.ClearContents
 
'=========================
'variable de l'utilisateur
x = 3
'=========================
 
 
'=========================
'nombre de ligne
k = 2 ^ x
'=========================
 
 
'=========================
'incrémentation
p = 2
'=========================
 
 
For i = 1 To x
    k = k / 2
 
    For j = 1 To p
        For r = 1 To k
            m = m + 1
            If valeur = False Then
                Cells(m, i) = 0
            Else
                Cells(m, i) = 1
            End If
        Next
        If valeur = False Then
            valeur = True
        Else
            valeur = False
        End If
    Next
    m = 0
    valeur = False
    p = p * 2
 
Next
 
MsgBox "fin"
 
End Sub

1 pièce(s) jointe(s)

salut,

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
29
30
31
32
33
34
Option Explicit
 
Sub Test()
Dim iCols As Long
Dim iRows As Long
Dim iRow As Long
Dim iCol As Long
Dim sStr As String
Dim iDepart As Long
 
    iCols = Val(InputBox("Nb colonnes", "Colonnes ?"))
    If iCols = 0 Then Exit Sub
 
    iDepart = iCols + 1
    Feuil1.Cells.Clear
 
    iRows = (2 ^ iCols) - 1
    iCols = iCols - 1
 
    For iRow = 0 To iRows
        For iCol = 0 To iCols
            If (iRow And (2 ^ iCol)) > 0 Then
                sStr = "1"
            Else
                sStr = "0"
            End If
            Feuil1.Cells(iRow + 2, iDepart - iCol) = sStr
        Next iCol
    Next iRow
    With Feuil1
        .Cells.Columns.AutoFit
        .Range("A1").Select
    End With
End Sub

24/05/2015, 15h19
gnain

Encore mieux
http://discuss.fogcreek.com/joelonso...w&ixPost=38548

EDIT: Oups! Kiki je n'avais pas vue, tu avais trouvé le même code que je viens de trouvé. désolé!
24/05/2015, 17h34
kiki29

Salut, pas grave, ce code date de 2003, je l'avais sur mon pc depuis 2006, sans référence, merci de l'avoir retrouvée.

@gnain: attention tout de même à l'orthographe. Antidote
26/05/2015, 09h46
Jordy_vba

vba

Merci à vous! vous etez au top ;)