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

 

[soan]

Bonjour @Mathilde22,

as-tu essayé le fichier de mon post #29 ?

pour ta demande, le code VBA est celui-ci :

Sub CalculerNoteArrondie()
  Dim msg$, chn$, note!, noteEntiere%, ecart!, noteArrondie!, k!

  'Saisie de la note initiale
  Do
    msg = "Saisir une note comprise entre 0 et 20." & vbLf & vbLf _
      & "Cette note peut être un nombre fractionnaire ;" & vbLf _
      & "pour la virgule, vous pouvez saisir « , » ou « . »" & vbLf
    chn = InputBox(msg): note = Val(Replace$(chn, ",", "."))
  Loop Until note >= 0 And note <= 20

  'Récupération de la partie entière de la note
  noteEntiere = Int(note)

  'Détermination de la note arrondie
  ecart = note - noteEntiere
  If ecart <> 0 Then If ecart > 0.5 Then k = 1 Else k = 0.5
  noteArrondie = noteEntiere + k
  chn = IIf(noteArrondie = note, "reste", "devient")
  MsgBox "La note était " & note & " ; elle " _
    & chn & " " & noteArrondie
End Sub

note que la boîte de dialogue est plus complète et plus explicite ;
note aussi l'utilisation de la variable k.

j'ai aussi fait des modifs au-dessus :

Option Explicit

Sub CalculerPourcentage()
  Dim codeModule$, nbhPrev%, nbhReal%, pourcentageRealise!
  codeModule = InputBox("Module ?")
  nbhPrev = InputBox("Nombre d'heures prévues")
  nbhReal = InputBox("Nombre d'heures réalisées")
  pourcentageRealise = Round(nbhReal / nbhPrev * 100, 2)
  MsgBox "Pour le module " & codeModule _
    & " le pourcentage de réalisation est de " _
    & pourcentageRealise & " %"
End Sub

Sub PermutMoyenne()
  Dim moyM11!, moyM12!, a!
  moyM11 = 8.5: moyM12 = 12.9
  a = moyM11
  moyM11 = moyM12: moyM12 = a
End Sub

(je pense que ça devrait marcher sur Mac aussi. )

soan

 

[Mathilde22]

Bonjour @soan,

Je ne parviens pas à ouvrir le fichier du post #29
J'ai essayé avec ton code VBA mais j'ai toujours le même message d'erreur.

Mathilde

 

[soan]

quel message d'erreur ?

soan

 

[Mathilde22]

Celui-ci

Mathilde

 

[soan]

pour le fichier du post #29, essaye à tout hasard :
ce lien : https://mon-partage.fr/f/B9q6CtNo/

soan

 

[soan]

@Mathilde22

essaye le lien-fichier de mon post #35

Erreur d'exécution « 6 » : Dépassement de capacité ; c'est noté.

mais sur quelle ligne de code VBA ? (quelle ligne est en jaune ?)

pour quelle variable VBA ? et aussi : qu'as-tu saisi ?

soan

 

[Mathilde22]

J'ai saisi ce programme :

Option Explicit

Sub CalculerPourcentage()
Dim codeModule$, nbhPrev%, nbhReal%, pourcentageRealise!
codeModule = InputBox("Module ?")
nbhPrev = InputBox("Nombre d'heures prévues")
nbhReal = InputBox("Nombre d'heures réalisées")
pourcentageRealise = Round(nbhReal / nbhPrev * 100, 2)
MsgBox "Pour le module " & codeModule _
& " le pourcentage de réalisation est de " _
& pourcentageRealise & " %"
End Sub

L'erreur concerne la ligne pourcentageRealise

Mathilde

 

[soan]

@Mathilde22

ok, mais quelle note as-tu saisie ?

-------------------------------------------------------------------------

à tout hasard, essaye avec :

Dim codeModule$, nbhPrev%, nbhReal%, pourcentageRealise#

j'ai changé que le dernier caractère : « # » au lieu de « ! »

c'est comme : Dim pourcentageRealise As Double (en double précision)

au lieu de : Dim pourcentageRealise As Single (en simple précision)

soan

 

[Mathilde22]

J'ai saisi M11 pour codeModule, 15 pour nbhPrev et 4 pour nbhReal

Mathilde

 

[soan]

Dim codeModule$ : idem que Dim codeModule As String

il ne peut pas y avoir d'erreur pour ça : M11 est bien du texte :
c'est une chaîne de 3 caractères.

--------------------------------------------------------------------

Dim nbhPrev%, nbhReal% : idem que :
Dim nbhPrev As Integer, nbhReal As Integer

15 et 4 sont des nombres entiers qui tiennent sans aucun
problème dans une variable du type entier Integer ; pas
d'erreur possible de c'côté-là non plus.

--------------------------------------------------------------------

ah, j'crois bien qu'j'ai trouvé ; essaye avec :

nbhPrev = Val(InputBox("Nombre d'heures prévues"))

et :

nbhReal = Val(InputBox("Nombre d'heures réalisées"))

pour chaque ligne, n'oublie pas la parenthèse finale !

mais c'qui est bizarre, c'est qu'ça aurait plutôt dû être
une erreur de division par 0, pas un dépassement de
capacité (l'erreur 6).

soan

 

[soan]

Lis d'abord mon post précédent.

pour le calcul lui-même, ça aurait dû faire :

pourcentageRealise = Round(nbhReal / nbhPrev * 100, 2)
= Round(4 / 15 * 100, 2)
= Round(0.2666666666667 * 100, 2)
= Round(26.66666666667, 2)
=26.67

pour la virgule, j'ai mis un point façon VBA anglais ;
c'est donc le nombre : 26,67 (à la française )

Round(..., 2) fait un arrondi à 2 chiffres après la virgule ;
vérifie si c'est pareil avec ta version Mac d'Excel.

dans le calcul ci-dessus, je ne vois pas ce qui pourrait causer
une erreur « 6 » : Dépassement de capacité.

soan

 

[Mathilde22]

Merci @soan !
Cela fonctionne avec Val() !

Mathilde

 

[soan]

ah, bonne nouvelle !

soan

 

[Mathilde22]

Bonjour

le problème est résolu avec val() mais il persiste avec les variables de type date
j’ai essayé avec datevalue() mais cela ne marche pas

avez vous une idée svp ?

 

[Staple1600]

Bonsoir le fil

Mathilde22
Tu peux reposter le code VBA qui te pose problème, stp?
(Qu'on ne soit pas obligé de retourner sur la page 1 - message 1)