XL pour MAC Déboggage VBA Mac

[Mathilde22]

Bonjour,

Je bloque lors de l'exécution de la macro 1 dans le fichier joint
J'ai le message d'erreur suivant : Erreur d'exécution "6" : dépassement de capacité

Merci d'avance

 

[eriiic]

Bonjour,

tu as bien fait de spécifier Mac dans ton titre, mais là je ne pense pas qu'il soit en cause.
Tu aurais pu préciser quoi faire pour avoir l'erreur... non constatée.

Commence remplacer tes As Integer par des As Long qui vont beaucoup plus loin, et si besoin tes As Single par des As Double.
eric

 

[Mathilde22]

J'ai suivi les instructions mais ca ne change rien

 

[Mathilde22]

Je lance la macro, je saisie la note et j'obtiens cette fenêtre

 

[Mathilde22]

Puis en cliquant sur débogguer , la ligne du programme est surlignée en jaune alors qu'elle

 

[Staple1600]

Bonsoir

Et avec Dim note As String (au lieu de Dim note As Single)
Il se passe quoi?

 

[Mathilde22]

Bonsoir

Et avec Dim note As String (au lieu de Dim note As Single)
Il se passe quoi?

Non, cela n'est pas bon car note est bien une donnée chiffrée et non de type caractère

 

[Staple1600]

Re

Tu as fait le test au moins...
Le Dim As String, c'est à cause de l'InputBox

Méthode Application.InputBox (Excel)

Référence de langage VBA pour Office

docs.microsoft.com

 

[Mathilde22]

Voici le résultat avec dim note as string

 

[Staple1600]

Re

Fais ce test, et tu verras que je ne dis pas que des billevesées.

Sub test()
Dim note As Single
note = InputBox("test", "test", Date)
MsgBox note
End Sub
Sub test_OK()
Dim note As String
note = InputBox("test", "test", Date)
MsgBox note
End Sub

 

[Staple1600]

CQFD

Sub test_OK()
Dim note As String
note = InputBox("test", "test", 13.5)
noteEntiere = Int(note * 1)
MsgBox noteEntiere
End Sub

 

[Mathilde22]

Je comprends bien que ça marche mais j'ai un programme à suivre pour le cours

 

[Staple1600]

Re

1) Rien n'indique dans le premier message qu'il s'agit d'un cours
2) J'ai été un peu vite en besogne avec mon String
car...

Sub test_OK_Bis()
Dim note
note = Int(InputBox("test", "test", 13.5) * 1)
MsgBox note
End Sub
Sub test_OK_ter()
MsgBox Int(InputBox("test", "test", 13.5) * 1)
End Sub

 

[Staple1600]

Re

Je te laisse chercher (puisqu'il s'agit d'apprendre) comment sont ici déclarées les variables
(et j'ajoute en bonus à autre type de syntaxe)

Sub CalculerNoteArrondie()
Dim note, ecart, noteArrondie, noteEntiere
'Saisie de la note initiale
note = InputBox("Saisir une note comprise entre 0 et 20")
'Récupération de la partie entire de la note
noteEntiere = Int(note)
'DŽétermination de la note arrondie
        ecart = note - noteEntiere
        If ecart = 0 Then
            noteArrondie = note
        Else
            If ecart > 0.5 Then
                noteArrondie = noteEntiere + 1
            Else
                noteArrondie = noteEntiere + 0.5
            End If
        End If
        MsgBox "La note était = ˆ " & note & " elle devient " & noteArrondie
End Sub
Sub CalculerNoteArrondie_bis()
Dim note, ecart, noteArrondie, noteEntiere
'Saisie de la note initiale
note = InputBox("Saisir une note comprise entre 0 et 20")
'Récupération de la partie entire de la note
noteEntiere = Int(note)
'Détermination de la note arrondie
ecart = note - noteEntiere
    Select Case ecart
    Case 0
    noteArrondie = note
    Case Is > 0.5
    noteArrondie = noteEntiere + 1
    Case Else
    noteArrondie = noteEntiere + 0.5
End Select
MsgBox "La note était = ˆ " & note & " elle devient " & noteArrondie
End Sub

 

[Mathilde22]

dans ce cas toutes les variables sont de type variant ?