La méthode range de l'objet à échoué

Version imprimable

2 pièce(s) jointe(s)

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:

.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:

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

30/07/2024, 23h05
Nain porte koi

Hello,

votre chaine "F3, I3, etc, L19" est trop longue. Elle arrive à 253 caractères en s'arrêtant à "L9", et en ajoutant "L11" vous arrivez à 258.
Si vous y tenez supprimez les espaces et là ça ne génère plus d'erreur

Perso je scinderait la commande en plusieurs partie pour qu'elle reste lisible
31/07/2024, 10h03
deedolith

Salut,

Code:

.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

Loi de l'emmerdement maximum (AKA Loi de Murphy),

Ecrire une SuperInstructionDeLaMortQuiTueLaVie, ca n'apporte que des emmerdes justement (difficile à lire, difficile à maintenir).
Autant la scinder en plusieurs instructions.
et tant qu'a faire, déporter ces dernières dans une fonction à part, histoire de ne pas plomber la fonction appelante.
06/08/2024, 04h17
djibysadji

RE

Citation:

Envoyé par deedolith

Salut,

Code:

.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

Loi de l'emmerdement maximum (AKA Loi de Murphy),

Ecrire une SuperInstructionDeLaMortQuiTueLaVie, ca n'apporte que des emmerdes justement (difficile à lire, difficile à maintenir).
Autant la scinder en plusieurs instructions.
et tant qu'a faire, déporter ces dernières dans une fonction à part, histoire de ne pas plomber la fonction appelante.

Super! Vous avez raison, il fallait scinder
Merci beaucoup.