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

 

[Staple1600]

Exact.
Elles sont de type Variant

Et Excel ne bronche pas, non ?

 

[Mathilde22]

Sans spécifier les dim as cela fonctionne mais la contrainte est de démarrer avec option explicit

 

[mapomme]

Bonjour @Mathilde22, @eriiiic, @Staple1600,

Un essai avec une fonction personnalisée NoteArrondie(ByVal maNote As Single) utilisable en VBA et sur la feuille de calcul.

Notez: le InputBox renvoie un string. Mais VBA, à cause de la déclaration "maNote As Single", convertit le string retour du InputBox en single.

Pour être rigoureux, on ne laisse pas VBA convertir et on le fait explicitement. On peut donc écrire :

MsgBox NoteArrondie(Csng(Application.InputBox("Saisir une note entre 0 et 20, svp :")))

Le code VBA (version non rigoureuse ) :

Sub CalculerNoteArrondie()
   MsgBox NoteArrondie(Application.InputBox("Saisir une note entre 0 et 20, svp :"))
End Sub

Function NoteArrondie(ByVal maNote As Single)
Dim ecart As Single
   ecart = maNote - Int(maNote)
   NoteArrondie = Int(maNote) + IIf(ecart <= 0.00001, 0, IIf(ecart <= 0.5, 0.5, 1))
End Function

 

[laurent950]

Bonsoir

Sub CalculerNoteArrondie()
    Dim note As Single, ecart As Single, noteArrondie As Single
    Dim noteEntiere As Byte (Byte 2 Octet à la place de Single 4 Octet)

'Saisie de la note initiale
         note = InputBox("Saisir une note comprise entre 0 et 20") ' 0 à 20 (Byte suffit = 0 à 255)

'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

 

[Mathilde22]

Merci mais cela complexifie le programme, cela ne correspond plus à l'exercice initial

 

[mapomme]

Merci mais cela complexifie le programme, cela ne correspond plus à l'exercice initial

C'est bien d'indiquer à qui on répond, avant de répondre svp

 

[mapomme]

Bonjour Laurent

(Byte 2 Octet à la place de Single 4 Octet)

Avec nos machines actuelles (même celles vieilles de plus de 10 ans - il se reconnaitra le gars ) gagner 2 octets de-ci de-là ne change absolument rien. Avec les premiers PC, on y faisait gaffe, maintenant on peut passer au type long sans dommage.

 

[laurent950]

Bonsoir mapomme,
J'ai compris que c'est pour un exercice donc c'est possible d'optimiser pour la compréhension.
D'ailleurs le code fonctionne parfaitement dans son fichier original en Poste #1.

 

[mapomme]

Bonsoir @laurent950 ,

J'ai compris que c'est pour un exercice donc c'est possible d'optimiser pour la compréhension.

Tu as raison . J'avais zappé le fait que c'était un "exo".

D'ailleurs le code fonctionne parfaitement dans son fichier original en Poste #1.

J'avais remarqué aussi. Mais je suis sur PC pas sur Mac donc je n'ai rien pu en déduire de vérifiable sous son OS.

 

[Staple1600]

Re, Bonsoir mapomme , laurent950

Sans spécifier les dim as cela fonctionne mais la contrainte est de démarrer avec option explicit

Bah cela fonctionne avec Option Explicit, non ?

Option Explicit
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

 

[mapomme]

@Staple1600,

Si tu regardes mon code, je n'ai pas comparé l'écart à 0 mais à 0.00001. Je me suis fait plusieurs fois piégé par des calculs sur des non-entiers devant donner un résultat nul et qui en fait donnaient un résultat certes très petit mais non nul.

D'ailleurs en toutes rigueur, on écrirait Abs(ecart)<0.00001

 

[Staple1600]

Re

mapomme
J'ai regardé ton string (euh pardon) ton code.
Mais le message#25 était destinée à Mathilde

 

[mapomme]

J'ai regardé ton string (euh pardon) ton code.

Allez à la revoyeur !

 

[soan]

Bonjour @Mathilde22, le fil,

Je te retourne ton fichier modifié.

Fais d'abord ces 4 essais :

14,25 ➯ 14,5
14,75 ➯ 15

14 ➯ 14
14,5 ➯ 14,5

Fais encore d'autres essais.

Fais Alt F11 pour voir le code VBA, puis pour
revenir sur Excel.

Si besoin, tu peux demander une adaptation.
Merci de me donner ton avis.

soan

 

[Mathilde22]

Bonjour
merci à tous mais cela vient du fait que je suis sur Mac car sur Windows mon programme fonctionne
bonne journée