VBA : help Résolu/Fermé

Question

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 !!!!

julia Namor · Answer

bonjour 
c'est corrigé
il fallait bien positionnerle end if 

Sub Maxi()Dim I As Integer: Dim J As Integer: Dim Maxi As IntegerMaxi = Cells(1, 1)For I = 1 To 10For J = 1 To 10If Cells(I, J) > Maxi ThenMaxi = Cells(I, J)End IfNext JNext IMsgBox (Maxi)End Sub

bon courage

michel_m · Answer

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 RangeSet Matrice = Range("A1:J10")MsgBox Application.Max(Matrice)End Sub

VBA : help

2 réponses

Discussions similaires