Macro qui ne s'éxécute pas
Cass
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai réalisé une procédure mais elle ne s'exécute pas . a chaque fois que j'essaies de l'éxécute ça m'affiche " bloc if sans end if .
Si quelqu'un peu m'aider se sera gentil .
J'ai réalisé une procédure mais elle ne s'exécute pas . a chaque fois que j'essaies de l'éxécute ça m'affiche " bloc if sans end if .
Sub TableauMaxMin()
Dim T() As Integer
Dim Max As Integer
Dim Min As Integer
Dim i As Byte
Dim n As Byte
n = CInt(InputBox("donner la valeur de n ", " question", "5"))
ordre = CInt(InputBox("donner la valeur maximale ", " question", "100"))
ReDim T(1 To n) As Integer
Max = 0
Min = 32767
For i = 1 To n
T(i) = Int(ordre * Rnd)
Selection.Offset(0, 1).Value = T(i)
If T(i) > Max Then
Max = T(i)
If T(i) < Min Then
Min = T(i)
End If
Call MsgBox(" la valeur maximum est " & Max, " la valeur minimum est " & Min)
End Sub
Si quelqu'un peu m'aider se sera gentil .
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages. |
A voir également:
- Macro qui ne s'éxécute pas
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
2 réponses
Si tu veux tester plusieurs cas pour gérer différemment tes IF, il y a IF ... ELSEIF ... ELSE ... END IF
Le problème avec les if est réglé , si quelqu'un pouvait m'aider a trouver l'erreur se serait gentille
Sub TableauMaxMin()
Dim T() As Integer
Dim Max As Integer
Dim Min As Integer
Dim i As Byte
Dim n As Byte
n = CInt(InputBox("donner la valeur de n ", " question", "5"))
ordre = CInt(InputBox("donner la valeur maximale ", " question", "100"))
ReDim T(1 To n) As Integer
Max = 0
Min = 32767
For i = 1 To n
T(i) = Int(ordre * Rnd)
'Rnd permet d'obtenir un valeur aléatoire en 0 et 1
Selection.Offset(0, 1).Value = T(i)
If T(i) > Max Then
Max = T(i)
ElseIf T(i) < Min Then
Min = T(i)
End If
Next
Call MsgBox(" la valeur maximum est " & Max, " la valeur minimum est " & Min)
End Sub
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages. |
Sub TableauMaxMin() Dim T() As Integer Dim Max As Integer Dim Min As Integer Dim i As Byte Dim n As Byte n = CInt(InputBox("donner la valeur de n ", " question", "5")) ordre = CInt(InputBox("donner la valeur maximale ", " question", "100")) ReDim T(1 To n) As Integer Max = 0 Min = 32767 For i = 1 To n T(i) = Int(ordre * Rnd) 'Rnd permet d'obtenir un valeur aléatoire en 0 et 1 Selection.Offset(0, 1).Value = T(i) If T(i) > Max Then Max = T(i) ElseIf T(i) < Min Then Min = T(i) End If Next Call MsgBox(" la valeur maximum est " & Max, " la valeur minimum est " & Min) End SubExplications disponibles ici : ICI
Merci d'y penser dans tes prochains messages.