XL 2019 VBA Remplacer des cellule par valeur tableau et Aide Userform

MaxXx39

XLDnaute Nouveau
Bonjour,

Afin de mieux organiser ma VBA je cherche à changer des référence à des colonne type :

Colonne A de la feuille Feuil1 (comme sur le code ci dessous)

en

tableau1 colonne "nom de la colonne" d'un tableau

VB:
Private Sub CommandButton1_Click()



   Dim L As Integer



   If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then

      L = Sheets("PRODUIT - Stock").Range("a65536").End(xlUp).Row + 1   'Pour placer le nouvel enregistrement à la première ligne de tableau non vide



      Worksheets("PRODUIT - Stock").Range("A" & L).Value = CDbl(ComboBox1)

      Worksheets("PRODUIT - Stock").Range("B" & L).Value = TextBox1

      Worksheets("PRODUIT - Stock").Range("F" & L).Value = CDbl(TextBox9)

      Worksheets("PRODUIT - Stock").Range("D" & L).Value = CDbl(TextBox3)

      Worksheets("PRODUIT - Stock").Range("E" & L).Value = CDbl(TextBox4)



   End If



End Sub
Egalement je cherche a changer se code

Code:
Private Sub CommandButton2_Click()



   Dim Ligne As Long

   Dim I As Integer



   If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then

      If Me.ComboBox1.ListIndex = -1 Then Exit Sub



      Ligne = Me.ComboBox1.ListIndex + 2



      For I = 1 To 4

         If Me.Controls("TextBox" & I).Visible = True Then

            Ws.Cells(Ligne, I + 2) = Me.Controls("TextBox" & I)

         End If

      Next I

   End If



End Sub
Mais au lieu de me remplir

Textbox1> colonne A
Textbox2>Colonne B

Je souhaiterais faire :

Textbox1 > tableauX Colonne "nom colonne"
Textbox2 > tableauY Colonne "nom colonne"

Un Grand Merci!
 

fanch55

XLDnaute Accro
Bonsoir, pour vous guider:

1605471517912.png

VB:
Sub Maj_Tableau()

    'insertion d'une ligne sous les entêtes
    [Tableau1].ListObject.ListRows.Add 1
    
    ' remplissage des colonnes de la ligne insérée
    [Tableau1[Nom]].Rows(1) = "Zorro"
    [Tableau1[Prénom]].Rows(1) = "Le beau"
      
    ' application du tri s'il existait
    If [Tableau1].ListObject.Sort.SortFields.Count > 0 _
    Then [Tableau1].ListObject.Sort.Apply

End Sub
 

Discussions similaires

Réponses
77
Affichages
1 K

Statistiques des forums

Discussions
292 969
Messages
1 927 567
Membres
183 567
dernier inscrit
CHACHA972