Remplissage de tableau

GTBen

XLDnaute Nouveau
Salut à tous, je suis actuellement sur un Userform avec des textbox, des checkbutton et des optionbutton,
et je voudrais qu'en remplissant le formulaire ,cela remplisse les cases d'un tableau,
mais le problème c'est en remplissant une nouvelle fois le formulaire, les nouvelles données remplacent les anciennes, alors que je voudrais que les données passent à la ligne dans un tableau, et passent 18 lignes dans un second tableau

j'ai vu par exemple ce genre de formule:

Code:
Private Sub btn_enregistrer_Click()

'récupérer la dernière ligne de la BDD
Dim ligneCourante As Integer
Dim celluleCourante As Excel.Range
Set celluleCourante = ThisWorkbook.Sheets("BDD").Range("A1")
Do While celluleCourante.Value <> ""
    Set celluleCourante = celluleCourante.Offset(1, 0)
Loop
ligneCourante = celluleCourante.Row

'écrire les infos
With ThisWorkbook.Sheets("BDD")
    .Range("A" & ligneCourante) = Me.txt_nomProduit.Text
    .Range("B" & ligneCourante) = Me.txt_val1.Text
    .Range("C" & ligneCourante) = Me.txt_val2.Text
    .Range("D" & ligneCourante) = Me.txt_val3.Text
End With

'effacer le nom du produit
Me.txt_nomProduit.Value = ""

Me.Hide
End Sub

je pense que ça doit être avec loop, mais je ne vois pas comment définir la cellule première, puis faire sauter 18 lignes:confused:
 

Pierrot93

XLDnaute Barbatruc
Re : Remplissage de tableau

Bonjour gtben

remplaces peut être la ligne ci dessous :

Code:
ligneCourante = celluleCourante.Row

par :
Code:
ligneCourante = celluleCourante.Offset(1, 0).Row

ou par :

Code:
ligneCourante = celluleCourante.Row + 1


bonne soirée
@+
 

GTBen

XLDnaute Nouveau
Re : Remplissage de tableau

salut pierrot, la formule que j'ai mis marche et permet de passer à la ligne, elle provient du fichier joint,
ce que je n'arrive pas, c'est l'adapter à mon UF, donc si qq'un peut m'expliquer la formule, peut être je comprendrais mieux.

voilà ma formule à moi

Code:
'bouton enregistrer'
Private Sub CommandButton1_Click()


'coder les checkbox pictogrammes avec les feuil2 et 3'
Dim Tx As String
Dim T As String
Dim Xn As String
Dim Xi As String
Dim C As String
Dim E As String
Dim O As String
Dim Fx As String
Dim F As String
Dim N As String

If CheckBox26.Value = False Then
    Tx = ""
Else
    Tx = "X"
End If
If CheckBox27.Value = False Then
    T = ""
Else
    T = "X"
End If
If CheckBox28 = False Then
    Xn = ""
Else
     Xn = "X"
End If
If CheckBox29.Value = False Then
    Xi = ""
Else
    Xi = "X"
End If
If CheckBox30.Value = False Then
    C = ""
Else
    C = "X"
End If
If CheckBox31.Value = False Then
    E = ""
Else
    E = "X"
End If
If CheckBox32.Value = False Then
    O = ""
Else
    O = "X"
End If
If CheckBox33.Value = False Then
    Fx = ""
Else
    Fx = "X"
End If
If CheckBox34.Value = False Then
    F = ""
Else
    F = "X"
End If
If CheckBox35.Value = False Then
    N = ""
Else
    N = "X"
End If

Feuil3.Range("E13").Value = Tx
Feuil2.Range("W4").Value = Tx
Feuil3.Range("F13").Value = T
Feuil2.Range("X4").Value = T
Feuil3.Range("G13").Value = Xn
Feuil2.Range("Y4").Value = Xn
Feuil3.Range("H13").Value = Xi
Feuil2.Range("Z4").Value = Xi
Feuil3.Range("I13").Value = C
Feuil2.Range("AA4").Value = C
Feuil3.Range("J13").Value = E
Feuil2.Range("AB4").Value = E
Feuil3.Range("K13").Value = O
Feuil2.Range("AC4").Value = O
Feuil3.Range("L13").Value = Fx
Feuil2.Range("AD4").Value = Fx
Feuil3.Range("M13").Value = F
Feuil2.Range("AE4").Value = F
Feuil3.Range("N13").Value = N
Feuil2.Range("AF4").Value = N
 

Pièces jointes

  • GestionProduitsoriginal.xls
    36 KB · Affichages: 56
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 913
Messages
2 093 535
Membres
105 752
dernier inscrit
fred13340