sur une feuille "CALCUL ET FEUILLE DE SCORES" je voudrais recuperer la plage
"B1:F120" et l'afficher dans mon Userform grace au spreadsheet en "B1:F120",
ou dans un autre controle.
j'ais donc place la macro dans la partie initialize de mon Userform pour
initialiser mon affichage ca me sort un code d'erreur.
Erreur 451
property LET non definie dans property GET
peut etre ca vien de excel 2000 sinon je sais pas.
Voici le code que michdenis m'a donner
'------------------------------
Private Sub CommandButton1_Click()
Dim Rg As Range
With Worksheets("CALCUL ET FEUILLE DE SCORES")
Set Rg = .Range("B1:B1:F120")
End With
With Spreadsheet1
.Range(.Range("B1"), .Cells(Rg.Rows.Count, _
Rg.Columns.Count + Rg(1).Column)).Value = Rg.Value
End With
Set Rg = Nothing
Ouf ! ça fait 2 nuits blanches que je passe sur le sujet !
;-)))
Merci d'avoir assuré le suivi.
Salutations!
"Daniel.M" a écrit dans le message de news:% Salut Denis,
Je viens de réaliser que j'avais mal compris le problème : pas vu qu'il s'agissait d'une feuille ActiveX MSOWC placée à l'intérieur du userform.
Donc, mon code ne valait que s'il s'agissait d'un transfert d'une feuille à une autre, pas d'une feuille à MSOWC (MS Office Web Component).
Salutations,
Daniel M.
"Denis Michon" wrote in message news:2mffd.97206$
Bonsoir Daniel,
As-tu testé ton code ? Si oui sur quelle version d'excel ? Sous excel 2002, la méthode Resize de l'objet Range du
SpreadSheet1 n'existe pas !! Pas besoin de te dire que ça va mal à la shop !!! ;-))
Salutations!
"Daniel.M" a écrit dans le message de news:%
Allo Denis et Lyss,
Pour les afficionados de la simplification,
Private Sub UserForm_Initialize()
With Worksheets("La Feuille").Range("B1:F120") Spreadsheet1.Range("B1").Resize(.Rows.Count, .Columns.Count) = .Value End With
End Sub
AMA, il y a moins de risque d'erreur si on déplace la destination (C5 au lieu de
B1 par exemple) puisque ça ne nécessitera qu'un seul changement. Il en va de même pour la source.
Salutations,
Daniel M.
Lyss
Salut les gens,
Pour mon probleme c'est pas un controle web, c'est juste une controle spreadsheet qu' on peu placer dans un Userform et je pensais qu'on pouvais ylui passer des données vennant d'une feuille de mon classeur excel.
Sinon je vous remercie vraiment de continuer a plancher sur ce probleme au bout de 8 jours.
Merci vraiment. A+
"michdenis" a écrit dans le message de news:
Ouf ! ça fait 2 nuits blanches que je passe sur le sujet !
;-)))
Merci d'avoir assuré le suivi.
Salutations!
"Daniel.M" a écrit dans le message de news:%
Salut Denis,
Je viens de réaliser que j'avais mal compris le problème : pas vu qu'il s'agissait d'une feuille ActiveX MSOWC placée à l'intérieur du userform.
Donc, mon code ne valait que s'il s'agissait d'un transfert d'une feuille à une
autre, pas d'une feuille à MSOWC (MS Office Web Component).
Salutations,
Daniel M.
"Denis Michon" wrote in message news:2mffd.97206$
Bonsoir Daniel,
As-tu testé ton code ? Si oui sur quelle version d'excel ? Sous excel 2002, la
méthode Resize de l'objet Range du
SpreadSheet1 n'existe pas !! Pas besoin de te dire que ça va mal à la shop !!!
;-))
Salutations!
"Daniel.M" a écrit dans le message de news:%
Allo Denis et Lyss,
Pour les afficionados de la simplification,
Private Sub UserForm_Initialize()
With Worksheets("La Feuille").Range("B1:F120") Spreadsheet1.Range("B1").Resize(.Rows.Count, .Columns.Count) .Value End With
End Sub
AMA, il y a moins de risque d'erreur si on déplace la destination (C5 au lieu
de
B1 par exemple) puisque ça ne nécessitera qu'un seul changement. Il en va de
même pour la source.
Salutations,
Daniel M.
Salut les gens,
Pour mon probleme c'est pas un controle web, c'est juste une controle
spreadsheet qu' on peu placer dans un Userform et je pensais qu'on pouvais
ylui passer des données vennant d'une feuille de mon classeur excel.
Sinon je vous remercie vraiment de continuer a plancher sur ce probleme au
bout de 8 jours.
Merci vraiment. A+
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:ufm5usBvEHA.3896@TK2MSFTNGP09.phx.gbl...
Ouf ! ça fait 2 nuits blanches que je passe sur le sujet !
;-)))
Merci d'avoir assuré le suivi.
Salutations!
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans le message de
news:%235WKsmBvEHA.3752@TK2MSFTNGP10.phx.gbl...
Salut Denis,
Je viens de réaliser que j'avais mal compris le problème : pas vu qu'il
s'agissait d'une feuille ActiveX MSOWC placée à l'intérieur du userform.
Donc, mon code ne valait que s'il s'agissait d'un transfert d'une feuille
à une
autre, pas d'une feuille à MSOWC (MS Office Web Component).
Salutations,
Daniel M.
"Denis Michon" <denis.michon@cgocable.ca> wrote in message
news:2mffd.97206$0f.41602@charlie.risq.qc.ca...
Bonsoir Daniel,
As-tu testé ton code ? Si oui sur quelle version d'excel ? Sous excel
2002, la
méthode Resize de l'objet Range du
SpreadSheet1 n'existe pas !! Pas besoin de te dire que ça va mal à la
shop !!!
;-))
Salutations!
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans le message de
news:%23gTljKuuEHA.1404@TK2MSFTNGP11.phx.gbl...
Allo Denis et Lyss,
Pour les afficionados de la simplification,
Private Sub UserForm_Initialize()
With Worksheets("La Feuille").Range("B1:F120")
Spreadsheet1.Range("B1").Resize(.Rows.Count, .Columns.Count) .Value
End With
End Sub
AMA, il y a moins de risque d'erreur si on déplace la destination (C5 au
lieu
de
B1 par exemple) puisque ça ne nécessitera qu'un seul changement. Il en
va de
Pour mon probleme c'est pas un controle web, c'est juste une controle spreadsheet qu' on peu placer dans un Userform et je pensais qu'on pouvais ylui passer des données vennant d'une feuille de mon classeur excel.
Sinon je vous remercie vraiment de continuer a plancher sur ce probleme au bout de 8 jours.
Merci vraiment. A+
"michdenis" a écrit dans le message de news:
Ouf ! ça fait 2 nuits blanches que je passe sur le sujet !
;-)))
Merci d'avoir assuré le suivi.
Salutations!
"Daniel.M" a écrit dans le message de news:%
Salut Denis,
Je viens de réaliser que j'avais mal compris le problème : pas vu qu'il s'agissait d'une feuille ActiveX MSOWC placée à l'intérieur du userform.
Donc, mon code ne valait que s'il s'agissait d'un transfert d'une feuille à une
autre, pas d'une feuille à MSOWC (MS Office Web Component).
Salutations,
Daniel M.
"Denis Michon" wrote in message news:2mffd.97206$
Bonsoir Daniel,
As-tu testé ton code ? Si oui sur quelle version d'excel ? Sous excel 2002, la
méthode Resize de l'objet Range du
SpreadSheet1 n'existe pas !! Pas besoin de te dire que ça va mal à la shop !!!
;-))
Salutations!
"Daniel.M" a écrit dans le message de news:%
Allo Denis et Lyss,
Pour les afficionados de la simplification,
Private Sub UserForm_Initialize()
With Worksheets("La Feuille").Range("B1:F120") Spreadsheet1.Range("B1").Resize(.Rows.Count, .Columns.Count) .Value End With
End Sub
AMA, il y a moins de risque d'erreur si on déplace la destination (C5 au lieu
de
B1 par exemple) puisque ça ne nécessitera qu'un seul changement. Il en va de
même pour la source.
Salutations,
Daniel M.
Lyss
Salut à tous, surtout Mich et Daniel,
Tout d'abord merci de votre aide mais compte tenu des problèmes rencontrés concernant cette solution, j'ais décider d'utiliser un contrôle listbox. C'est beaucoup moins bien, mais bon, ça à le mérite de marcher.
Je réitère mes remerciements et vous souhaite une bonne nuit.
Salutations.
"Lyss" a écrit dans le message de news:
Bon voila,
sur une feuille "CALCUL ET FEUILLE DE SCORES" je voudrais recuperer la plage
"B1:F120" et l'afficher dans mon Userform grace au spreadsheet en "B1:F120",
ou dans un autre controle.
j'ais donc place la macro dans la partie initialize de mon Userform pour initialiser mon affichage ca me sort un code d'erreur.
Erreur 451 property LET non definie dans property GET
peut etre ca vien de excel 2000 sinon je sais pas.
Voici le code que michdenis m'a donner
'------------------------------ Private Sub CommandButton1_Click()
Dim Rg As Range
With Worksheets("CALCUL ET FEUILLE DE SCORES") Set Rg = .Range("B1:B1:F120") End With
With Spreadsheet1 .Range(.Range("B1"), .Cells(Rg.Rows.Count, _ Rg.Columns.Count + Rg(1).Column)).Value = Rg.Value End With Set Rg = Nothing
End Sub '------------------------------
Salutation et Merci.
Salut à tous, surtout Mich et Daniel,
Tout d'abord merci de votre aide mais compte tenu des problèmes rencontrés
concernant cette solution, j'ais décider d'utiliser un contrôle listbox.
C'est beaucoup moins bien, mais bon, ça à le mérite de marcher.
Je réitère mes remerciements et vous souhaite une bonne nuit.
Salutations.
"Lyss" <lyssandre63@hotmail.com> a écrit dans le message de
news:ejA1ovruEHA.200@TK2MSFTNGP11.phx.gbl...
Bon voila,
sur une feuille "CALCUL ET FEUILLE DE SCORES" je voudrais recuperer la
plage
"B1:F120" et l'afficher dans mon Userform grace au spreadsheet en
"B1:F120",
ou dans un autre controle.
j'ais donc place la macro dans la partie initialize de mon Userform pour
initialiser mon affichage ca me sort un code d'erreur.
Erreur 451
property LET non definie dans property GET
peut etre ca vien de excel 2000 sinon je sais pas.
Voici le code que michdenis m'a donner
'------------------------------
Private Sub CommandButton1_Click()
Dim Rg As Range
With Worksheets("CALCUL ET FEUILLE DE SCORES")
Set Rg = .Range("B1:B1:F120")
End With
With Spreadsheet1
.Range(.Range("B1"), .Cells(Rg.Rows.Count, _
Rg.Columns.Count + Rg(1).Column)).Value = Rg.Value
End With
Set Rg = Nothing
Tout d'abord merci de votre aide mais compte tenu des problèmes rencontrés concernant cette solution, j'ais décider d'utiliser un contrôle listbox. C'est beaucoup moins bien, mais bon, ça à le mérite de marcher.
Je réitère mes remerciements et vous souhaite une bonne nuit.
Salutations.
"Lyss" a écrit dans le message de news:
Bon voila,
sur une feuille "CALCUL ET FEUILLE DE SCORES" je voudrais recuperer la plage
"B1:F120" et l'afficher dans mon Userform grace au spreadsheet en "B1:F120",
ou dans un autre controle.
j'ais donc place la macro dans la partie initialize de mon Userform pour initialiser mon affichage ca me sort un code d'erreur.
Erreur 451 property LET non definie dans property GET
peut etre ca vien de excel 2000 sinon je sais pas.
Voici le code que michdenis m'a donner
'------------------------------ Private Sub CommandButton1_Click()
Dim Rg As Range
With Worksheets("CALCUL ET FEUILLE DE SCORES") Set Rg = .Range("B1:B1:F120") End With
With Spreadsheet1 .Range(.Range("B1"), .Cells(Rg.Rows.Count, _ Rg.Columns.Count + Rg(1).Column)).Value = Rg.Value End With Set Rg = Nothing
