Méthode range de l'objet global a échoué Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
ahmed56
Jeune membre
Jeune membre
Messages : 10
Appréciation reçue : 1
Inscrit le : 6 avril 2019
Version d'Excel : 2016 FR

Message par ahmed56 » 6 avril 2019, 22:33

Bonjour,
je suis entrain de programmer sur vba en excel
je souhaite attribuer une mention pour chaque moyenne d'un étudiant, mais à chaque fois je reçois l'erreur méthode range de l'objet a échoué
voici le code que j'ai écris :
Sub mention_moyenne()
Dim i As Byte
Dim Plage_moyenne
Dim cellule As Range
Dim feuille As Worksheet
For Each feuille In Worksheets
feuille.Activate
Set Plage_moyenne = Range(Range("h3"), Range("b3").End(xlDown).Offset(0, 6))
Plage_moyenne.Formula = "=average(B3,D3,F3)"
For i = 2 To 8 Step 2
For Each cellule In Range(Range(Cells(3, i)), Range(Cells(3, i)).End(xlDown)).Cells
If cellule.Value = 20 Then
cellule.Offset(0, 1) = "excellent"
ElseIf cellule.Value < 20 And cellule.Value >= 15 Then
cellule.Offset(0, 1).Value = "très bien"
ElseIf cellule.Value < 15 And cellule.Value >= 12 Then
cellule.Offset(0, 1).Value = "bien"
ElseIf cellule.Value < 12 And cellule.Value >= 10 Then
cellule.Offset(0, 1).Value = "passable"
End If
Next cellule
Next i
Next feuille
End Sub
je reçois l'erreur cette ligne :
For Each cellule In Range(Range(Cells(3, i)), Range(Cells(3, i)).End(xlDown)).Cells


et voici la base dans un fichier excel :
https://www.cjoint.com/c/IDgs5fZXBak

je vous remercie infiniment pour votre temps
m
m3ellem1
Membre impliqué
Membre impliqué
Messages : 1'806
Appréciations reçues : 162
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 6 avril 2019, 23:09

Slt ahmed et bienvenue sur le forum,


essaie comme ca
For Each cellule In Range(Cells(3, i), Cells(3, i).End(xlDown)).Cells
1 membre du forum aime ce message.
a
ahmed56
Jeune membre
Jeune membre
Messages : 10
Appréciation reçue : 1
Inscrit le : 6 avril 2019
Version d'Excel : 2016 FR

Message par ahmed56 » 6 avril 2019, 23:13

je vous remercie infiniment ca a marché !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message