comparer valeur et copier

Version imprimable

14/06/2012, 15h02
spico45

1 pièce(s) jointe(s)

comparer valeur et copier

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

Essaies avec ce code :

Code:

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

14/06/2012, 16h23
spico45

merci AlphaScorpi,

ton code fonctionne bien mise à part le faite qu'il me copie le format de la cellule du dessus 8O.
14/06/2012, 16h30
AlphaScorpi

Cela vient de ton fichier, modifie juste la mise en forme des cellules sous ta liste de produits =)
14/06/2012, 17h34
spico45

ok je sors

Merci c'est nikel