Private Sub bt_add_Click()
Dim P As Object 'déclare la variable P (onglet Parametre)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim I As Integer 'déclare la variable I (Incrément)
Dim ws As Workbook
If Environ("UserName") <> Me.TextBox1.Value Then
MsgBox "Vous ne pouvez modifier que les informations de votre code user"
Exit Sub
End If
Set ws = Workbooks("W:\GESTION_VISA_CHEQUE\BASE_VISA.xlsx")
Set P = ws.Sheets("BASE_DE_DONNEES") 'définit l'onglet P
DL = P.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 2 (=B) de l'onglet P
Set PL = P.Range("B6:B" & DL) 'définit la plage PL
'verification des identifiants
If Application.WorksheetFunction.CountIf(PL, TextBox1.Value) > 0 Then
MsgBox ("Ce user est déjà enregistré")
Exit Sub
End If
Application.DisplayAlerts = False
Workbooks.Open "W:\GESTION_VISA_CHEQUE\BASE_VISA.xlsx"
With Sheets("BASE_DE_DONNEES")
Application.DisplayAlerts = True
For I = 1 To 6 'boucle sur les 6 textboxes
'envoie la valeur de la textbox dans la cellule ligne DL+1, colonne I+1 de l'onglet P
P.Cells(DL + 1, I + 1).Value = Me.Controls("TextBox" & I).Value
Me.Controls("TextBox" & I).Value = ""
Next I
End With
End Sub