Déclarer une feuille dans une procédure.
Résolu
jen_peplu
Messages postés
33
Date d'inscription
Statut
Membre
Dernière intervention
-
jen_peplu Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
jen_peplu Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Comment dois-je m'y prendre pour que sheets("AeC") reçoive sheets ("Année_en_cours") ?
Je mets une infime partie du code dans lequel je souhaiterais pouvoir changer ("Année_en_cours") et que ça l'affecte à toute la procédure. Tel que je l'ai écrit, j'ai "Erreur d'exécution 9". L'indice n'appartient pas à la sélection., à hauteur de Sheets("AeC") =.......
Si je mets Sheets("Année_en_cours") en lieu est place de Sheets("AeC") la procédure fonctionne correctement.
Public Sub ValiderSaisie()
Dim Valeur As String
Dim AeC As Worksheet
Sheets("AeC") = Sheets("Année_en_cours")
Valeur = Sheets("AeC").Cells(65536, 1).End(xlUp).Row + 1
Sheets("AeC").Cells(Valeur, "A").Value = UserForm1.TbxDate.Value
Sheets("AeC").Cells(Valeur, "B").Value = UserForm1.TbxDepartement.Value
Sheets("AeC").Cells(Valeur, "C").Value = UserForm1.TbxN°Fab.Value
Sheets("AeC").Cells(Valeur, "D").Value = UserForm1.TbxN°Chantier.Value
Sheets("AeC").Cells(Valeur, "E").Value = UserForm1.CboClient.Value
End Sub
Cordialement
Jen_Peplu
Comment dois-je m'y prendre pour que sheets("AeC") reçoive sheets ("Année_en_cours") ?
Je mets une infime partie du code dans lequel je souhaiterais pouvoir changer ("Année_en_cours") et que ça l'affecte à toute la procédure. Tel que je l'ai écrit, j'ai "Erreur d'exécution 9". L'indice n'appartient pas à la sélection., à hauteur de Sheets("AeC") =.......
Si je mets Sheets("Année_en_cours") en lieu est place de Sheets("AeC") la procédure fonctionne correctement.
Public Sub ValiderSaisie()
Dim Valeur As String
Dim AeC As Worksheet
Sheets("AeC") = Sheets("Année_en_cours")
Valeur = Sheets("AeC").Cells(65536, 1).End(xlUp).Row + 1
Sheets("AeC").Cells(Valeur, "A").Value = UserForm1.TbxDate.Value
Sheets("AeC").Cells(Valeur, "B").Value = UserForm1.TbxDepartement.Value
Sheets("AeC").Cells(Valeur, "C").Value = UserForm1.TbxN°Fab.Value
Sheets("AeC").Cells(Valeur, "D").Value = UserForm1.TbxN°Chantier.Value
Sheets("AeC").Cells(Valeur, "E").Value = UserForm1.CboClient.Value
End Sub
Cordialement
Jen_Peplu
1 réponse
-
Bonjour,
J'ai solutionné mon problème et j'en suis arrivé à ça :
Public Sub ValiderSaisie()
Dim Valeur As String
Dim AeC As Worksheet
Set AeC = Sheets("Année_en_cours")
Valeur = AeC.Cells(65536, 1).End(xlUp).Row + 1
AeC.Cells(Valeur, "A").Value = UserForm1.TbxDate.Value
AeC.Cells(Valeur, "B").Value = UserForm1.TbxDepartement.Value
AeC.Cells(Valeur, "C").Value = UserForm1.TbxN°Fab.Value
AeC.Cells(Valeur, "D").Value = UserForm1.TbxN°Chantier.Value
AeC.Cells(Valeur, "E").Value = UserForm1.CboClient.Value
End Sub
Bonne journée
