Microsoft 365 Calculer la moyenne par une macro

pierrejean

XLDnaute Barbatruc

• 6 Juillet 2020

• #2

Bonjour Saloumakh

 

Pièces jointes

• prog-vba-1.xlsm

  49.9 KB · Affichages: 6

Vote positif 0 Vote négatif

S

Saloumakh

XLDnaute Nouveau

• 6 Juillet 2020

• #3

Bonjour Mr.Pierrejean

J'ai ouvert le fichier mais rien n'est changé de celui d'avant 😕

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 6 Juillet 2020

• #4

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Juillet 2020

• #5

Bonjour à tous,

Si on consulte l'aide de VBA, on nous dit :

La fonction IsEmpty ne renvoie des informations pertinentes que pour les variables de type Lien supprimé.

Cliquez pour agrandir...

MC n'est pas de type variant.

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 6 Juillet 2020

• #6

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 :


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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Juillet 2020

• #7

Re
Pour ma part il me semble que isempty n'est a true que dans le cas ou la cellule n'a jamais été remplie

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 6 Juillet 2020

• #8

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 😎

Bien à toi, à vous
@+Thierry

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Juillet 2020

• #9

_Thierry à dit:

Bizarre vous avez dit dit bizarre.... Comme c'est bizarre !

Cliquez pour agrandir...

Dans le fichier initial, la cellule D7 n'est pas vide. Elle contient la fameuse "chaine vide".
Le seul moyen de s'en affranchir est de comparer à "" et ne pas utiliser IsEmpty()

Voir une très vieille discussion : Parler dans le vide

 

Vote positif 0 Vote négatif

Jean-Eric

XLDnaute Occasionnel

• 6 Juillet 2020

• #10

Bonjour à tous,
Pour info, ce sujet a été posté sur un autre forum.
Ce sujet est noté résolu (12:50)
Cdlt.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Juillet 2020

• #11

Re @pierrejean 😉

pierrejean à dit:

Pour ma part il me semble que isempty n'est a true que dans le cas ou la cellule n'a jamais été remplie

Cliquez pour agrandir...

Si on fait Suppr sur la cellule D7, alors isEmpty renverra bien True.

 

Vote positif 0 Vote négatif