suites de nombres organisés suivant saisie

Le
Chrisdolby
Bonjour,

j'ai une suite anarchique de nombres(36):
1,20,14,31,9,22,18,29,7,28,12,35,3,26,32,15,19,4,21,2,25,17,34,6,27,13,36,11,30,8,23,10,5,24,16,33.

Cette suite se positionne dans l'ordre dans ce que j'ai nommé "plageune"
comme tel:
1
20 14
31 9 22
18 29 7 28
12 35 3 26 32
15 19 4 21 2 25
17 34 6 27 13 36 11
30 8 23 10 5 24 16 33
autrement dit le triangle de Pascal.

La cellule de tête de mon triangle est [B3]
La dernière cellule (en bas à droite) est [I10]

Je voudrais que lorsque je change le nombre en tête de mon triangle (pour un
autre de la série), la série complête se repositionne dans l'ordre en partant
du nombre que je viens de saisir.

ex: je saisie 2 donc

2
25 17
34 6 27
13 36 11 30
8 23 10 5 24
16 33 1 20 14 31
9 22 18 29 7 28 12
35 3 26 32 15 19 4 21

merci pour votre aide!

Chris
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4443411
bonjour Chris,

copi cette macro sur la page code de ta feuille,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
st = Array("1", "20", "14", "31", "9", "22", "18", "29", "7", "28", "12", _
"35", "3", "26", "32", "15", "19", "4", "21", "2", "25", "17", "34", "6", "27", _
"13", "36", "11", "30", "8", "23", "10", "5", "24", "16", "33")
p = Application.Match(CStr([B3]), st, 0)
For Each c In Range("B4:C4,B5:D5,B6:E6,B7:F7,B8:G8,B9:H9,B10:I10")
Range(c.Address) = st(p + x)
x = x + 1
If p + x = 36 Then
p = 0
x = 0
End If
Next
End If
End Sub

isabelle

Bonjour,

j'ai une suite anarchique de nombres(36):
1,20,14,31,9,22,18,29,7,28,12,35,3,26,32,15,19,4,21,2,25,17,34,6,27,13,36,11,30,8,23,10,5,24,16,33.

Cette suite se positionne dans l'ordre dans ce que j'ai nommé "plageune"
comme tel:
1
20 14
31 9 22
18 29 7 28
12 35 3 26 32
15 19 4 21 2 25
17 34 6 27 13 36 11
30 8 23 10 5 24 16 33
autrement dit le triangle de Pascal.

La cellule de tête de mon triangle est [B3]
La dernière cellule (en bas à droite) est [I10]

Je voudrais que lorsque je change le nombre en tête de mon triangle (pour un
autre de la série), la série complête se repositionne dans l'ordre en partant
du nombre que je viens de saisir.

ex: je saisie 2 donc

2
25 17
34 6 27
13 36 11 30
8 23 10 5 24
16 33 1 20 14 31
9 22 18 29 7 28 12
35 3 26 32 15 19 4 21

merci pour votre aide!

Chris



Publicité
Poster une réponse
Anonyme