bonjours
j'ai besoin d'un userform qui recupere des donnees dela
feuille de calcul (ex en a1 il y a la valeur 10 en a2
valeurs 20) comment faire afficher c'est valeurs dans mon
userform) sachant que c'est valeurs sont aleatoire selon
la macros lancer auparavant.
cette formule ne fonctionne pas
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range
("A1").Value
End Sub)
Tout dépend de l'évènement qui déclenche l'appel de UsF: 1)ex: si c'est un button ou click ou activate ou...ça peut être la proc de la feuil1 Private Sub CommandButton1_Click() UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] userform1.show End Sub
-- Ok, en attendant ta réponse j'ai procédé comme ça.
2)ex: si c'est un évènement workbook (activate, beforeclose, ....) alors c'est la proc de thisworkbook Private Sub Workbook_Open() UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] userform1.show End Sub
3)et bien sûr ça peut être un module Public Sub JeLanceUsF() userform1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] userform1.Show End Sub
On aurait pu aussi en utilisant le cas numero 3 de façon générale ne mettre dans les cas 1et2 que l'appel de JeLanceUsF (ou call JeLanceUsF)
-- Merci, ça va m'aider pour la suite...
Paske j'ai un projet qui me donne mal a la tête rien que d'y penser.
salut
Bonjour Gilgamesh
Tout dépend de l'évènement qui déclenche l'appel de UsF:
1)ex: si c'est un button ou click ou activate ou...ça peut être la proc de
la feuil1
Private Sub CommandButton1_Click()
UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1]
userform1.show
End Sub
-- Ok, en attendant ta réponse j'ai procédé comme ça.
2)ex: si c'est un évènement workbook (activate, beforeclose, ....) alors
c'est la proc de thisworkbook
Private Sub Workbook_Open()
UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1]
userform1.show
End Sub
3)et bien sûr ça peut être un module
Public Sub JeLanceUsF()
userform1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1]
userform1.Show
End Sub
On aurait pu aussi en utilisant le cas numero 3 de façon générale
ne mettre dans les cas 1et2 que l'appel de
JeLanceUsF (ou call JeLanceUsF)
-- Merci, ça va m'aider pour la suite...
Paske j'ai un projet qui me donne mal a la tête rien que d'y penser.
Tout dépend de l'évènement qui déclenche l'appel de UsF: 1)ex: si c'est un button ou click ou activate ou...ça peut être la proc de la feuil1 Private Sub CommandButton1_Click() UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] userform1.show End Sub
-- Ok, en attendant ta réponse j'ai procédé comme ça.
2)ex: si c'est un évènement workbook (activate, beforeclose, ....) alors c'est la proc de thisworkbook Private Sub Workbook_Open() UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] userform1.show End Sub
3)et bien sûr ça peut être un module Public Sub JeLanceUsF() userform1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] userform1.Show End Sub
On aurait pu aussi en utilisant le cas numero 3 de façon générale ne mettre dans les cas 1et2 que l'appel de JeLanceUsF (ou call JeLanceUsF)
-- Merci, ça va m'aider pour la suite...
Paske j'ai un projet qui me donne mal a la tête rien que d'y penser.
