Débogage Erase tablo
Bonjour,
J'ai un petit problème avec un code VBA. Lorsque j'active mon tableau bilan "Classement général" il me demande de faire un débogage sur la ligne "Erase tablo"
Je vous mets le code ci dessous:
Option Explicit
Dim f, i, k, tablo, tabloG()
Private Sub Worksheet_Activate()
k = 0
For Each f In Worksheets
If f.Range("A2") = "NOM" And f.Range("B2") = "PRENOM" Then
tablo = f.Range("A3:X" & Application.Max(5, f.Range("B" & Rows.Count).End(xlUp).Row))
For i = 1 To UBound(tablo, 1)
ReDim Preserve tabloG(4, k + 1)
tabloG(0, k) = tablo(i, 1)
tabloG(1, k) = tablo(i, 2)
tabloG(2, k) = f.Name
tabloG(3, k) = tablo(i, 23)
k = k + 1
Next i
End If
Erase tablo
Next f
With Sheets("Classement général")
.Range("A2").CurrentRegion.Offset(2, 0).ClearContents
.Range("A3").Resize(UBound(tabloG, 2), 4) = Application.Transpose(tabloG)
.Range("A2:E" & UBound(tabloG, 2) + 2).Sort key1:=.Range("D3"), order1:=xlDescending, Header:=xlYes
For i = 1 To UBound(tabloG, 2)
If .Range("D" & i + 2) <> .Range("D" & i + 1) Then
.Range("E" & i + 2) = i
Else
.Range("E" & i + 2) = .Range("E" & i + 1)
End If
Next i
End With
End Sub
Je n'ai pas mis le fichier excel car il contient les noms de mes élèves et je dois encore l'anonymiser. Si besoin je pourrai le joindre.
Merci d'avance pour vos réponses
Bonjour et bienvenue sur le forum
Il serait plus facile de tester la macro si on avec le fichier que va avec.
Néanmoins je remarque que si la condition du premier if n'est pas remplie, la variable tablo n'est pas définie et l'instruction en cause crée un bug : on ne peut pas vider une variable qui n'existe pas....
A vérifier.f
Bye !
En effet, l'erreur doit bien être là car quand je me positionne au dessus de la ligne surlignée il m'indique "tablo = Vide".
J'anonymise le tableau et je le mets en pièce jointe.
Et voilà le tableau sur lequel je me base
Tu n'as pas anonymiser ton tableau, tu en as effacer toutes les données.J'anonymise le tableau et je le mets en pièce jointe.
Tu devrais plutôt laisser des données "bidon" avec par exemple des "Nom 1", "Nom 2", "Nom 3"...et nous donner un exemple du résultat attendu par le travail de l a macro.
Bye !
Désolé, j'ai été un peu long pour répondre mais j'ai eu pas mal de boulot ces jours ci.
En pièce jointe le tableau cette fois correctement anonymisé!
En fait ce que j'attends de la macro c'est de renvoyer, dans la feuille "Classement général", un classement de tous les élèves, toutes classes confondues.
Par exemple si on a un classement dans chaque classe qui est le suivant:
CM2 JZ
Nom1 / Prénom1 / 168 points / 1
Nom8 / Prénom8 / 165 points / 2
Nom11 / Prénom11 / 160 points / 3
CM2A RC
Nom2 / Prénom2 / 167 points / 1
Nom1 / Prénom1 / 166 points / 2
Nom9 / Prénom9 / 155 points / 3
CM2B RC
Nom8 / Prénom8 / 163 points / 1
Nom4 / Prénom4 / 160 points / 2
Nom5 / Prénom5 / 156 points / 3
La feuille classement général renvoie les informations suivantes:
Nom1 / Prénom1 / CM2A JZ / 168 points / 1
Nom2 / Prénom2 / CM2A RC / 167 points / 2
Nom1 / Prénom1 / CM2A RC / 166 points / 3
Nom8 / Prénom8 / CM2A JZ / 165 points / 4
Nom8 / Prénom8 / CM2B RC / 163 points / 5
Nom11 / Prénom11 / CM2A JZ / 160 points / 6
Nom4 / Prénom4 / CM2B RC / 160 points / 6
Nom5 / Prénom5 / CM2B RC / 156 points / 7
Nom9 / Prénom9 / CM2A RC / 155 points / 8
Voilà j'espere que ça pourra vous aider!
Merci d'avance
bonjour gmb,
En fait, j'aurai voulu que la feuille "Classement général" rassemble tous les élèves des trois classes comme c'est le cas dans V4 mais qu'en même temps elle les classe en fonction de leur nombre de points (pris dans la colonne Y des trois premières feuilles en indiquant leur rang.
Je t'ai rajouté une feuille dans le classeur pour illustrer ce que je voudrai obtenir.
Bonne soirée
Salut gmb!
Merci pour ton aide! A priori tout fonctionne!
Je fais des tests la semaine prochaine avec mes collègues et les nouvelles notes et je te confirme ou non que tout fonctionne.
Encore merci beaucoup!
Bonne soirée