Code Excel VBA 2

Mbess -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

Quel est le code en Excel VBA qui me permettra de gérer les élèves de ma classe?
1) Dans UserForm1, j'ai mis TextBox1,TextBox2,TextBox3,TextBox4,TextBox5.
Le contenu de TextBox1 sera dans la cellule A1
Le contenu de TextBox2 sera dans la cellule B1
Le contenu de TextBox3 sera dans la cellule C1
Le contenu de TextBox4 sera dans la cellule D1
Le contenu de TextBox5 sera dans la cellule E1
Cette 1ere saisie concerne le 1er élèves
la saisie du 2e élèves sera donc:
Le contenu de TextBox1 sera dans la cellule A2
Le contenu de TextBox2 sera dans la cellule B2
Le contenu de TextBox3 sera dans la cellule C2
Le contenu de TextBox4 sera dans la cellule D2
Le contenu de TextBox5 sera dans la cellule E2
et ainsi de suite
2) Je voudrais après avoir saisi toutes les données faire revenir les données de nimporte quel élève dans les TextBox en saisissant la donnée concernant n'importe quel élèves dans TextBox1
3) Je voudrais pouvoir une fois les données réapparues faire des modifications
MerciLire la suiteLire la suite




A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,
Occupons nous d'abord de la partie "enregistrement", on verra la recherche plus tard.
1- ajouter un bouton "enregistrer" sur votre userform
2- Ajouter ce code à votre bouton : 
'Cette procédure se déclenche lors d'un clic gauche sur le bouton de commande 1 
Private Sub CommandButton1_Click() 
'Déclaration des variables 
Dim i As Byte 
Dim Lign As Long 

'les données sont enregistrées dans la feuille nommée "Base" (Nom à adapter) 
With Sheets("Base") 
'on détermine dans qu'elle ligne energistrer les données 
Lign = .Cells(65536, 1).End(xlUp).Offset(1, 0).Row 
    'on enregistre dans la feuille et efface le contenu des textbox au fur et à mesure 
    For i = 1 To 5 
        .Cells(Lign, i).Value = Me.Controls("TextBox" & i) 
        Me.Controls("TextBox" & i) = "" 
    Next i 
End With 
End Sub

Un classeur exemple ci joint

Cordialement,
Franck P
0