création d'une matrice sous excel Fermé

Question

Bonjour,

Je souhaiterais créer une macro sous excel afin de créer une matrice. Toute fois celle ci est particulière : ellle n'a que des valeurs non nulles dans le triangle inférieur, et de la il y encore pas mal de zéros. Auriez vous une idée comment écrire cette macro afin quelle demande la taille de la matrice, l'indice de la ligne et de la colonne et remplisse ainsi les différentes cases? Ceci est fait pour etre ensuite appliqué sur des matrices 30x30.

perso j'ai délà crée une macro mais elle ne veut pas tourner. la voici ci desssous : 

Private Sub CommandButton2_Click()

Dim I As Integer
Dim J As Integer
Dim N As Integer

I = 0
J = 0

I = InputBox(lavaleurdelaligne)
J = InputBox(lavaleurdelacolonne)

Do

ActiveWorkbook.Sheet(10).Cell(9 + I, J + 4).Value = N
N = InputBox(valeurduterme)


Loop

End Sub

Merci d'avance
Siegfried321

Le Pingou · Answer

Bonjour,
La ligne de : ActiveWorkbook.Sheets(10).Cells(9 + I, J + 4).Value = N  (s à Sheets et Cells)

Ci dessous une proposition:

Private Sub CommandButton2_Click()

Dim Li As Integer ' indice de ligne
Dim Co As Integer ' indice de colonne
Dim N As Integer
Dim NbLiMat, NbCoMat As Integer

NbLiMat = InputBox("Entrer nombre de ligne de la matrice !")
NbCoMat = InputBox("Entrer nombre de colonne de la matrice !")

Li = InputBox("Entrer la valeur de la ligne de départ!")
Co = InputBox("Entrer la valeur de la colonne de départ !")
N = InputBox("valeur du terme")

For L = 1 To NbLiMat ' boucle pour ligne matrice
    For C = 1 To NbCoMat ' boucle pour colonne matrice
        ActiveWorkbook.Sheets(2).Cells(Li + L - 1, Co + C - 1).Value = N
        N = N + 2
    Next
Next
End Sub

Création d'une matrice sous excel

1 réponse

Discussions similaires