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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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.
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.
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.