VBA copy dans spreedsheet

Résolu/Fermé
informatifien Messages postés 741 Date d'inscription lundi 18 mai 2009 Statut Membre Dernière intervention 10 janvier 2016 - 26 oct. 2009 à 10:19
informatifien Messages postés 741 Date d'inscription lundi 18 mai 2009 Statut Membre Dernière intervention 10 janvier 2016 - 27 oct. 2009 à 11:54
Salut c'est encore moi,

je viens d'avoir la solution pour la copie d'une plage de cellule dans ce post là:

https://forums.commentcamarche.net/forum/affich-14900601-vba-selection-plage-de-cellule

maintenant je souhaiterai coller ma séléction dans un spreedsheet (Affiche) se trouvant dans un UserForm(AffConsu) voici ce que j'ai tenté :

Cells(a, 5).Resize(3, b - 5).Select
Selection.Copy
AffConsu.ActiveControl
Affiche.ActiveWindow
Feuil1.Activate
Range("A1").PasteSpecial Paste:=xlPasteAll


le message utilisation incorrecte de la propriété s'affiche en s'arretant sur AffConsu.ActiveControl

Je précise encore que je débute et donc j'avance à taton voir au hasard par moment merci de votre compréhenssion
A voir également:

8 réponses

informatifien Messages postés 741 Date d'inscription lundi 18 mai 2009 Statut Membre Dernière intervention 10 janvier 2016 92
26 oct. 2009 à 13:46
Bon toujours pas d'idée ? alleeeeez s'il vous plait :-)
0
informatifien Messages postés 741 Date d'inscription lundi 18 mai 2009 Statut Membre Dernière intervention 10 janvier 2016 92
27 oct. 2009 à 09:34
bon ben zut alors personne n'a d'idée . . .
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
27 oct. 2009 à 09:48
Salut,
Je vais tenter de t'aider mais... il y a 5 minutes je ne connaissais pas l'objet "Spreadsheet"!!
Bon il s'agit, si je ne m'abuse d'un contrôle comme les autres. Alors pourquoi copier - coller ?
Tu peux, peut être essayer un truc du genre :
With Sheets("Feuil1")
Me.Spreadsheet1.Cells(1, 1) = .Cells(1, 1)
Me.Spreadsheet1.Cells(2, 1) = .Cells(2, 1)
etc...
End With
0
informatifien Messages postés 741 Date d'inscription lundi 18 mai 2009 Statut Membre Dernière intervention 10 janvier 2016 92
27 oct. 2009 à 10:40
ah merci, merci mais là tu te rend compte le taf je peux avoir jusqu'à 30 voir plus de cellules. . .et en plus ta methode ne prend pas en compte la variable.. . . par contre à default de pas connaitre le spreedsheet, si tu as une autre solution pour que j'affiche ma plage de cellule dans l'USF ça m'interesse mon but est d'afficher plus visuellement certaine de mes données....
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
informatifien Messages postés 741 Date d'inscription lundi 18 mai 2009 Statut Membre Dernière intervention 10 janvier 2016 92
27 oct. 2009 à 10:57
en plus ej crois que je suis pas loin avec mon code car j'ai à un moemnt reussi a bien coller mas copy mais sur le classeur lui meme donc j'ai seulement un problème pour selectionner la cellule A1 du spreedsheet en faite il me manque le code qui :

j'active mon USF,j'active spreedsheet,j'active Feuil1,j'active A1 et ej colle ma selection si je code bien cette commande ça devrait marcher.. . .. tu me suis?
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
27 oct. 2009 à 11:04
En fait, c'est tout bête........

Cells(a, 5).Resize(3, b - 5).Copy 'copie les cellules voulues
Spreadsheet1.Cells(1, 1).Paste 'les colle dans ton Spread à partir de A1
0
informatifien Messages postés 741 Date d'inscription lundi 18 mai 2009 Statut Membre Dernière intervention 10 janvier 2016 92
27 oct. 2009 à 11:46
alors là moi je dis bravo à toi et bouuuuu à moi depuis hier je teste et change des synthaxe dans mon code avec 5 ou 6 ligne toi tu me sort ça avec 2 lol trop fort ! ! !
et ça marche biensur exelent


Merci beaucoup c'est trop cool
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
27 oct. 2009 à 11:52
Content de t'avoir aidé. En plus j'ai découvert, grâce à ta requête, un nouveau contrôle supplémentaire qui m'a l'air ma foi fort sympathique. Je l'explore depuis tout à l'heure...
@ + et n'hésite pas
0
informatifien Messages postés 741 Date d'inscription lundi 18 mai 2009 Statut Membre Dernière intervention 10 janvier 2016 92
27 oct. 2009 à 11:54
ben je devrai pas tarder à poster un nouveau topic j'ai un autre souci bien plus tordu ;)

0