Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…