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
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" a écrit dans le message de news:
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
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" <andre260@cegetel.net> a écrit dans le message de news:
mn.5c337d818c4e5566.51150@cegetel.net...
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
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" a écrit dans le message de news:
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
Oups. J'ai rien dit. au temps pour moi. Daniel "Daniel.C" a écrit dans le message de news:
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" a écrit dans le message de news:
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
Oups. J'ai rien dit. au temps pour moi.
Daniel
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Ot8mtdHVIHA.4972@TK2MSFTNGP02.phx.gbl...
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" <andre260@cegetel.net> a écrit dans le message de news:
mn.5c337d818c4e5566.51150@cegetel.net...
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
Oups. J'ai rien dit. au temps pour moi. Daniel "Daniel.C" a écrit dans le message de news:
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" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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 à 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" <andre260@cegetel.net> a écrit dans le message de news:
mn.5c337d818c4e5566.51150@cegetel.net...
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
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" a écrit dans le message de news:
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
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
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
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
Ca fonctionne chez moi : http://cjoint.com/?bltnHpeOW4 Combien y a-t-il de cellules dans la plage de cellules du rowsource ? Daniel "andre" a écrit dans le message de news:
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" a écrit dans le message de news:
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
Ca fonctionne chez moi :
http://cjoint.com/?bltnHpeOW4
Combien y a-t-il de cellules dans la plage de cellules du rowsource ?
Daniel
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.5c767d81791c2f50.51150@cegetel.net...
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" <andre260@cegetel.net> a écrit dans le message de news:
mn.5c337d818c4e5566.51150@cegetel.net...
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
Ca fonctionne chez moi : http://cjoint.com/?bltnHpeOW4 Combien y a-t-il de cellules dans la plage de cellules du rowsource ? Daniel "andre" a écrit dans le message de news:
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" a écrit dans le message de news:
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
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 à 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
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
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
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
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
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
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
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
voici un fichier exemple : http://cjoint.com/?blvdqwWF0y
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
voici un fichier exemple : http://cjoint.com/?blvdqwWF0y
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
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
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+
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+
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+