Discussion :

[Grall0]

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.

Merci par avance, Christian.

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Range("A" & L).value = TextBox.value
 
' ou
Cells( L, "A").value = TextBox.value

[Grall0]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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