VBA : help
Résolu
juju
-
Juju -
Juju -
Hello,
Je m'exerce pour mon partiel de la semaine prochaine en refaisant les exercices que mon prof nous a fait faire. Le souci c'est que je n'arrive pas à reproduire un programme VBA. En effet j'ai bien la correction sous les yeux mais il s'avère que celle ci est fausse car à chaque fois VBA ne veut pas l'exécuter. Si quelqu'un aurait la gentillesse de me donner une bonne correction je suis preneuse !!
Voici l'énoncé :
Calcul du maximum d’une matrice:
Avec la fonction alea.entre.bornes, remplissez une matrice 10x10 soit 100 cellules de la feuille de calcul avec des valeurs entières comprises entre 1 et 999
Ecrire un algorithme qui affiche la plus grande des valeurs de la matrice.
Voici la "correction" fausse :
Sub Maxi()
Dim I As Integer: Dim J As Integer: Dim Maxi As Integer
Maxi = Cells(1, 1)
For I = 1 To 10
For J = 1 To 10
If Cells(I, J) > Maxi Then
Maxi = Cells(I, J)
Next J
Next I
MsgBox (Maxi)
End If
End Sub
Merci d'avance pour votre aide !!!!
Je m'exerce pour mon partiel de la semaine prochaine en refaisant les exercices que mon prof nous a fait faire. Le souci c'est que je n'arrive pas à reproduire un programme VBA. En effet j'ai bien la correction sous les yeux mais il s'avère que celle ci est fausse car à chaque fois VBA ne veut pas l'exécuter. Si quelqu'un aurait la gentillesse de me donner une bonne correction je suis preneuse !!
Voici l'énoncé :
Calcul du maximum d’une matrice:
Avec la fonction alea.entre.bornes, remplissez une matrice 10x10 soit 100 cellules de la feuille de calcul avec des valeurs entières comprises entre 1 et 999
Ecrire un algorithme qui affiche la plus grande des valeurs de la matrice.
Voici la "correction" fausse :
Sub Maxi()
Dim I As Integer: Dim J As Integer: Dim Maxi As Integer
Maxi = Cells(1, 1)
For I = 1 To 10
For J = 1 To 10
If Cells(I, J) > Maxi Then
Maxi = Cells(I, J)
Next J
Next I
MsgBox (Maxi)
End If
End Sub
Merci d'avance pour votre aide !!!!
2 réponses
-
bonjour
c'est corrigé
il fallait bien positionnerle end if
Sub Maxi()
Dim I As Integer: Dim J As Integer: Dim Maxi As Integer
Maxi = Cells(1, 1)
For I = 1 To 10
For J = 1 To 10
If Cells(I, J) > Maxi Then
Maxi = Cells(I, J)
End If
Next J
Next I
MsgBox (Maxi)
End Sub
bon courage -
Bonjour
très scolaire cette correction de prof !
dans ton futur boulot, ne t'amuse pas à faire 2 boucles pareilles pour trouver la valeur de ta matrice !!!
Option Explicit
'----------------------------
Sub maxi()
Dim Matrice As Range
Set Matrice = Range("A1:J10")
MsgBox Application.Max(Matrice)
End Sub
