Private O1 As Worksheet 'déclare la variable O1 (Onglet 1)
Private O3 As Worksheet 'déclare la variable O1 (Onglet 3)
Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Set O1 = Sheets("Feuil1") 'définit l'onglet O1
Set O3 = Sheets("Feuil3") 'définit l'onglet O3
O1.Select 'sélectionne l'onglet O3
End Sub
Private Sub Vérification_Click() 'bouton "Vérification"
Dim rPlage As Range, rCell As Range
O3.Range("WW1").Value = Me.TextBox1.Value
Set rPlage = O1.Range("C:C")
Set rCell = rPlage.Find(Me.TextBox1.Value, , LookIn:=xlValues, lookat:=xlWhole)
If rCell Is Nothing Then
MsgBox "Ce nom n'existe pas."
Unload UserForm3
End If
End Sub
Private Sub CommandButton1_Click() 'bouton "Valider"
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
DL = O1.cell(Application.Rows.Count, 3).End(xlUp).Offset(1, 0).Select 'définit la dernière ligne éditée de la colonne 3 (=C)
For Each CTRL In Me.Controls 'boucle sur tous les contrôles CTRl de l'UserForm
If TypeOf CTRL Is MSForms.TextBox Then 'condition : si les contrôle est une TextBox
O1.Cells(LI, CInt(CTRL.Tag)).Value = CTRL.Value 'renvoie la valeur du contrôle dans la ligne = DL, colonne = Valeur de sa propriété [Tag] convertie en entier de l'onglet O1
End If 'fin de la condition
Next CTRL 'prochaine contrôle de la boucle
End Sub