Création d'une interface

J'ai jeté un coup d'oeil sur le premier jet..
Ca commence à prendre forme, On va y aller par étapes

La première Etape est que ton tableau qui va recevoir els information soit nickel. Il faut être certainsque les colonne ne vont pas changer par la suite.

Deuxième étape : assures toi que le Nom des TextBox porte le même N° que la colonne où il vont être copié. Je m'explique Le TextBox nommé "TextBox1" doit être le champ Imatriculation, Le TexBox2 doit être le NOM, Le Texbox3 Le prénom, Etc...

3ème Etape : Alimentation dynamique de la ComboBox :

Avant de commencer efface ce qu'il y a dans le RowSource du ComboBox1

Copies le code suivant dans ton formulaire :

Sub UserForm_Initialize()
    'Calcule le nombre de ligne que comporte le tableau en Feuille 1 par rapport au contenu de la colonne A
    Nb_Ligne = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    
    'Alimente Le ComboBox
    For i = 2 To Nb_Ligne
        ComboBox1.AddItem Sheets(1).Cells(i, 1)
    Next i
End Sub

Ce code s'active à l'initialisation du Userform
Tu remarqueras qu'avec ce code tu n'auras plus de blanc dans ta liste déroulante.

Une fois ces éléments rectifié renvoie la nouvelle version du fichier.

Bonjour,

Ok , je préfère y aller doucement pour que t'assimile la fonction de chaque code.

Il y a en core des blanc dans le ComboBox à cause de la dernière ligne de ton Tableau mais je pense qu'une fois que t'auras rentré les données définitive la colonne A n'aurras plus de blanc.

On va pouvoir attaquer le code du bouton VALIDER

Quand tu double clik dessus ça te renvoie à ton code qui dit :

Private Sub CommandButton1_Click()
Range("A2") = TextBox22
Range("B2") = TextBox1
Range("C2") = TextBox2
Etc...
End Sub

Petite parenthèse :
Le Sub CommandButton1_Click() signifie que la macro se déclenche lorsque tu click sur le bouton nommé CommandButton1 (tu peux voir ce nom dans la fenêtre Propriétés dans la rubrique Name. Par défaut Name et Caption sont identique mais Name est le nom de l'objet alors que Caption et le Titre qui apparait dessus.

Bomme tu peux le constater dans ton code la cellule A2 recoit les donnés de la TextBox22, la cellule B2 celle de la TextBox1, etc..
Commence par renommer tes TextBox dans le champ name (par Exemple TB1, TB2, TB3) de tel sorte que la cellule A2 recoive les données de TB1, B2 de TB2, C2 de TB3, etc...

ça va avoir son importance par la suite pour trnasférer les donnée sur la Feuil1 mais aussi pour récupérer les données lorque tu sélectionneras un numéro. Celà va permettre aussi d'alléger le code.

Une foisd les noms changé remplace la macro Private Sub CommandButton1_Click() par celle ci :

Private Sub CommandButton1_Click()
'Calcul la position de la première ligne disponible dans le Tableau en feuille 1
Dernière_Ligne = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'calcule le nombre de colonne qui compose ton tableau en fonction des titres en ligne 1 de la feuille 1
Nb_Colonne = Sheets("Feuil1").Cells(1, Columns.Count).End(xlUp).Offset(1, 0).Column

'Transfert les données du Userform1 vers la feuille 1 dans la dernière ligne de ton tableau
For i = 1 To Nb_Colonne
Sheets("Feuil1").Cells(Dernière_Ligne, i) = UserForm1.Controls("TB" & i)
Next i
End Sub

Comme tu peux le constater le code est beaucoup plus petit

Je te laisse actualiser ton fichier et vois la suite après

Si t'as des questions n'hésites pas.

Bonjour, j'ai remarqué une petite errreur dans mon codeà ce niveau :

Nb_Colonne = Sheets("Feuil1").Cells(1, Columns.Count).End(xltoLeft).Offset(1, 0).Column

Remplace la partie en gras