userform vers tableau

[Profane]

Bonjour le forum,
allez je rentre dans le vif du sujet
j'avais trouvé sur le forum une reponse à ce sujet
qui m'avait a l'époque impecablement été
car j avais a remplir un tableau de 5 colonnes
via un userform et des textbox

Private Sub CommandButton1_Click()
Dim i As Integer
i = Range("B65536").End(xlUp).Row + 1
Range("B" & i) = Format(Date, "dd mm yyyy")
Range("C" & i) = TextBox1
Range("D" & i) = TextBox2
Range("E" & i) = TextBox3
Range("F" & i) = TextBox4
Range("G" & i) = TextBox5
Range("H" & i) = TextBox6
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub

mon soucis aujourd'hui c'est que j'aimerai faire la même chose
pour un tableau de 30 colonnes , et que je peux pas
me permettre de consever la methode de remplissage via
Range("G" & i) = TextBoxN sachant que si quelqu'un insere une colonne
tout est foutu 🙂 (moins facile a voir que sur un tableau à 5 colonnes)
je me rappelle avoir vu un autre post parlant d'une méthode
"nommée" par le nom du champ pour éviter ces soucis
mais pas moyen de remettre la main dessus

quelqu'un pourrais m'aider ?

merci d'avance

@++

 

[pierrejean]

Re : userform vers tableau

bonjour Profane

voila une macro qui peut convenir

veiller a renommer d'autres textbox qui ne seraient pas concernés

Private Sub CommandButton1_Click()
Dim i As Integer
Dim n As Integer
i = Range("B65536").End(xlUp).Row + 1
For n = 0 To UserForm1.Controls.Count - 1
If Left(UserForm1.Controls(n).Name, 7) = "TextBox" Then
Cells(i, 3 + n) = UserForm1.Controls(n)
UserForm1.Controls(n) = ""
End If
Next n
Cells(i, 2) = Format(Date, "dd mm yyyy")
End Sub

 

[Profane]

Re : userform vers tableau

Bonjour Pierre jean, et bonjour le forum

en fait pierrejean ta reponse ne reponds pas completement a ma demande 🙂

je m'explique "en gros" il faudrait que les champs du userForm
comportant des textbox ou combobox, remplissent un tableau en
fonction du "nom des champs" du tableau, et non pas en fonction d'un numero alphabetique de colonne
tout ceci dans le but d'éviter l'insertion malheureuse d'une colonne

voila @++

ps: je ne retrouve pas ce post où une personne décrivait cette methode

 

[pierrejean]

Re : userform vers tableau

re

et peut-on savoir comment faire la relation entre chacun des textbox (ou combobox) et la colonne a desservir ???

si tu acceptes de nommer chacun de tes textbox (ou combobobox ) comme le titre de la colonne c'est envisageable , et encore en sachant dans quelle ligne aller chercher le titre

en bref, on serait plus a l'aise avec un fichier exemple

 

[fifi]

Re : userform vers tableau

c'est pas faux
sinon faut faire une fonction qui recherche la position l'intitulé des colonnes (s'il ne change pas) dans la ligne contenant les intitulés.

pas trop trop dur a faire et ca permet de tolérer les insertions de colonnes.

 

[Bebere]

Re : userform vers tableau

bonjour le fil
un essai avec propriété tag de textbox
à bientôt