Bonjour, Voila j'ai crée un bouton permettant de remplir les informations sur des salariés... problème : qd j'en ai fini avec un, pour remplir les informations d'un autre, cela efface celui du premier.. j'aimerai donc trouver une boucle permettant de changer de ligne...
voila donc mon travail :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Sub saisiedesidentifiantdusalarie()
 
Dim reponse As String
Dim nomsalarie As String
Dim prenomsalarie As String
Dim datenais As Date
Dim lieunais As String
Dim N°adresse As Long
Dim rueadresse As String
Dim villeadresse As String
Dim codepostal As Long
Dim numtelephone As Long
Dim coordbanque As String
Dim dombanque As String
Dim poste As String
Dim typecont As String
Dim dateentre As Date
Dim datesortie As Date
Dim tauxsalaire As Single
 
 
 
reponse = InputBox("Veuillez entrer le mot de passe", "Autorisation")
If reponse <> "123456789" Then
 
reponse = MsgBox("Mot de passe incorrect!", 0 + 48, "Erreur")
 
Else
L = 3
C = 2
nomsalarie = InputBox("Veuillez saisir le nom du salarié(e)", "Saisir le nom")
Sheets("Feuille salarié").Cells(L, C) = nomsalarie
prenomsalarie = InputBox("Veuillez saisir le prénom du salarié(e)", "Saisir le prénom")
Sheets("Feuille salarié").Cells(L, C + 1) = prenomsalarie
datenais = InputBox("Veuillez saisir la date de naissance du salarié(e)", "Saisir le date de naissance", "jj/mm/aaaa")
Sheets("Feuille salarié").Cells(L, C + 2) = datenais
lieunais = InputBox("Veuillez saisir le lieux de naissance du salarié(e)", "Saisir le lieu de naissance")
Sheets("Feuille salarié").Cells(L, C + 3) = lieunais
N°adresse = InputBox("Veuillez saisir le numéro de l'adresse du salarié(e)", "Saisir l'adresse")
Sheets("Feuille salarié").Cells(L, C + 4) = N°adresse
rueadresse = InputBox("Veuillez saisir la rue de l'adresse du salarié(e)", "Saisir l'adresse")
Sheets("Feuille salarié").Cells(L, C + 5) = N°adresse
villeadresse = InputBox("Veuillez saisir ville de l'adresse du salarié(e)", "Saisir l'adresse")
Sheets("Feuille salarié").Cells(L, C + 6) = N°adresse
codepostal = InputBox("Veuillez saisir le code poste de l'adresse salarié(e)", "Saisir l'adresse")
Sheets("Feuille salarié").Cells(L, C + 7) = N°adresse
numtelephone = InputBox("Veuillez saisir le numéro de téléphone du salarié(e)", "Saisir le téléphone", "xxxxxxxxxx")
Sheets("Feuille salarié").Cells(L, C + 8) = numtelephone
coordbanque = InputBox("Veuillez saisir les coordonnées bancaires du salairé(e)", "Saisir les coordonnées")
Sheets("Feuille salarié").Cells(L, C + 9) = coordbanque
dombanque = InputBox("Veuillez saisir le nom de la banque du salairé(e)", "Saisir la banque")
Sheets("Feuille salarié").Cells(L, C + 10) = dombanque
poste = InputBox("Veuillez saisir le poste du salairé(e)", "Saisir le poste")
Sheets("Feuille salarié").Cells(L, C + 11) = poste
typecont = InputBox("Veuillez saisir le type de contrat du salairé(e)", "Saisir le contrat")
Sheets("Feuille salarié").Cells(L, C + 12) = typecont
dateentre = InputBox("Veuillez saisir la date d'entrée du salairé(e)", "Saisir la date d'entrée", "jj/mm/aaaa")
Sheets("Feuille salarié").Cells(L, C + 13) = dateentre
datesortie = InputBox("Veuillez saisir la date de sortie du salairé(e)", "Saisir la date de sortie", "jj/mm/aaaa")
Sheets("Feuille salarié").Cells(L, C + 14) = datesortie
tauxsalaire = InputBox("Veuillez saisir le taux horaire  du salairé(e)", "Saisir le taux")
Sheets("Feuille salarié").Cells(L, C + 12) = tauxsalaire
 
End If
 
End Sub

Merci d'avance