Y
Yvon
Guest
Bonjour à tous,
Comment peut on renvoyer la valeur d'une cellule dans un textbox, je dois avoir encore un problème de syntaxe ou de positionnement je vous livre les codes essayés dites moi lequel est le bon et ou le mettre. (ils sont en commentaire pour m'y retrouver et savoir ce qui a déjà ét essayeé)
Private Sub ComboBox1_Change()
sheets(3).Range('AB49') = Me.ComboBox1.ListIndex + 1
With Me
sheets(3).Range('AA115') = .TextBox6.Value
End With
End Sub
Private Sub CommandButton1_Click()
modulrestau.Hide
End Sub
Private Sub TextBox6_Change()
'TextBox6 = ComboBox1'
'sheets(3).Range('AA115').Value = TextBox6'
'sheets(3).Range('AA115').Value = TextBox6.Value'
' TextBox6.Value = sheets(3).Range('AA115').Value'
'TextBox6 = sheets(3).Range('AA115').Value'
With Me
sheets(3).Range('AA115') = .TextBox6.Value
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
'sheets(3).Range('AA115').Value = TextBox6'
'sheets(3).Range('AA115').Value = TextBox6.Value'
'TextBox6.Value = sheets(3).Range('AA115').Value'
'TextBox6 = sheets(3).Range('AA115').Value'
End Sub
J'ai un autre petit souci, dans le combo la ligne sélectionnée apparait en vidéo inverse.
Par avance merci du coup de main
a++
Yvon
Comment peut on renvoyer la valeur d'une cellule dans un textbox, je dois avoir encore un problème de syntaxe ou de positionnement je vous livre les codes essayés dites moi lequel est le bon et ou le mettre. (ils sont en commentaire pour m'y retrouver et savoir ce qui a déjà ét essayeé)
Private Sub ComboBox1_Change()
sheets(3).Range('AB49') = Me.ComboBox1.ListIndex + 1
With Me
sheets(3).Range('AA115') = .TextBox6.Value
End With
End Sub
Private Sub CommandButton1_Click()
modulrestau.Hide
End Sub
Private Sub TextBox6_Change()
'TextBox6 = ComboBox1'
'sheets(3).Range('AA115').Value = TextBox6'
'sheets(3).Range('AA115').Value = TextBox6.Value'
' TextBox6.Value = sheets(3).Range('AA115').Value'
'TextBox6 = sheets(3).Range('AA115').Value'
With Me
sheets(3).Range('AA115') = .TextBox6.Value
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
'sheets(3).Range('AA115').Value = TextBox6'
'sheets(3).Range('AA115').Value = TextBox6.Value'
'TextBox6.Value = sheets(3).Range('AA115').Value'
'TextBox6 = sheets(3).Range('AA115').Value'
End Sub
J'ai un autre petit souci, dans le combo la ligne sélectionnée apparait en vidéo inverse.
Par avance merci du coup de main
a++
Yvon