Microsoft 365 Calculer la moyenne par une macro

Saloumakh

XLDnaute Nouveau
Bonjour encore une fois,

Je viens vers vous pour demander un coup d main concernant mon programme pour calculer la moyenne des notes des étudiants , il m'affiche incompatibilité de type et je comprend pas pourquoi , svp je suis bloquée et j'arrive pas à avancer avec ces erreurs qui se suivent

Le beug est au niveau de la ligne qui calcule la moyenne.

Merci beaucoup d'avance
 

Pièces jointes

  • prog-vba-1.xlsm
    56.1 KB · Affichages: 19

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour @Saloumakh , @pierrejean , le Forum

La différence, mis à part que le fichier de Pierre Jean a perdu 6k200 !!! c'est dans la macro de feuil3 :calcul_Notes

AVANT : Do While Not IsEmpty(MC.Value)
APRES : Do While MC.Value <> ""

Maintenant te dire pourquoi Not IsEmpty ne voit pas la même chose que =<> "" c'est bizarre en effet...

Bonne journée
@+Thierry
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour @mapomme et le Fil

Oui j'ai vu cette aide avec F1 et pourtant ce code :

VB:
Option Explicit

Sub TestIsEmpty()
Dim TheRows As Byte
Dim MyString As String

    For TheRows = 1 To 10
             If IsEmpty(Cells(TheRows, 1)) = True Then
                 MyString = MyString & Cells(TheRows, 1).Address & " / "
             End If
    Next TheRows
    
MsgBox "cellules vides: " & vbCrLf & MyString
End Sub

Semble bien fonctionner :
1594040433580.png


Bizarre vous avez dit dit bizarre.... Comme c'est bizarre !
@+Thierry
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Ben Pierre Jean pour mon test, j'ai "dragué" (et oui je drague toujours moi !) 1,2 et puis j'ai "tiré" vers le bas...
Donc elles n'étaient pas "vierges" avant ...

Oui oui , vous êtes bien sur un forum Excel !!! LoL :cool:

Bien à toi, à vous
@+Thierry
 

Discussions similaires

Réponses
4
Affichages
256

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo