Discussion :

[GTbenj]

Bonjour à tous, je suis novice donc un peu d'indulgence svp

grâce à un userform, je rentre dans des textbox des infos, mais seulement, je veux que les infos se cumulent en passant à la ligne, et non remplacent les anciennes.

J'ai également un autre problème, c'est que je rempli une fiche par produit, et ces infos vont dans des tableaux, et parmi ces infos, il y a les composants, et je voudrais que le nom du produit se répète en face de chaque composant

Dans le tableau, il faut que ça s'affiche un peu comme ça:

Produit A ------subst1
Produit A-------subst2
Produit A------- subst3
Produit B-------subst6
Produit C-------subst8
Produit C-------subst9

avec un nombre variable de composant

J'espère que c'est clair (quand je dis ça, c'est souvent le contraire)

Donc je cherche la formule de programmation qui puisse répéter le produit autant de fois qu'il y a de composants.

[Gorfael]

Salut GTbenj
il sufit juste de calculer la dernière cellule non-vide de la colonne produit et de copier à la ligne suivante. et de répéter l'opération pour chaque composant

C'est aussi clair et précis que ton descriptif
A+

[radagast35]

Salut,
Tu ne peux pas rentrer plusieurs lignes dans une textbox, utilise plutot une listbox ou une listview

Tu peux alors y insérer des infos avec addItem()
Fais donc une boucle pour y mettre toutes tes infos

Tu pourras d'ailleurs ajouter une autre colonne pour y stocker tes produits

[GTbenj]

merci à vous,
mais pour radagast, mes infos sont dans plusieurs textbox

et gorfael, je ne vois pas comment faire pour désigner la dernière cellule non vide,
car j'ai oublié de préciser que c'est ce que je vais rentrer dans le userform, qui va remplir les tableaux, donc je sais quel est le maximum de composants ,donc si possible faire une boucle, même si il y a des vides après.

ça ressemblerait plus à cela:

Produit A ------subst1
Produit A-------subst2
Produit A------- subst3
Produit B-------subst6
-------
-------
Produit C-------subst8
Produit C-------subst9
--------

J'ai oublié également de demander la formule qui permet de passer à la ligne dans le tableau à chaque nouvelle saisi

voilà merci

[Gorfael]

Salut GTbenj et le forum

J'ai oublié également de demander la formule qui permet de passer à la ligne dans le tableau à chaque nouvelle saisi

Code :

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

Range("A" & activesheet.rows.count).end(xlup).offset(1,0)

Première cellule vide après la dernière non-vide de la colonne A
A+

[GTbenj]

salut, merci mais quand je mets la formule, ça ne fonctionne pas, alors je te mets mon code pour voir à quoi ça ressemble, et je te mets un fichier joint sur lequel il y a ce que je veux faire (passer à la ligne)

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
 
'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

voilà si t'as une idée, ça m'intéresse car je galere

[GTbenj]

merci