multipage

Le
andre
Bonjour,
toujours dans mon multipage
j'ai insere se code
Private Sub UserForm_Initialize()
Multipage1.Value = 0
Me.Choix_Adh.RowSource = "Adh_Individuel!A2:A" &
_Sheets("Adh_Individuel").[A500].End(xlUp).Row
End Sub
or le listing ne s'affiche pas
j'ai bien enlevé la plage dans les proprietes du rowsource
precision c'est la page 3 index 2
qu'ai je omis
merci

--
andre
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5335081
Bonsoir.
Dans un rowsource, tu dois mettre l'adresse de la plage :
Me.Choix_Adh.RowSource = "Adh_Individuel!A2:A" &
_Sheets("Adh_Individuel").[A500].End(xlUp).Row.address
Cordialement.
Daniel
"andre"
Bonjour,
toujours dans mon multipage
j'ai insere se code
Private Sub UserForm_Initialize()
Multipage1.Value = 0
Me.Choix_Adh.RowSource = "Adh_Individuel!A2:A" &
_Sheets("Adh_Individuel").[A500].End(xlUp).Row
End Sub
or le listing ne s'affiche pas
j'ai bien enlevé la plage dans les proprietes du rowsource
precision c'est la page 3 index 2
qu'ai je omis
merci

--
andre




Daniel.C
Le #5335051
Oups. J'ai rien dit. au temps pour moi.
Daniel
"Daniel.C"
Bonsoir.
Dans un rowsource, tu dois mettre l'adresse de la plage :
Me.Choix_Adh.RowSource = "Adh_Individuel!A2:A" &
_Sheets("Adh_Individuel").[A500].End(xlUp).Row.address
Cordialement.
Daniel
"andre"
Bonjour,
toujours dans mon multipage
j'ai insere se code
Private Sub UserForm_Initialize()
Multipage1.Value = 0
Me.Choix_Adh.RowSource = "Adh_Individuel!A2:A" &
_Sheets("Adh_Individuel").[A500].End(xlUp).Row
End Sub
or le listing ne s'affiche pas
j'ai bien enlevé la plage dans les proprietes du rowsource
precision c'est la page 3 index 2
qu'ai je omis
merci

--
andre








andre
Le #5335041
andre à dit
Bonsoir.
Dans un rowsource, tu dois mettre l'adresse de la plage :
Me.Choix_Adh.RowSource = "Adh_Individuel!A2:A" &
_Sheets("Adh_Individuel").[A500].End(xlUp).Row.address
Cordialement.
Daniel
"andre"
Bonjour,daniel
desolé ca bug quand je mets : .row.address


ici :Private Sub ouv_multi_Click()
Adherents.Show 'erreur 424
End Sub
il n'ouvre plus le form
si je retire address ca marche

--
andre


isabelle
Le #5335031
bonjour André,

Private Sub UserForm_Initialize()
Me.MultiPage1.Pages(3).Controls(2).RowSource = _
"Adh_Individuel!A2:A" & Sheets("Adh_Individuel").[A500].End(xlUp).Row
End Sub

isabelle

Bonjour,
toujours dans mon multipage
j'ai insere se code
Private Sub UserForm_Initialize()
Multipage1.Value = 0
Me.Choix_Adh.RowSource = "Adh_Individuel!A2:A" &
_Sheets("Adh_Individuel").[A500].End(xlUp).Row
End Sub
or le listing ne s'affiche pas
j'ai bien enlevé la plage dans les proprietes du rowsource
precision c'est la page 3 index 2
qu'ai je omis
merci



Daniel.C
Le #5335011
Ca fonctionne chez moi :
http://cjoint.com/?bltnHpeOW4
Combien y a-t-il de cellules dans la plage de cellules du rowsource ?
Daniel
"andre"
andre à dit
Bonsoir.
Dans un rowsource, tu dois mettre l'adresse de la plage :
Me.Choix_Adh.RowSource = "Adh_Individuel!A2:A" &
_Sheets("Adh_Individuel").[A500].End(xlUp).Row.address
Cordialement.
Daniel
"andre"
Bonjour,daniel
desolé ca bug quand je mets : .row.address


