Bonjour à tous
Je démarre les userforms avec les explications excelabo (trés trés bien).
Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit
Private Sub TextBox1_Change()
TextBox1.Value = Range("Feuil1!a1")
End Sub
Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec la
barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand le
userform est à l'écran?
Comment induire l'affichage de la valeur dès l'ouverture du userform?
Merci d'avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pounet95
Bonjour, Utiliser l'évènement Userform_Initialize par exemple au lieu de celui utilisé.
Bon après-midi
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" a écrit dans le message de news: uH1%23UPx%
Bonjour à tous Je démarre les userforms avec les explications excelabo (trés trés bien). Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit Private Sub TextBox1_Change() TextBox1.Value = Range("Feuil1!a1") End Sub Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec la barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand le userform est à l'écran? Comment induire l'affichage de la valeur dès l'ouverture du userform? Merci d'avance.
Bonjour,
Utiliser l'évènement Userform_Initialize par exemple au lieu de celui
utilisé.
Bon après-midi
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" <nospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
uH1%23UPx%23EHA.2104@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Je démarre les userforms avec les explications excelabo (trés trés bien).
Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit
Private Sub TextBox1_Change()
TextBox1.Value = Range("Feuil1!a1")
End Sub
Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec
la barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand
le userform est à l'écran?
Comment induire l'affichage de la valeur dès l'ouverture du userform?
Merci d'avance.
Bonjour, Utiliser l'évènement Userform_Initialize par exemple au lieu de celui utilisé.
Bon après-midi
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" a écrit dans le message de news: uH1%23UPx%
Bonjour à tous Je démarre les userforms avec les explications excelabo (trés trés bien). Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit Private Sub TextBox1_Change() TextBox1.Value = Range("Feuil1!a1") End Sub Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec la barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand le userform est à l'écran? Comment induire l'affichage de la valeur dès l'ouverture du userform? Merci d'avance.
Clément Marcotte
Bonjour,
Dans le module de l'UserForm, il y a UserForm_initialize() pour faire des opérations d'initialisation de l'userForm, mettre des valeurs par défaut, ou autres machins du genre.
sub UserForm_initialize() textbox1.value = Range("a1").value end sub
"ManBas" a écrit dans le message de news:uH1%23UPx%
Bonjour à tous Je démarre les userforms avec les explications excelabo (trés trés bien).
Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit
Private Sub TextBox1_Change() TextBox1.Value = Range("Feuil1!a1") End Sub Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec la
barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand le
userform est à l'écran? Comment induire l'affichage de la valeur dès l'ouverture du userform?
Merci d'avance.
Bonjour,
Dans le module de l'UserForm, il y a UserForm_initialize() pour faire
des opérations d'initialisation de l'userForm, mettre des valeurs par
défaut, ou autres machins du genre.
sub UserForm_initialize()
textbox1.value = Range("a1").value
end sub
"ManBas" <nospam-j.ragni@wanadoo.fr> a écrit dans le message de
news:uH1%23UPx%23EHA.2104@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Je démarre les userforms avec les explications excelabo (trés trés
bien).
Pour transferer les données de la cellule a1 dans ma textbox, j'ai
écrit
Private Sub TextBox1_Change()
TextBox1.Value = Range("Feuil1!a1")
End Sub
Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique
avec la
barre espace (ou une touche lettre) à l'intérieur de la textbox1
quand le
userform est à l'écran?
Comment induire l'affichage de la valeur dès l'ouverture du
userform?
Dans le module de l'UserForm, il y a UserForm_initialize() pour faire des opérations d'initialisation de l'userForm, mettre des valeurs par défaut, ou autres machins du genre.
sub UserForm_initialize() textbox1.value = Range("a1").value end sub
"ManBas" a écrit dans le message de news:uH1%23UPx%
Bonjour à tous Je démarre les userforms avec les explications excelabo (trés trés bien).
Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit
Private Sub TextBox1_Change() TextBox1.Value = Range("Feuil1!a1") End Sub Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec la
barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand le
userform est à l'écran? Comment induire l'affichage de la valeur dès l'ouverture du userform?
Merci d'avance.
ManBas
Merci Pounet. Je fais actuellement Userform1.show par Private Sub Worbook_open. Que dois-je remplacer? "Pounet95" a écrit dans le message de news: OHQWzRx%
Bonjour, Utiliser l'évènement Userform_Initialize par exemple au lieu de celui utilisé.
Bon après-midi
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" a écrit dans le message de news: uH1%23UPx%
Bonjour à tous Je démarre les userforms avec les explications excelabo (trés trés bien). Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit Private Sub TextBox1_Change() TextBox1.Value = Range("Feuil1!a1") End Sub Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec la barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand le userform est à l'écran? Comment induire l'affichage de la valeur dès l'ouverture du userform? Merci d'avance.
Merci Pounet.
Je fais actuellement Userform1.show par Private Sub Worbook_open.
Que dois-je remplacer?
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
OHQWzRx%23EHA.2156@TK2MSFTNGP10.phx.gbl...
Bonjour,
Utiliser l'évènement Userform_Initialize par exemple au lieu de celui
utilisé.
Bon après-midi
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" <nospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
uH1%23UPx%23EHA.2104@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Je démarre les userforms avec les explications excelabo (trés trés bien).
Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit
Private Sub TextBox1_Change()
TextBox1.Value = Range("Feuil1!a1")
End Sub
Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec
la barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand
le userform est à l'écran?
Comment induire l'affichage de la valeur dès l'ouverture du userform?
Merci d'avance.
Merci Pounet. Je fais actuellement Userform1.show par Private Sub Worbook_open. Que dois-je remplacer? "Pounet95" a écrit dans le message de news: OHQWzRx%
Bonjour, Utiliser l'évènement Userform_Initialize par exemple au lieu de celui utilisé.
Bon après-midi
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" a écrit dans le message de news: uH1%23UPx%
Bonjour à tous Je démarre les userforms avec les explications excelabo (trés trés bien). Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit Private Sub TextBox1_Change() TextBox1.Value = Range("Feuil1!a1") End Sub Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec la barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand le userform est à l'écran? Comment induire l'affichage de la valeur dès l'ouverture du userform? Merci d'avance.
Pounet95
Re, Je ne sais pas si j'emploie la meilleure méthode, mais voilà comment je procède pour afficher un userform dès la fin du chargement de mon classeur :
'Dans le module ThisWorkbook : '---------------------------------------------- Private Sub Workbook_Open() Load Userform1 End Sub
Private Sub Workbook_close() UnLoad Userform1 End Sub
'Dans le module du userform '------------------------------------------ Private Sub UserForm_Initialize() 'charger les contrôles TextBox1.Value = Sheets("Feuille1").Range("A1").Value '..... etc Show End Sub
A adapter aux besoins bien sûr. -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" a écrit dans le message de news: OhTpmWx%
Merci Pounet. Je fais actuellement Userform1.show par Private Sub Worbook_open. Que dois-je remplacer? "Pounet95" a écrit dans le message de news: OHQWzRx%
Bonjour, Utiliser l'évènement Userform_Initialize par exemple au lieu de celui utilisé.
Bon après-midi
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" a écrit dans le message de news: uH1%23UPx%
Bonjour à tous Je démarre les userforms avec les explications excelabo (trés trés bien). Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit Private Sub TextBox1_Change() TextBox1.Value = Range("Feuil1!a1") End Sub Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec la barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand le userform est à l'écran? Comment induire l'affichage de la valeur dès l'ouverture du userform? Merci d'avance.
Re,
Je ne sais pas si j'emploie la meilleure méthode, mais voilà comment je
procède pour afficher
un userform dès la fin du chargement de mon classeur :
'Dans le module ThisWorkbook :
'----------------------------------------------
Private Sub Workbook_Open()
Load Userform1
End Sub
Private Sub Workbook_close()
UnLoad Userform1
End Sub
'Dans le module du userform
'------------------------------------------
Private Sub UserForm_Initialize()
'charger les contrôles
TextBox1.Value = Sheets("Feuille1").Range("A1").Value
'..... etc
Show
End Sub
A adapter aux besoins bien sûr.
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" <nospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
OhTpmWx%23EHA.4072@TK2MSFTNGP10.phx.gbl...
Merci Pounet.
Je fais actuellement Userform1.show par Private Sub Worbook_open.
Que dois-je remplacer?
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
OHQWzRx%23EHA.2156@TK2MSFTNGP10.phx.gbl...
Bonjour,
Utiliser l'évènement Userform_Initialize par exemple au lieu de celui
utilisé.
Bon après-midi
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" <nospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
uH1%23UPx%23EHA.2104@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Je démarre les userforms avec les explications excelabo (trés trés
bien).
Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit
Private Sub TextBox1_Change()
TextBox1.Value = Range("Feuil1!a1")
End Sub
Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec
la barre espace (ou une touche lettre) à l'intérieur de la textbox1
quand le userform est à l'écran?
Comment induire l'affichage de la valeur dès l'ouverture du userform?
Merci d'avance.
Re, Je ne sais pas si j'emploie la meilleure méthode, mais voilà comment je procède pour afficher un userform dès la fin du chargement de mon classeur :
'Dans le module ThisWorkbook : '---------------------------------------------- Private Sub Workbook_Open() Load Userform1 End Sub
Private Sub Workbook_close() UnLoad Userform1 End Sub
'Dans le module du userform '------------------------------------------ Private Sub UserForm_Initialize() 'charger les contrôles TextBox1.Value = Sheets("Feuille1").Range("A1").Value '..... etc Show End Sub
A adapter aux besoins bien sûr. -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" a écrit dans le message de news: OhTpmWx%
Merci Pounet. Je fais actuellement Userform1.show par Private Sub Worbook_open. Que dois-je remplacer? "Pounet95" a écrit dans le message de news: OHQWzRx%
Bonjour, Utiliser l'évènement Userform_Initialize par exemple au lieu de celui utilisé.
Bon après-midi
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" a écrit dans le message de news: uH1%23UPx%
Bonjour à tous Je démarre les userforms avec les explications excelabo (trés trés bien). Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit Private Sub TextBox1_Change() TextBox1.Value = Range("Feuil1!a1") End Sub Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec la barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand le userform est à l'écran? Comment induire l'affichage de la valeur dès l'ouverture du userform? Merci d'avance.
ManBas
Merci pour ton aide Pounet. A bientôt (!) Ce forum est génial!
"Pounet95" a écrit dans le message de news: OPalUcx%
Re, Je ne sais pas si j'emploie la meilleure méthode, mais voilà comment je procède pour afficher un userform dès la fin du chargement de mon classeur :
'Dans le module ThisWorkbook : '---------------------------------------------- Private Sub Workbook_Open() Load Userform1 End Sub
Private Sub Workbook_close() UnLoad Userform1 End Sub
'Dans le module du userform '------------------------------------------ Private Sub UserForm_Initialize() 'charger les contrôles TextBox1.Value = Sheets("Feuille1").Range("A1").Value '..... etc Show End Sub
A adapter aux besoins bien sûr. -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" a écrit dans le message de news: OhTpmWx%
Merci Pounet. Je fais actuellement Userform1.show par Private Sub Worbook_open. Que dois-je remplacer? "Pounet95" a écrit dans le message de news: OHQWzRx%
Bonjour, Utiliser l'évènement Userform_Initialize par exemple au lieu de celui utilisé.
Bon après-midi
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" a écrit dans le message de news: uH1%23UPx%
Bonjour à tous Je démarre les userforms avec les explications excelabo (trés trés bien). Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit Private Sub TextBox1_Change() TextBox1.Value = Range("Feuil1!a1") End Sub Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec la barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand le userform est à l'écran? Comment induire l'affichage de la valeur dès l'ouverture du userform? Merci d'avance.
Merci pour ton aide Pounet.
A bientôt (!)
Ce forum est génial!
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
OPalUcx%23EHA.1564@TK2MSFTNGP09.phx.gbl...
Re,
Je ne sais pas si j'emploie la meilleure méthode, mais voilà comment je
procède pour afficher
un userform dès la fin du chargement de mon classeur :
'Dans le module ThisWorkbook :
'----------------------------------------------
Private Sub Workbook_Open()
Load Userform1
End Sub
Private Sub Workbook_close()
UnLoad Userform1
End Sub
'Dans le module du userform
'------------------------------------------
Private Sub UserForm_Initialize()
'charger les contrôles
TextBox1.Value = Sheets("Feuille1").Range("A1").Value
'..... etc
Show
End Sub
A adapter aux besoins bien sûr.
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" <nospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
OhTpmWx%23EHA.4072@TK2MSFTNGP10.phx.gbl...
Merci Pounet.
Je fais actuellement Userform1.show par Private Sub Worbook_open.
Que dois-je remplacer?
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
OHQWzRx%23EHA.2156@TK2MSFTNGP10.phx.gbl...
Bonjour,
Utiliser l'évènement Userform_Initialize par exemple au lieu de celui
utilisé.
Bon après-midi
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" <nospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
uH1%23UPx%23EHA.2104@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Je démarre les userforms avec les explications excelabo (trés trés
bien).
Pour transferer les données de la cellule a1 dans ma textbox, j'ai
écrit
Private Sub TextBox1_Change()
TextBox1.Value = Range("Feuil1!a1")
End Sub
Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique
avec la barre espace (ou une touche lettre) à l'intérieur de la
textbox1 quand le userform est à l'écran?
Comment induire l'affichage de la valeur dès l'ouverture du userform?
Merci d'avance.
Merci pour ton aide Pounet. A bientôt (!) Ce forum est génial!
"Pounet95" a écrit dans le message de news: OPalUcx%
Re, Je ne sais pas si j'emploie la meilleure méthode, mais voilà comment je procède pour afficher un userform dès la fin du chargement de mon classeur :
'Dans le module ThisWorkbook : '---------------------------------------------- Private Sub Workbook_Open() Load Userform1 End Sub
Private Sub Workbook_close() UnLoad Userform1 End Sub
'Dans le module du userform '------------------------------------------ Private Sub UserForm_Initialize() 'charger les contrôles TextBox1.Value = Sheets("Feuille1").Range("A1").Value '..... etc Show End Sub
A adapter aux besoins bien sûr. -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" a écrit dans le message de news: OhTpmWx%
Merci Pounet. Je fais actuellement Userform1.show par Private Sub Worbook_open. Que dois-je remplacer? "Pounet95" a écrit dans le message de news: OHQWzRx%
Bonjour, Utiliser l'évènement Userform_Initialize par exemple au lieu de celui utilisé.
Bon après-midi
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"ManBas" a écrit dans le message de news: uH1%23UPx%
Bonjour à tous Je démarre les userforms avec les explications excelabo (trés trés bien). Pour transferer les données de la cellule a1 dans ma textbox, j'ai écrit Private Sub TextBox1_Change() TextBox1.Value = Range("Feuil1!a1") End Sub Mais lecontenu de a1 ne s'affiche dans la textbox1 que si je clique avec la barre espace (ou une touche lettre) à l'intérieur de la textbox1 quand le userform est à l'écran? Comment induire l'affichage de la valeur dès l'ouverture du userform? Merci d'avance.
