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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Balayages feuille excel et recopie de certaines cellules

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Balayages feuille excel et recopie de certaines cellules

n°1368457
I_need_hel​p
Posté le 17-05-2006 à 09:43:32  profilanswer
 

Bonjour, je souhaiterai faire le balayage d'une feuille excel, qui contient plusieurs tableaux avec des informations bien distinct et à chaque fois que je rencontre un nom bien précis ( ex Paul ) que les cellules liées à cette ligne et ce nom soit recopier vers une autre feuille ( ex feuille de Paul ). Je souhaiterais ainsi synthétiser les informations concernant uniquement une personne et pourvoir imprimer uniquement les informations qui le concerne.
 
EX  
 
Tableau 1                                                       Tableau 2
   
jean       camion       vert     200               paul        table      poire      12
mike       voiture      rouge     45                mike       chaise    pomme    4568
jean       vélo          mauve   4582             marc      canapé    prune  45
paul        tram          mauve   458             paul        bureau   figue  45869        
                                                            john        banc      mangue     45
                                                            paul        lampe      orange    5468
 
 
resultat
 
une feuille pour Paul avec les informations suivantes
 
paul        tram          mauve   458
paul        table      poire      12
paul        bureau   figue  45869  
paul        lampe      orange    
 
 
Une feuille pour Mike
 
mike       voiture      rouge     45
mike       chaise    pomme    4568
 
 
etc. etc ...
 
Me concernant, je débute en programmation mais j'ai quelques notions en Vb script.
Votre aide sera d'un grand secours
En vous remerciant par avance
 
 
 
 
       
 
 

mood
Publicité
Posté le 17-05-2006 à 09:43:32  profilanswer
 

n°1368776
DamienCYS
Posté le 17-05-2006 à 14:45:54  profilanswer
 

Pourquoi ne pas utiliser un tableau croisé dynamique par feuille en filtrant sur le nom de la personne, par contre avec cette solution 2 ligne identiques seront regroupées

n°1368886
I_need_hel​p
Posté le 17-05-2006 à 15:49:38  profilanswer
 

Tout d'abord merci damienCYS pour ta réponse. La solution que je recherche ne doit pas avoir de fusion/regroupement. Recopier tel quel

n°1368989
DamienCYS
Posté le 17-05-2006 à 16:58:50  profilanswer
 

une piste alors  
 
Do While Range(ColonneRefDebut & CompteurLignes).Value <> "" // parcours le tableau jusqu'a valeur vide
  Range(ColonneRefDebut & CompteurLignes +":"ColonneRefFin & CompteurLignes).copy    //copier les colonne que tu veu
 
  select case Range(ColonneRefDebut & CompteurLignes).Value  //selectionne la bonne feuille
     case "Paul"
        sheets("feuille de paul" ).select
     case "Jean"
        sheets("feuille de jean" ).select
  end select
 
  Selection.End(xlDown).Select //se place sur la dernière ligne remplie
  Range(ColonneRefDebut & Selection.Row + 1).Select //passe à la suivante
  ActiveSheet.Paste //collage des valeurs
  sheets("feuille départ" ).select  //retour sur la feuille globale
Loop


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

  Balayages feuille excel et recopie de certaines cellules

 

Sujets relatifs
Retournement disposition cellulesComment imprimer un fichier Excel sous VB ?
[macro excel Modifier tout les lien hypertexteLire un fichier excel en php
Excel, quelle fonction/macro utiliser ?exécuter une requête sql sur un fichier excel
[JExcelAPI] Modifier un fichier excelmacro excel pour récupérer cellules
Le meme script marche sur certaines pages et pas sur d'autres 
Plus de sujets relatifs à : Balayages feuille excel et recopie de certaines cellules


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