Tableau excel avec insertion d'une ligne automatique comme le fait ACCESS

ATHE RIOVELI

XLDnaute Occasionnel
Salut à tous,
Je reviens encore auprès de vous les amis afin d'avoir une solution à ce problème qui me hante depuis quelques mois.
Je suis étudiant. J'ai fait un tableau excel qui permette aux enseignants de gérer le calcul des moyennes de leurs élèves. Mon problème actuellement, je souhaite qu'a chaque fois le professeur entre le nom d'un élève et tape Entrer, il puisse avoir insertion automatique d'une nouvelle ligne. C'est ce que fait ACCESS.
s'il vous plait les amis, j'ai grand besoin de votre aide.
[SUP][/SUP]
 

Pièces jointes

  • MGT.xlsx
    39.8 KB · Affichages: 78

job75

XLDnaute Barbatruc
Re : Tableau excel avec insertion d'une ligne automatique comme le fait ACCESS

Bonjour ATHE RIOVELI, le forum,

Juste pour éviter des bugs éventuels.

1) Application.Undo renvoie une erreur si par exemple on essaie de copier les lignes 19:25 sur la ligne 13.

Il est facile de l'éviter en ajoutant On Error Resume Next/On Error GoTo 0.

2) Si les noms MOYENNES1 MOYENNES2 MOYENNES3 MOYENNE_GENERALE n'existent pas :

Code:
'---décale les moyennes---
If IsError([MOYENNES1]) Then
  MsgBox "La plage nommée 'MOYENNES1' n'existe pas !", 48
Else
  If br.Rows(br.Rows.Count).Row + 1 = [MOYENNES1].Row Then
    Application.CutCopyMode = 0 'annule le mode Couper/Copier
    [MOYENNES1].EntireRow.Insert
    [MOYENNES1].EntireRow(0).Clear 'efface la ligne précédente
  End If
End If
Fichiers (2).

Bonne journée
 

Pièces jointes

  • CALCUL MOY noms effacés supprimés(2).xlsm
    79.9 KB · Affichages: 54
  • CALCUL MOY noms effacés non supprimés(2).xlsm
    79.1 KB · Affichages: 43

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
315 124
Messages
2 116 472
Membres
112 753
dernier inscrit
PUARAI29