Discussion :

[yvanchala]

Bonjour,

nous sommes deux étudiantes et nous avons un projet VBA à rendre pour ce dimanche. Malheureusement, nos connaissances en la matière sont plus que limitées, les cours étant pas très constructifs et le contenu mal enseigné.
Nous sommes désolées de vous déranger pour ce genre de problème, mais nous savons vraiment pas comment créer certaines commandes.
Pour commencer, pour la première question on est bloqué - il s'agit de calculer le nombre d'étudiants en VBA (pas avec les fonctions excel) sur une liste que l'on nous a fournie et qui se trouve sur une autre feuille excel. Le problème est que en cas de changement de nombre d'étudiants le macro doit toujours fonctionner, or, on ne sais pas comment inclure cette option...

Nous vous remercions d'avance pour votre aide.

[Ltspitfire]

Bonjour,

Utilise cette fonction pour trouver la derniere ligne non vide:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerLigne = Range("A" & Rows.Count).End(xlUp).Row

Je suppose qu'il y a un étudiant par ligne donc : Nombre de ligne = Nombre d'étudiants

Cordialement,
Ltspitfire

[yvanchala]

Merci de votre réponse;
on a utilisé ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerLigne = Range("A" & Rows.Count).End(xlUp).Row

mais ça a par l'air de marcher... il prend en compte toutes les cellules vides également. Une question bête: est ce qu'on doit copier uniquement ce code ou faut-il ajouter quelque chose?
vraiment désolée pour cette ignorance...

[Ltspitfire]

Re,

Ca ne risque pas de marcher avec seulement ce code, il est à adapter.
Il retourne uniquement le nombre de ligne d'une colonne jusqu'à la dernière cellule non vide.

Avec plus d'info ou un exemple je pourrais être plus précis.

Cordialement,
Ltspitfire

[yvanchala]

d'accord. Dans ce cas je peux poster le sujet du projet ici?

[Ltspitfire]

Re,

Si tu le souhaite et aussi les pistes que tu as déjà exploré, le code que tu as même incomplet etc..

Cordialement,
Ltspitfire

[casefayere]

Bonjour,

voir exemple joint et voir code utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
'les étudiants en col A, un titre en A1
'résultat en B1
If Target.Column = 1 Then
 Range("B1") = Range("A" & Rows.Count).End(xlUp)(0, 1).Row
End If
End Sub

[casefayere]

mais ça a par l'air de marcher... il prend en compte toutes les cellules vides également. Une question bête: est ce qu'on doit copier uniquement ce code ou faut-il ajouter quelque chose?
vraiment désolée pour cette ignorance...

as-tu vu mon fichier et le code ?

[AnaEblen]

(Je suis la deuxieme étudiante en galère ^^)

On essaie, le probleme c'est qu'en copiant ce code dans un module sur le VB, on ne sait plus comment l'exécuter pour vérifier que ca marche. Quand on ouvre les macro il n'affiche rien.

[Ltspitfire]

Re,

Son code fonctionne sans avoir à utiliser de macro.
Une fois le code ajouté, sélectionnez la première colonne et vous verrez apparaitre dans la cellule B1 le résultat.

Cordialement,
Ltspitfire

[AnaEblen]

En effet, je vois que ca marche sur le fichier que vous m'avez envoyé, comment préciser sur quelle feuille et dans quelle cellule afficher le résultat ?

[yvanchala]

voila, donc on s'est rendu compte que notre problème c'est que les données ne sont pas sur une feuille mais sur plusieures (une feuille avec la liste d'étudiants; une autre avec les notes etc), on crée une nouvelle feuille de calcul à partir de ces éléments. On doit donc indiquer dans le nouveau code la référence de la première feuille avec la liste des étudiants...

[yvanchala]

as-tu vu mon fichier et le code ?

oui, mais malheureusement je n'arrive pas à executer la macro... je me rends compte que je sais pas même pas comment commencer

[yvanchala]

voici le sujet du projet, je suis encore une fois désolée; mais on y comprend pas grand chose... je sais qu'en général les gens viennent demander de l'aide mais pas à ce point... si vous trouvez qu'on abuse un peu, n'hésitez pas, je supprimerai le topic
merci encore une fois de vos réponses

[casefayere]

Une fois le code ajouté, sélectionnez la première colonne et vous verrez apparaitre dans la cellule B1 le résultat.

il suffit d'ajouter un nom pour voir apparaitre le résultat mais on peut ajouter ce même code à l'ouverture de la feuille.

un fichier "Pdf" ne me sert à rien, je ne peux pas tout reprendre et faire le fichier moi-même

...nous avons un projet VBA à rendre pour ce dimanche...

Pas de ma faute, il va falloir vous investir (je dis ça amicalement)

[AnaEblen]

Bien sur nous n'avions pas du tout l'intention de vous demander quoi que ce soit de ce type. C'etait juste pour "placer le contexte". On essaie d'avancer encore, merci pour votre aide on va bien finir par y arriver !

[Igloobel]

Bonjour,

Juste pour info il existe une instruction qui s'appelle : Stop qui arrete le code directemebt pour passé en mode déboggage. L'avantage que je trouve par rapport au point d'arret c'est que l'instruction reste quand ferme le projet.

personellement je la trouve pratique pour debogger une macro

je vous souhaite une bonne réussite dans votre projet

A+