Userform excel : modifier les données sur la bonne feuille Résolu/Fermé

Question

Bonjour,

J'ai réussi tant bien que mal à programmer un userform sur Excel.
J'ai mis un bouton sur une feuille pour lancer le formulaire.
Jusque là tout va bien mais les choses se compliquent (forcément !) puisque mon bouton est sur une feuille et mon tableau de données sur une 2ème feuille.
J'ai programmé sur mon userform un bouton modifier et un bouton ajouter mais lorsque je clique dessus, les modifications et/ou ajouts se font sur la feuille 1 (ou il y a le bouton) et non sur la feuille 2 (ou il y a le tableau de données).

Comment faire pour que les modifs et ajouts se fassent sur la bonne feuille ?

Voici mes codes : 
'Pour le bouton AjouterPrivate Sub CommandButton1_Click()Dim L As IntegerIf MsgBox("Confirmez-vous l'insertion ?", vbYesNo, "Confirmation d'insertion") = vbYes ThenL = Sheets("Habilitation Agent").Range("a65536").End(xlUp).Row + 1Range("B" & L).Value = ComboBox1Range("C" & L).Value = TextBox2Range("D" & L).Value = TextBox3Range("L" & L).Value = TextBox4Range("T" & L).Value = TextBox5Range("AB" & L).Value = TextBox6Range("AJ" & L).Value = TextBox7Range("AR" & L).Value = TextBox8Range("AZ" & L).Value = TextBox9Range("G" & L).Value = TextBox10Range("O" & L).Value = TextBox11Range("W" & L).Value = TextBox12Range("AE" & L).Value = TextBox13Range("AM" & L).Value = TextBox14Range("AU" & L).Value = TextBox15Range("BC" & L).Value = TextBox16Range("H" & L).Value = TextBox17Range("P" & L).Value = TextBox18Range("X" & L).Value = TextBox19Range("AF" & L).Value = TextBox20Range("AN" & L).Value = TextBox21Range("AV" & L).Value = TextBox22Range("BD" & L).Value = TextBox23Range("F" & L).Value = TextBox24Range("N" & L).Value = TextBox25Range("V" & L).Value = TextBox26Range("AD" & L).Value = TextBox27Range("AL" & L).Value = TextBox28Range("AT" & L).Value = TextBox29Range("BB" & L).Value = TextBox30End IfEnd Sub'Pour le bouton ModifierPrivate Sub CommandButton2_Click()Dim Ligne As LongDim I As IntegerIf MsgBox("Confirmez-vous la modification ?", vbYesNo, "Confirmation de modification") <> vbYes Then Exit SubLigne = Me.ComboBox1.ListIndex + 2Range("B" & Ligne) = Me.ComboBox1Range("C" & Ligne) = TextBox2Range("D" & Ligne) = TextBox3Range("L" & Ligne) = TextBox4Range("T" & Ligne) = TextBox5Range("AB" & Ligne) = TextBox6Range("AJ" & Ligne) = TextBox7Range("AR" & Ligne) = TextBox8Range("AZ" & Ligne) = TextBox9Range("G" & Ligne) = TextBox10Range("O" & Ligne) = TextBox11Range("W" & Ligne) = TextBox12Range("AE" & Ligne) = TextBox13Range("AM" & Ligne) = TextBox14Range("AU" & Ligne) = TextBox15Range("BC" & Ligne) = TextBox16Range("F" & Ligne) = TextBox24Range("N" & Ligne) = TextBox25Range("V" & Ligne) = TextBox26Range("AD" & Ligne) = TextBox27Range("AL" & Ligne) = TextBox28Range("AT" & Ligne) = TextBox29Range("BB" & Ligne) = TextBox30End Sub

pijaku · Answer

Bonjour,

Deux choix :
1- vous référencez systématiquement le nom de la feuille :

 'Pour le bouton Ajouter
Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l'insertion ?", vbYesNo, "Confirmation d'insertion") = vbYes Then
L = Sheets("Habilitation Agent").Range("a65536").End(xlUp).Row + 1
Sheets("Feuil2").Range("B" & L).Value = ComboBox1
Sheets("Feuil2").Range("C" & L).Value = TextBox2
Sheets("Feuil2").Range("D" & L).Value = TextBox3
Sheets("Feuil2").Range("L" & L).Value = TextBox4
Sheets("Feuil2").Range("T" & L).Value = TextBox5
 'Etc....

2- Vous utilisez un bloc With End With :
 'Pour le bouton Ajouter
Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l'insertion ?", vbYesNo, "Confirmation d'insertion") = vbYes Then
    L = Sheets("Habilitation Agent").Range("a65536").End(xlUp).Row + 1
    With Sheets("Feuil2")
        .Range("B" & L).Value = ComboBox1
        .Range("C" & L).Value = TextBox2
        .Range("D" & L).Value = TextBox3
        .Range("L" & L).Value = TextBox4
        .Range("T" & L).Value = TextBox5
         'Etc....
        .Range("AL" & L).Value = TextBox28
        .Range("AT" & L).Value = TextBox29
        .Range("BB" & L).Value = TextBox30
    End With
End If
End Sub