Discussion :

[djibysadji]

Bonjour
J'ai deux feuilles: BDEnseignants et FormEnseignants. Les informations saisies dans les cellules dédiées de la feuille FormEnseignants sont transférées dans la feuille BDEnseignants en cliquant sur le bouton Sauvegarder. Ce bouton est caché et n'apparait qu'au clic sur le bouton Nouveau. Au clic sur le bouton nouveau, le formulaire se vide ce qui permet l'entrée de nouvelles données dans les plages de cellule du formulaire. C'est le problème. La macro(Ajouter_enseignant) fonctionne tant que je n'ai pas ajouter les plages de cellule L11, L13, L15, L17 et L19.

Code :

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

.Range("F3, I3, F7, H7, J7, F9:H9, J9, F11, H11, J11, F13, H13, J13, F15, H15, J15, F17, H17, J17, F19, H19, J19, F21, H21, J21, F23, H23, J23, F25:G25, I25:J25, L25, F27, H27:J27, L27, F29:G29, I29:J29, L29, F31, F33, F35, H31, H33, H35, J31, J33, J35, K20, L9, L11, L13, L15, L17, L19").ClearContents

Les plages ci-dessous font référence à FormEnseignants. Sauf F3 et I3, elles figurent toutes au dessus de chaque entête correspondante de la feuille BDEnseignants

Ci-dessous le code et une capture. Pour les captures, il y a une partie intermédiaire entre la première partie et la deuxième partie. Les deux dernières colonnes contiennent des formules, c'est pourquoi elles ne sont pas prises en compte.

Sub Teacher_AddNew()
With Form_Enseignants

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 .Range("B3").Value = True
    .Range("F3, I3, F7, H7, J7, F9:H9, J9, F11, H11, J11, F13, H13, J13, F15, H15, J15, F17, H17, J17, F19, H19, J19, F21, H21, J21, F23, H23, J23, F25:G25, I25:J25, L25, F27, H27:J27, L27, F29:G29, I29:J29, L29, F31, F33, F35, H31, H33, H35, J31, J33, J35, K20, L9, L11, L13, L15, L17, L19").ClearContents
    .Shapes("ExistEnsGrp").Visible = msoFalse
    .Shapes("NewEnsGrp").Visible = msoCTrue
    On Error Resume Next
    .Shapes("EnsPic").Delete
    On Error GoTo 0
    '.Range("B23").Value = False
    .Range("B3").Value = False
     EnsTab_GenInfo 'Exécuter la macro EnsTBA_GenInfo
     'EnsTab_ContactClasses
End With
End Sub

Merci par avance