Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1492 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  insertion tableau sur case selectionée

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

insertion tableau sur case selectionée

n°2134481
gauffre21
Posté le 03-04-2012 à 11:07:47  profilanswer
 

Bonjour,
 
Comme la plupar des personne qui pose des question je suis novice en VBA, je comprend tout de même assez facilement ce code car je sais deja programmer en C.
 
voici mon probleme
 
Je dois réaliser une fiche de production et pour ce faire je dois inserer des tableaux sur une feuille. Ces tableau son existant sur une autre feuille, j'arrive grace au macro à les inserer mais à un endroit préci grace au code suivant  
 
Sub eclairage()
 
Worksheets("base de donnée" ).Range("A30:D32" ).Copy Worksheets("proto 1" ).Range("A39" )
 
End Sub
 
 
Mon probleme est le suivant, je voudrais inserer ce tableau non pas dans la case "A39" mais dans une case selectioné  
 
Merci par avance de votre aide

mood
Publicité
Posté le 03-04-2012 à 11:07:47  profilanswer
 

n°2134506
vave
Nice to meet me
Posté le 03-04-2012 à 14:00:10  profilanswer
 

Bonjour,
 
Voici ce que tu peux faire :
 

Code :
  1. Sub Test()
  2. Dim cellule As Range
  3. Set cellule = ActiveCell
  4. Worksheets("base de donnée" ).Range("A30:D32" ).Copy cellule
  5. Set cellule = Nothing
  6. End Sub


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
n°2134511
gauffre21
Posté le 03-04-2012 à 14:08:42  profilanswer
 

yes!!!!!!
 
sa marche  
 
merci beaucoup, malgrée le faite que je comprenne un peut ce language j'aimerais que tu m'explique ta méthode pour résoudre ce probleme.
 
en effet c'est génial sa marche mais si je pouvais utilisé moi même mes cellules grise ce serais mieux ^^
 
en tout cas merci encore

n°2134523
vave
Nice to meet me
Posté le 03-04-2012 à 14:43:50  profilanswer
 

:jap:  
 
Alors, en premier, tu déclares une variable en tant qu'objet cellule (ou plage de cellules)

Code :
  1. Dim cellule As Range


 
Pour l'instant, ton objet est non alloué, donc null.
Donc, on dit que ton objet est égal à l'objet cellule active

Code :
  1. Set cellule = ActiveCell


En faisant ça, ce qui est intéressant, c'est que ton objet cellule récupère toutes les caractéristiques et méthodes d'une cellule normale.
 
Ensuite, tu remplace le code d'origine par l'objet :

Code :
  1. Worksheets("base de donnée" ).Range("A30:D32" ).Copy Worksheets("proto 1" ).Range("A39" )
  2. Worksheets("base de donnée" ).Range("A30:D32" ).Copy cellule


Donc là, tu remarqueras que ton objet cellule est égal à une cellule très précise (onglet + adresse de la cellule).
 
Quand tu n'as plus besoin de manipuler ton objet, tu le détruis pour désallouer la mémoire :

Code :
  1. Set cellule = Nothing


 
 
Voilà, j'espère que c'est clair, sinon, tu peux demander, j'essaierai de répondre  :)


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
n°2134529
gauffre21
Posté le 03-04-2012 à 14:55:22  profilanswer
 

Encore un grand merci pour ton aide et tes explication tres presise et tres claire.
 
J'ai tout compris


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  insertion tableau sur case selectionée

 

Sujets relatifs
Tableau - revenir au début si déplacement trop grandcréer un tableau php avec tri et plusieurs tables...
[RESOLU] EXT-JS 4 : tableau avec pagination + triJavascript dans tableau Html
[RESOLU] Problème de cration de tableau avec ExtJS 4méthode en java qui permet de séléctionner une chaine dans un tableau
pointeur de tableau 2D d'entiers...Liste déroulante mysql (affichage + insertion)
Fonction qui retourne un tableau dynamiquecouleur de cellule tableau automatique fichier odt php
Plus de sujets relatifs à : insertion tableau sur case selectionée


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR