Button de cde modifier à partir d'un TextBox

Version imprimable

Bonjour ,

J'arrive pas à modifier mes cellules à partir d'un TextBox10 (ID pour notre cas)

Voila le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton3_Click()
 
'Modifier
 
Dim no_ligne As Integer
Dim i As Integer
 
'If Not ComboBox2.Value = "" Then
 
With Worksheets("Opérations")
no_ligne = TextBox10.ListIndex + 2
 
    .Cells(no_ligne, 2).Value = TextBox9.Value
    .Cells(no_ligne, 1).Value = TextBox10.Value
    .Cells(no_ligne, 3).Value = TextBox11.Value
    .Cells(no_ligne, 4).Value = TextBox12.Value
    .Cells(no_ligne, 5).Value = TextBox13.Value
    .Cells(no_ligne, 6).Value = TextBox14.Value
    .Cells(no_ligne, 7).Value = TextBox15.Value
    .Cells(no_ligne, 8).Value = TextBox16.Value
    .Cells(no_ligne, 9).Value = TextBox17.Value
    .Cells(no_ligne, 10).Value = TextBox18.Value
    Me.CommandButton3.Enabled = False
 
 
End With
End Sub

En piece jointe le fichier

Merci d'avance

26/04/2021, 17h23
MarcelG

Bonsoir,

Que signifie

Citation:

J'arrive pas à modifier mes cellules à partir d'un TextBox10 (ID pour notre cas)

?

Pourrais-tu être plus en précis en retournant le message d'erreur éventuel.

Un conseil, au demeurant, pour obtenir un code plus lisible.
Affecter à tes contrôles un nom en rapport avec la donnée que chacun est sensé modifier.
Celui-ci serait préfixé par la nature du contrôle.

Exemple:

Citation:

Txt_Quantité
26/04/2021, 17h32
Pierre Fauconnier

Salut.

Perso, je travaillerais avec un tableau structuré (voir mon tuto). Voici une contribution qui modélise les échanges entre userform et tableau structuré ;)

Ici, un Evaluate("Match(...)" pourrait probablement te donner la ligne de l'ID ;)

J'ai reglé le probleme, voila la solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton3_Click()
'Modifier
Dim no_ligne As Integer
Dim i As Integer
'If Not ComboBox2.Value = "" Then
With Worksheets("Opérations")
' tu ne peux avoir de listindex avec un textbox
  no_ligne = .Columns(1).Find(Me.TextBox21.Value).Row
    .Cells(no_ligne, 7).Value = TextBox9.Value
    .Cells(no_ligne, 13).Value = CDate(TextBox10.Value)
    .Cells(no_ligne, 14).Value = TextBox11.Value
 
 
    Me.CommandButton3.Enabled = False
 
 
End With
End Sub

1 pièce(s) jointe(s)

Bonjour à vous, Bonjour au Forum,

J'ai pour habitude de piloter un formulaire depuis un module standard, notamment dans la cadre d'une interférence Formulaire - Tableau structuré.
(Voir la contribution de Pierre citée plus haut).

Au demeurant, pour répondre de manière simple à la problématique, j'ai affecté la mise à jour du tableau depuis le bouton commande

Soit un tableau structuré T_Famille

Pièce jointe 596638

Soit un formulaire contenant 3 contrôles Textbox

Citation:

Txt_Parent Txt_Vin Txt_Voiture

Le code suivant pourrait être affecté à un bouton de commande du formulaire
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Option Explicit Private Sub Btn_Misajour_Click() Dim eq As Long eq = Evaluate("=IFERROR(MATCH(""" & Me.Txt_Parent & """,T_Famille[Parent],0),0)") Dim tx As Variant With Sht_Données.ListObjects("T_Famille") If eq = 0 Then .ListRows.Add eq = .ListRows.Count .ListColumns("Parent").DataBodyRange.Cells(eq, 1).Value = Me.Txt_Parent End If For Each tx In Array("Voiture", "Vin") .ListColumns(tx).DataBodyRange.Cells(eq, 1).Value = Me.Controls("Txt_" & tx).Text Next tx End With Unload Me End Sub