Discussion :

[spico45]

Bonjour,

j'ai un userform avec un combobox, ce combobox reprend l'ensemble de mes donnees situées dans les cellules f4:hv4. Je selectionne grace à ce combobox une donnees (X).
Juste après, je lui indique dans un textbox un chiffre (Y).

J'aimerais que lorsque je valide mon userform, il copie ma valeur (Y) sous la colonne de ma donnée (X).

J'ai essayé avec "target" mais sans résultat

Cordialement

[AlphaScorpi]

Essaies avec ce 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
28
29
30
Private Sub CommandButton1_Click()
 
Dim ligfin As Long
Dim dercol As Long
Dim ws As Worksheet
Dim ValCh As Range
 
Set ws = Sheets("feuil2")
 
    dercol = Range("IV1").End(xlToLeft).Column
    ligfin = ws.Range("a65000").End(xlUp).Row + 1
    ws.Rows(ligfin).Insert Shift:=xlDown
 
    ws.Range("c" & ligfin) = UserForm1.ComboBox1
    ws.Range("a" & ligfin) = UserForm1.TextBox1
    ws.Range("b" & ligfin) = UserForm1.TextBox2
    ws.Range("d" & ligfin) = UserForm1.DTPicker1
    ws.Range("e" & ligfin) = UserForm1.DTPicker2
    ws.Range("hw" & ligfin) = UserForm1.TextBox4
 
    With ws
        Set ValCh = .Range(.Cells(4, 1), .Cells(4, .Cells(4, Columns.Count).End(xlToLeft).Column)). _ 
Find(What:=ComboBox2.Value, Lookat:=xlWhole, searchorder:=xlByColumns)
        ValCh.Offset(ligfin - 4, 0) = CLng(TextBox3)
    End With
 
 
Unload UserForm1
 
End Sub

[spico45]

merci AlphaScorpi,

ton code fonctionne bien mise à part le faite qu'il me copie le format de la cellule du dessus .

[AlphaScorpi]

Cela vient de ton fichier, modifie juste la mise en forme des cellules sous ta liste de produits =)

[spico45]

ok je sors

Merci c'est nikel