VBA : help

Résolu/Fermé

juju - 2 juin 2018 à 11:43
Juju - 2 juin 2018 à 15:27

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

A voir également:

VBA : help
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
2 juin 2018 à 12:33

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

Juju
2 juin 2018 à 15:27

Merci beaucoup !!!! En effet ça marche désormais

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 2 juin 2018 à 14:58

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

Juju
2 juin 2018 à 15:20

Merci bcp ! En effet c’est plus simple comme ceci et ça marche !!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters