Création d'une matrice sous excel
siegfried321
Messages postés
3
Statut
Membre
-
Nadia -
Nadia -
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
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
A voir également:
- Matrice de kraljic excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Fiche de pointage excel - Télécharger - Tableur
1 réponse
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
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
Merci.
Cordialement