Discussion :

[ByrneThom]

Bonjour ,

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

Voila 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
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

[MarcelG]

Bonsoir,

Que signifie

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:

Txt_Quantité

[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

[ByrneThom]

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

Code :

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

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

[MarcelG]

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



Soit un formulaire contenant 3 contrôles Textbox

Txt_Parent Txt_Vin Txt_Voiture

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

Code :

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

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