ici :Private Sub ouv_multi_Click()
Adherents.Show 'erreur 424
End Sub
il n'ouvre plus le form
si je retire address ca marche

--
andre






andre
Le #5334981
andre à dit
Ca fonctionne chez moi :
http://cjoint.com/?bltnHpeOW4
Combien y a-t-il de cellules dans la plage de cellules du rowsource ?
Daniel
pour l'instant je suis a preque 300 cellules

j'essaye le code a isabelle

--
andre

andre
Le #5334951
andre à dit
bonjour André,

Private Sub UserForm_Initialize()
Me.MultiPage1.Pages(3).Controls(2).RowSource = _
"Adh_Individuel!A2:A" & Sheets("Adh_Individuel").[A500].End(xlUp).Row
End Sub

isabelle
bonsoir isabelle

question faut il que je renseigne le champ rowsource dans les
proprietes "Adh_Individuel!a1:I50" et mettre egalement ton code
car ton code tout seul me donne une erreur 5
mon user ne s'ouvre plus
andre

--
andre

isabelle
Le #5334861
bonjour André,

non c'est tel quel,

Me.MultiPage1.Pages(2).Controls(1).RowSource = _
"Adh_Individuel!A2:A" & Sheets("Adh_Individuel").[A500].End(xlUp).Row

note que s'il y a 3 pages et 2 controls sur cette page il faut écrire: Pages(2).Controls(1)
car l'index commence à 0 pour les pages et les controls

isabelle

andre à dit
bonjour André,

Private Sub UserForm_Initialize()
Me.MultiPage1.Pages(3).Controls(2).RowSource = _
"Adh_Individuel!A2:A" & Sheets("Adh_Individuel").[A500].End(xlUp).Row
End Sub

isabelle
bonsoir isabelle

question faut il que je renseigne le champ rowsource dans les
proprietes "Adh_Individuel!a1:I50" et mettre egalement ton code
car ton code tout seul me donne une erreur 5
mon user ne s'ouvre plus
andre




isabelle
Le #5334831
voici un fichier exemple : http://cjoint.com/?blvdqwWF0y

isabelle

bonjour André,

non c'est tel quel,

Me.MultiPage1.Pages(2).Controls(1).RowSource = _
"Adh_Individuel!A2:A" & Sheets("Adh_Individuel").[A500].End(xlUp).Row

note que s'il y a 3 pages et 2 controls sur cette page il faut écrire:
Pages(2).Controls(1)
car l'index commence à 0 pour les pages et les controls

isabelle

andre à dit
bonjour André,

Private Sub UserForm_Initialize()
Me.MultiPage1.Pages(3).Controls(2).RowSource = _
"Adh_Individuel!A2:A" & Sheets("Adh_Individuel").[A500].End(xlUp).Row
End Sub

isabelle
bonsoir isabelle

question faut il que je renseigne le champ rowsource dans les
proprietes "Adh_Individuel!a1:I50" et mettre egalement ton code
car ton code tout seul me donne une erreur 5
mon user ne s'ouvre plus
andre






andre
Le #5334781
andre à dit
bonjour André,

non c'est tel quel,

Me.MultiPage1.Pages(2).Controls(1).RowSource = _
"Adh_Individuel!A2:A" & Sheets("Adh_Individuel").[A500].End(xlUp).Row

note que s'il y a 3 pages et 2 controls sur cette page il faut écrire:
Pages(2).Controls(1)
car l'index commence à 0 pour les pages et les controls
C'est Ok pour les index ils sont bons

mais qu'appelles tu les control
j'ai trouvé le 1er bug sur la non ouverture de l'user mais rien dans
dans le listbox si je mets le code
je cherche
a+

--
andre

Publicité
Poster une réponse
Anonyme