Créer un tableau avec boucles

[Hulk]

Bonsoir tout le monde 🙂

Ca fait un petit moment que je tourne en boucle... et en vain.

Au fait je souhaiterais faire ceci :

10101
01010
10101
01010
10101

Alterner les 1 et les 0 sur 5 lignes et 5 colonnes mais je n'y parviens pas 😡

Le fichier joint est plus explicite.

Merci infiniment pour votre aide !

 

[Softmama]

Re : Créer un tableau avec boucles

Bonsoir Hulk,

Tout simplement, tu peux faire comme ça:

Private Sub CommandButton1_Click()
Dim c As Range, t&
t = 0
For Each c In Range("B2:F6") 'à adapter
    c = IIf(t / 2 = Int(t / 2), 1, 0)
    t = t + 1
Next c
End Sub

 

[Banzai64]

Re : Créer un tableau avec boucles

Bonsoir Hulk
Bonsoir Softmama
Un p'tit essai

 

[Hulk]

Re : Créer un tableau avec boucles

Re,

Super, merci et bravo à vous deux !

En passant, je ne connaissais pas du tout la fonction Abs..

J'étais loin du compte 😱

Encore merci !

 

[Hulk]

Re : Créer un tableau avec boucles

Re,

Softmama, après avoir testé, ta macro fonctionne bien si les colonnes sont impaires, je veux dire s'il y a trois ou cinq ou sept etc colonnes.

Si non, ça n'alterne plus.
Pour les lignes ça joue.

Mais merci quand même de t'avoir penché dessus !

Banzai la tienne c'est impec !

Bonne nuit ou soirée !

 

[kjin]

Re : Créer un tableau avec boucles

Bonsoir,
Basique !

Private Sub CommandButton1_Click()
x = 1
For I = 1 To 5
    For J = 1 To 5
        Cells(I + 1, J + 1) = x
        x = IIf(x = 1, 0, 1)
    Next
Next
End Sub

A+
kjin

 

[Si...]

Re : Créer un tableau avec boucles

Bonjour

ou encore :

Private Sub CommandButton1_Click()
  Dim i As Byte, j As Byte
  For i = [B]0[/B] To [B]4[/B]
    For j = 1 To 5
      Cells(i + [B]2[/B], j + 1) = [B](i + j) Mod 2[/B]
    Next
  Next
End Sub

 

[Hulk]

Re : Créer un tableau avec boucles

Bonjour tout le monde 🙂

Kjin, même problème que Banzai... si les colonnes vont par paires, ça ne joue pas..

    For i = 1 To 5
        For j = 1 To 5
            ...

joue, mais

    For i = 1 To 6
        For j = 1 To 6
            ....

ne joue plus.

Si... impec !

Merci à vous 😉