J'ai cr=E9=E9 un Userform dans lequel il y a un Multipage. J'y=20
ai mis 7 pages ayant en tout plus de 130 textbox qui=20
doivent aller chercher de l'information sur une ligne=20
Excel (l'information =E9tant sur les 130 colonnes, partant=20
la colonne A ).
Seulement, je ne sais pas comment aller chercher cette=20
information pour qu'elle apparaisse dans le textbox1 par=20
exemple...
J'ai essay=E9
Private Sub MultiPage1_Change()
TextBox1.Text =3D ActiveCell.Offset(-1, 0).Value
End Sub
Private Sub UserForm_Initialize()
TextBox1.Text =3D ActiveCell.Offset(-1, 0).Value
End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en=20
ai pour longtemps....
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
isabelle
bonjour Denys,
je crois qu'il faut mettre Me.TextBox1.Text =
isabelle
Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y ai mis 7 pages ayant en tout plus de 130 textbox qui doivent aller chercher de l'information sur une ligne Excel (l'information étant sur les 130 colonnes, partant la colonne A ).
Seulement, je ne sais pas comment aller chercher cette information pour qu'elle apparaisse dans le textbox1 par exemple...
J'ai essayé
Private Sub MultiPage1_Change() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Private Sub UserForm_Initialize() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en ai pour longtemps....
Merci
Denys
bonjour Denys,
je crois qu'il faut mettre
Me.TextBox1.Text =
isabelle
Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y
ai mis 7 pages ayant en tout plus de 130 textbox qui
doivent aller chercher de l'information sur une ligne
Excel (l'information étant sur les 130 colonnes, partant
la colonne A ).
Seulement, je ne sais pas comment aller chercher cette
information pour qu'elle apparaisse dans le textbox1 par
exemple...
J'ai essayé
Private Sub MultiPage1_Change()
TextBox1.Text = ActiveCell.Offset(-1, 0).Value
End Sub
Private Sub UserForm_Initialize()
TextBox1.Text = ActiveCell.Offset(-1, 0).Value
End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en
ai pour longtemps....
J'ai créé un Userform dans lequel il y a un Multipage. J'y ai mis 7 pages ayant en tout plus de 130 textbox qui doivent aller chercher de l'information sur une ligne Excel (l'information étant sur les 130 colonnes, partant la colonne A ).
Seulement, je ne sais pas comment aller chercher cette information pour qu'elle apparaisse dans le textbox1 par exemple...
J'ai essayé
Private Sub MultiPage1_Change() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Private Sub UserForm_Initialize() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en ai pour longtemps....
Merci
Denys
Denys
Bonjour Isabelle,
Merci, mais ça ne fonctionne pas.....Est-ce que le multipage est quelque chose de différent ? Ca fait 2 heures que je cherche le moyen que mon ^&^&^& de textbox1 sur le multipage prenne la valeur de la cellule à côté de celle qui est active sur la feuille Excel !!! Même une recherche sur Google ne m'a rien apporté....
C'est pourtant pas compliqué !!!! Je manque le bateau et je ne sais pas par où !!!!
Merci
Denys
-----Original Message----- bonjour Denys,
je crois qu'il faut mettre Me.TextBox1.Text =
isabelle
Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y
ai mis 7 pages ayant en tout plus de 130 textbox qui doivent aller chercher de l'information sur une ligne Excel (l'information étant sur les 130 colonnes, partant la colonne A ).
Seulement, je ne sais pas comment aller chercher cette information pour qu'elle apparaisse dans le textbox1 par exemple...
J'ai essayé
Private Sub MultiPage1_Change() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Private Sub UserForm_Initialize() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en ai pour longtemps....
Merci
Denys .
Bonjour Isabelle,
Merci, mais ça ne fonctionne pas.....Est-ce que le
multipage est quelque chose de différent ? Ca fait 2
heures que je cherche le moyen que mon ^&^&^& de textbox1
sur le multipage prenne la valeur de la cellule à côté de
celle qui est active sur la feuille Excel !!! Même une
recherche sur Google ne m'a rien apporté....
C'est pourtant pas compliqué !!!! Je manque le bateau et
je ne sais pas par où !!!!
Merci
Denys
-----Original Message-----
bonjour Denys,
je crois qu'il faut mettre
Me.TextBox1.Text =
isabelle
Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage.
J'y
ai mis 7 pages ayant en tout plus de 130 textbox qui
doivent aller chercher de l'information sur une ligne
Excel (l'information étant sur les 130 colonnes, partant
la colonne A ).
Seulement, je ne sais pas comment aller chercher cette
information pour qu'elle apparaisse dans le textbox1 par
exemple...
J'ai essayé
Private Sub MultiPage1_Change()
TextBox1.Text = ActiveCell.Offset(-1, 0).Value
End Sub
Private Sub UserForm_Initialize()
TextBox1.Text = ActiveCell.Offset(-1, 0).Value
End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en
ai pour longtemps....
Merci, mais ça ne fonctionne pas.....Est-ce que le multipage est quelque chose de différent ? Ca fait 2 heures que je cherche le moyen que mon ^&^&^& de textbox1 sur le multipage prenne la valeur de la cellule à côté de celle qui est active sur la feuille Excel !!! Même une recherche sur Google ne m'a rien apporté....
C'est pourtant pas compliqué !!!! Je manque le bateau et je ne sais pas par où !!!!
Merci
Denys
-----Original Message----- bonjour Denys,
je crois qu'il faut mettre Me.TextBox1.Text =
isabelle
Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y
ai mis 7 pages ayant en tout plus de 130 textbox qui doivent aller chercher de l'information sur une ligne Excel (l'information étant sur les 130 colonnes, partant la colonne A ).
Seulement, je ne sais pas comment aller chercher cette information pour qu'elle apparaisse dans le textbox1 par exemple...
J'ai essayé
Private Sub MultiPage1_Change() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Private Sub UserForm_Initialize() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en ai pour longtemps....
Merci
Denys .
michdenis
Bonjour Denys,
Essaie ceci :
Private Sub UserForm_Initialize()
With Worksheets("Feuil1") ' à adapter For A = 1 to 130 '130 = Nombre de textbox 'je suppose que leur nom est Textbox + leur index me.controls("TextBox" & A).Text = .range("A1").Offset(A).Value next End with End sub
Salutations!
"Denys" a écrit dans le message de news:15ec01c49b2a$b67502f0$ Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y ai mis 7 pages ayant en tout plus de 130 textbox qui doivent aller chercher de l'information sur une ligne Excel (l'information étant sur les 130 colonnes, partant la colonne A ).
Seulement, je ne sais pas comment aller chercher cette information pour qu'elle apparaisse dans le textbox1 par exemple...
J'ai essayé
Private Sub MultiPage1_Change() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Private Sub UserForm_Initialize() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en ai pour longtemps....
Merci
Denys
Bonjour Denys,
Essaie ceci :
Private Sub UserForm_Initialize()
With Worksheets("Feuil1") ' à adapter
For A = 1 to 130 '130 = Nombre de textbox
'je suppose que leur nom est Textbox + leur index
me.controls("TextBox" & A).Text = .range("A1").Offset(A).Value
next
End with
End sub
Salutations!
"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de news:15ec01c49b2a$b67502f0$a601280a@phx.gbl...
Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y
ai mis 7 pages ayant en tout plus de 130 textbox qui
doivent aller chercher de l'information sur une ligne
Excel (l'information étant sur les 130 colonnes, partant
la colonne A ).
Seulement, je ne sais pas comment aller chercher cette
information pour qu'elle apparaisse dans le textbox1 par
exemple...
J'ai essayé
Private Sub MultiPage1_Change()
TextBox1.Text = ActiveCell.Offset(-1, 0).Value
End Sub
Private Sub UserForm_Initialize()
TextBox1.Text = ActiveCell.Offset(-1, 0).Value
End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en
ai pour longtemps....
With Worksheets("Feuil1") ' à adapter For A = 1 to 130 '130 = Nombre de textbox 'je suppose que leur nom est Textbox + leur index me.controls("TextBox" & A).Text = .range("A1").Offset(A).Value next End with End sub
Salutations!
"Denys" a écrit dans le message de news:15ec01c49b2a$b67502f0$ Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y ai mis 7 pages ayant en tout plus de 130 textbox qui doivent aller chercher de l'information sur une ligne Excel (l'information étant sur les 130 colonnes, partant la colonne A ).
Seulement, je ne sais pas comment aller chercher cette information pour qu'elle apparaisse dans le textbox1 par exemple...
J'ai essayé
Private Sub MultiPage1_Change() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Private Sub UserForm_Initialize() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en ai pour longtemps....
Merci
Denys
isabelle
ou bien,
Private Sub UserForm_Initialize() Me.MultiPage(0).TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
ne pas oublier que les pages de la collection multipage sont numéroter de 0 à x MultiPage1 = MultiPage(0)
isabelle
Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y ai mis 7 pages ayant en tout plus de 130 textbox qui doivent aller chercher de l'information sur une ligne Excel (l'information étant sur les 130 colonnes, partant la colonne A ).
Seulement, je ne sais pas comment aller chercher cette information pour qu'elle apparaisse dans le textbox1 par exemple...
J'ai essayé
Private Sub MultiPage1_Change() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Private Sub UserForm_Initialize() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en ai pour longtemps....
Merci
Denys
ou bien,
Private Sub UserForm_Initialize()
Me.MultiPage(0).TextBox1.Text = ActiveCell.Offset(-1, 0).Value
End Sub
ne pas oublier que les pages de la collection multipage sont numéroter
de 0 à x
MultiPage1 = MultiPage(0)
isabelle
Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y
ai mis 7 pages ayant en tout plus de 130 textbox qui
doivent aller chercher de l'information sur une ligne
Excel (l'information étant sur les 130 colonnes, partant
la colonne A ).
Seulement, je ne sais pas comment aller chercher cette
information pour qu'elle apparaisse dans le textbox1 par
exemple...
J'ai essayé
Private Sub MultiPage1_Change()
TextBox1.Text = ActiveCell.Offset(-1, 0).Value
End Sub
Private Sub UserForm_Initialize()
TextBox1.Text = ActiveCell.Offset(-1, 0).Value
End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en
ai pour longtemps....
Private Sub UserForm_Initialize() Me.MultiPage(0).TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
ne pas oublier que les pages de la collection multipage sont numéroter de 0 à x MultiPage1 = MultiPage(0)
isabelle
Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y ai mis 7 pages ayant en tout plus de 130 textbox qui doivent aller chercher de l'information sur une ligne Excel (l'information étant sur les 130 colonnes, partant la colonne A ).
Seulement, je ne sais pas comment aller chercher cette information pour qu'elle apparaisse dans le textbox1 par exemple...
J'ai essayé
Private Sub MultiPage1_Change() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Private Sub UserForm_Initialize() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en ai pour longtemps....
Merci
Denys
michdenis
j'ai omis la virgule dans cette expression
.range("A1").Offset(,A).Value
Salutations!
"michdenis" a écrit dans le message de news:eaW% Bonjour Denys,
Essaie ceci :
Private Sub UserForm_Initialize()
With Worksheets("Feuil1") ' à adapter For A = 1 to 130 '130 = Nombre de textbox 'je suppose que leur nom est Textbox + leur index me.controls("TextBox" & A).Text = .range("A1").Offset(A).Value next End with End sub
Salutations!
"Denys" a écrit dans le message de news:15ec01c49b2a$b67502f0$ Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y ai mis 7 pages ayant en tout plus de 130 textbox qui doivent aller chercher de l'information sur une ligne Excel (l'information étant sur les 130 colonnes, partant la colonne A ).
Seulement, je ne sais pas comment aller chercher cette information pour qu'elle apparaisse dans le textbox1 par exemple...
J'ai essayé
Private Sub MultiPage1_Change() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Private Sub UserForm_Initialize() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en ai pour longtemps....
Merci
Denys
j'ai omis la virgule dans cette expression
.range("A1").Offset(,A).Value
Salutations!
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:eaW%23JOzmEHA.3712@TK2MSFTNGP15.phx.gbl...
Bonjour Denys,
Essaie ceci :
Private Sub UserForm_Initialize()
With Worksheets("Feuil1") ' à adapter
For A = 1 to 130 '130 = Nombre de textbox
'je suppose que leur nom est Textbox + leur index
me.controls("TextBox" & A).Text = .range("A1").Offset(A).Value
next
End with
End sub
Salutations!
"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de news:15ec01c49b2a$b67502f0$a601280a@phx.gbl...
Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y
ai mis 7 pages ayant en tout plus de 130 textbox qui
doivent aller chercher de l'information sur une ligne
Excel (l'information étant sur les 130 colonnes, partant
la colonne A ).
Seulement, je ne sais pas comment aller chercher cette
information pour qu'elle apparaisse dans le textbox1 par
exemple...
J'ai essayé
Private Sub MultiPage1_Change()
TextBox1.Text = ActiveCell.Offset(-1, 0).Value
End Sub
Private Sub UserForm_Initialize()
TextBox1.Text = ActiveCell.Offset(-1, 0).Value
End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en
ai pour longtemps....
"michdenis" a écrit dans le message de news:eaW% Bonjour Denys,
Essaie ceci :
Private Sub UserForm_Initialize()
With Worksheets("Feuil1") ' à adapter For A = 1 to 130 '130 = Nombre de textbox 'je suppose que leur nom est Textbox + leur index me.controls("TextBox" & A).Text = .range("A1").Offset(A).Value next End with End sub
Salutations!
"Denys" a écrit dans le message de news:15ec01c49b2a$b67502f0$ Bonjour à tous,
J'ai créé un Userform dans lequel il y a un Multipage. J'y ai mis 7 pages ayant en tout plus de 130 textbox qui doivent aller chercher de l'information sur une ligne Excel (l'information étant sur les 130 colonnes, partant la colonne A ).
Seulement, je ne sais pas comment aller chercher cette information pour qu'elle apparaisse dans le textbox1 par exemple...
J'ai essayé
Private Sub MultiPage1_Change() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Private Sub UserForm_Initialize() TextBox1.Text = ActiveCell.Offset(-1, 0).Value End Sub
Ca ne fonctionne pas.... pourriez-vous m'aider, car j'en ai pour longtemps....
Merci
Denys
Denys
Bonjour Denis et Isabelle,
Merci beaucoup pour vos réponses. Excusez-moi de ne pas avoir répondu plus tôt, j'ai dû quitter précipitamment
J'essaie tout cela et vous reviens...
Merci encore
Denys
Bonjour Denis et Isabelle,
Merci beaucoup pour vos réponses. Excusez-moi de ne pas
avoir répondu plus tôt, j'ai dû quitter précipitamment
