Formulaire VBA feuille active

Bonjour à toutes et à tous,

Avant toute chose, je précise que je suis ultra novice sur vba et vous remercie pour votre indulgence :)

Actuellement, j'ai un petit problème concernant le code de mon formulaire sur Excel. Celui-ci se trouve au niveau du bouton "valider" dans le Userform "NouveauMédecin".

Le formulaire permet de rentrer de nouveaux contacts qui s'ajoutent à la fin d'un tableau et ce tableau est présent dans plusieurs onglets. Chaque onglet est destiné à être utilisé par une personne.

Ainsi, j'aimerai que chaque personne avec son onglet, puisse exécuter le même code permettant d'ajouter un contact dans leur tableaux. J'ai essayé avec la fonction ActiveSheet.select (au lieu de devoir renseigner le nom de chaque feuilles), sans succès.

Pour ainsi dire, j'aimerai éviter de re-coder le même formulaire pour chaque onglet.

En vous remerciant par avance de l'aide que vous pourrez m'apportez :)

Bonne fin de journée ! :)

Ci-joint, le code lié au bouton "valider" du formulaire permettant d'ajouter un nouveau contact

Private Sub Valider_Click()

' Saisie de la location dans la base de données
    Dim ligne As Integer
    Dim ActiveSheet As Object

    ligne = ActiveSheet.Select.[a2].End(xlDown).Row + 1

    Sheets("ActiveSheet").Range("A" & ligne) = TextBox_Nom
    Sheets("ActiveSheet").Range("B" & ligne) = TextBox_AdresseMail
    Sheets("ActiveSheet").Range("C" & ligne) = ComboBox_Importance
    Sheets("ActiveSheet").Range("D" & ligne) = TextBox_CC
    Sheets("ActiveSheet").Range("E" & ligne) = TextBox_Appétence
    Sheets("ActiveSheet").Range("G" & ligne) = ComboBox_Spécialité
    Sheets("ActiveSheet").Range("H" & ligne) = ComboBox_Région
    Sheets("ActiveSheet").Range("I" & ligne) = TextBox_DéléguésRéférents

    Unload Me

End Sub

Bonjour Boby de loin, bonjour le forum,

ActiveSheet étant un mot clé VBA tu ne dois pas l'utiliser comme variable.

Essaie comme ça :

Private Sub Valider_Click()
Dim ligne As Integer
Dim OA As Worksheet

Set OA = ActiveSheet
ligne = OA.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
OA.Range("A" & ligne) = TextBox_Nom
OA.Range("B" & ligne) = TextBox_AdresseMail
OA.Range("C" & ligne) = ComboBox_Importance
OA.Range("D" & ligne) = TextBox_CC
OA.Range("E" & ligne) = TextBox_Appétence
OA.Range("G" & ligne) = ComboBox_Spécialité
OA.Range("H" & ligne) = ComboBox_Région
OA.Range("I" & ligne) = TextBox_DéléguésRéférents
Unload Me
End Sub

Merci ThauThème pour ta réponse !

Ca marche top

Re,

Tu avais aussi une réponse dans un autre forum. Pense à le remercier aussi...