Discussion :

[mercutiou]

Bonjour,

J'aimerais insérer dans mon travail un bouton qui permette lors du clic d'initialiser une matrice identité 19x19 dans le carré de cases définis par B2:U2,B2:B20.

Merci.

[Krovax]

En 3 lignes à mettre dans le code de ton bouton (double clique sur ton bouton en étant e mode édition)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim i As Integer
Range("b2:u20") = 0
For i = 2 To 20: Cells(i, i) = 1: Next i

C'était pas très compliqué, avoue tu n'as pas cherché

[mercutiou]

Merci pour ta réponse,

j'avoue que je débute surtout dans ce language.

[Krovax]

Pas de problème, bonne chance pour la suite ( je suppose qu'après tu vas l'uiliser cette matrice)
Le bouton en bas de la discutions, merci

edit : une remarque il fau sarréter a T pas U sinon tu as une 19x20

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim i As Integer
Range("B2:T20") = 0
For i = 2 To 20: Cells(i, i) = 1: Next i