Comment prendre en compte mofification sur userform

Bonjour à toutes et tous,

Un petit trou de mémoire je pense.:(

Je viens à partir d'une ComboBox de sélectionner la ligne d'un tableau sur une feuille afin de remplir l'userform en question (TextBox et OptionButton) aucun soucis.
Je viens de réaliser aussi la fonction de saisie d'une nouvelle fiche à partir de l'userform en question.

Par contre, je ne me souviens plus de la manipulation pour prendre en compte la modification d'une textbox ou plusieurs ainsi que pour les optionbutton suite à l'ouverture et consultation de l'userform?

Il me semble que j'avais définie en variable le listindex de la ComboBox afin de reprendre celle-ci en ligne de référence avec la colonne puis la textbox.value ?
de type L (pour Ligne) = ComboBox.listindex + 1, puis cells("A" & L).value = TextBox.value avec L as integer.

Je sais que cela doit être idiot et simple mais je sèche depuis l'après-midi car j'ai oublié ma doc de référence au boulot avec ma banque de codes et mes programmes.:oops:

Merci par avance, Christian.

Citation:

---

Envoyé par Grall0

---

Bonjour,

Code:

---

1 2 3 4 5

Range("A" & L).value = TextBox.value   ' ou Cells( L, "A").value = TextBox.value

---

Merci pour la réponse,

J'avais pris en compte, mais le problème est dans la prise en compte du L = Combobox.ListIndex + 1.

Je n'ai pas la reprise de la valeur, pourtant, quand je survole j'ai bien les données de la ligne sélectionner par la ComboBox et en visuel sur l'userform active, dans la rubrique TextBox.value.

Il me semble, de mémoire que cela viens de la valeur de la Listbox avec integer?

Je crois qu'avant de définir la variable, j’avais une manip ,avant ou après à faire, pour la prise en compte de la ComboBox.ListItIndex.

Merci encore, mais la nuit de sommeil n'a pas résolu mon problème de mémoire.

Le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton2_Click() '***Bouton MODIFICATION ' 'Modification validation ' Dim L As Integer L = ComboBox2.ListIndex + 1   If MsgBox("Confirmez-vous la modification du contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then   Range("A" & L).Value = txtNom.Value (si je sélectionne la ligne 3 par exemple, en survol j'ai bien 3 en L et aussi le Nom sur la txtNom correspondant et je reviens systématiquement avec une erreur et sur cette case en jaune) Range("B" & L).Value = txtPrenom.Value Range("C & L).Value = txtNomFamille.Value ....etc

---

Citation:

---

Envoyé par Grall0

---

Un exemple dans le fichier joint bouton "Lancer le userform".