textbox

[abdou44]

bonsoir tt le monde je veux écrire un programme qui permet si une cellule de la colonne A = textbox2 alors cellule j de la meme ligne égale textbox4
Sub CommandButton4_Click()
Sheets("vente").Activate
For x = 1 To 65536
If Range("A" & x) = UserForm2.TextBox3.Value Then
Range("k" & x).Value = UserForm2.TextBox4.Value
End If
Next
Unload Me
End Sub

 

[kjin]

Re : textbox

Bonsoir,

bonsoir tt le monde je veux écrire un programme qui permet si une cellule de la colonne A = textbox2 alors cellule j de la meme ligne égale textbox4

Une cellule, 2 cellules, toutes les cellules...textbox2, textbox3....?
Et quel est le pb...?!
A+
kjin

 

[abdou44]

Re : textbox

kjin le probleme que c'est à l'execution du macro je ne trouve rien dans la cellule

 

[kjin]

Re : textbox

Bonsoir,
Une textbox renvoie une donnée texte
Il vaut mieux à mon sens remplacer la textbox3 par une combobox

Sub CommandButton4_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
With Feuil1
    If IsDate(TextBox4) Then .Cells(ComboBox1.ListIndex + 2, 11) = CDate(TextBox4)
End With
Unload Me
End Sub

Private Sub UserForm_Initialize()
With Feuil1
    ComboBox1.List = .Range("A2:A" & .Range("A65000").End(xlUp).Row).Value
End With
End Sub

A+
kjin