Problème de checkbox
onra
-
amigo -
amigo -
Bonjour,
J'ai un petit problème que je n'arrive pas à résoudre.
Je saisie dans une TextBox d'un UserForm1 uine valeur.
Cette valeur est renvoyée dans une TextBox d'un UserForm2
Puis elle doit ensuite être renvoyée du UsF2 vers une cellule d'un tableau.
Le premier problème , c'est le passage entre les 2 UsF: la seule solution que j'ai trouvé c de passer par une feuille excel entre les 2. (c un peu chiant...)
Le deuximème problème, c'est que les textBox du UsF ne renvoient pas les valeurs. (je pense que c dû à l'évenement "changeé de mes codes , mais je n'ai pas la solution.
si quelqu'un pouvait m'aide....
voici le code que j'utilise
Private Sub NOS2_Change()
Workbooks("OS2").Sheets("OS").Range("E6") = NOS2
End Sub
J'ai un petit problème que je n'arrive pas à résoudre.
Je saisie dans une TextBox d'un UserForm1 uine valeur.
Cette valeur est renvoyée dans une TextBox d'un UserForm2
Puis elle doit ensuite être renvoyée du UsF2 vers une cellule d'un tableau.
Le premier problème , c'est le passage entre les 2 UsF: la seule solution que j'ai trouvé c de passer par une feuille excel entre les 2. (c un peu chiant...)
Le deuximème problème, c'est que les textBox du UsF ne renvoient pas les valeurs. (je pense que c dû à l'évenement "changeé de mes codes , mais je n'ai pas la solution.
si quelqu'un pouvait m'aide....
voici le code que j'utilise
Private Sub NOS2_Change()
Workbooks("OS2").Sheets("OS").Range("E6") = NOS2
End Sub
Configuration: Windows 2000 Internet Explorer 6.0
3 réponses
-
salut,
tu utilise delphi ou quoi ?
si c'est delphi je croit que je pourrai t'aider
bye bye -
-
Bonjour,
Je suppose que NOSE2 est le nom d'une TextBox : essaie comme ça:
Private Sub NOS2_Change()
Workbooks("OS2").Sheets("OS").Range("E6").Value = NOS2.Value
End Sub
Passer des valeurs entre les controles de plusieurs Userform
Exemple, passer la valeur de TextBox1 dans Userform1 à TextBox2 dans Userform2 en cliquant sur le bouton Suivant qui se trouve sur Userform1
dans le code de Userform1
Private Sub Suivant_click() Userform2.TextBox2.Value = TextBox1.value Me.Hide Userform2.Show End Sub
