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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Recherche dans tableau et copie de lignes

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Recherche dans tableau et copie de lignes

n°1955671
phil59300
Posté le 06-01-2010 à 22:11:48  profilanswer
 

Bonjour,
 
Voici un exemple simple de ce que je souhaiterais réaliser :
 
Dans un tableau contenant certaines cellules vides dans la première colonne, du style :
 
1   a   b  c  d  e
     f   g  h   i   j
2   k   l   m  n  o
3   p   q  r   s  t
     u   v  w  x  y
     z   a  b  c  d
4   e   f   g  h   i
 
je souhaiterais par macro sur excel, trouver par exemple le nombre 3, puis copier les 3 lignes qui lui correspondent (ces lignes peuvent être plus nombreuses éventuellement), et les copier dans une autre feuille, pour les remettre en forme et imprimer. Une recherche des cases vides semblent nécessaire pour ne sélectionner que les données qui correspondent au nombre 3.
 
Merci d'avance à l'äme généreuse qui pourrait m'aider.
Bonne année
 

mood
Publicité
Posté le 06-01-2010 à 22:11:48  profilanswer
 

n°1955715
Laoo
Posté le 07-01-2010 à 05:24:28  profilanswer
 

Bonjour, et Bonne Année à toi aussi.
 
Voici une macro pour ta demande.  
J'ai pris l'option copie du paquet. Est-ce ça, ou dois-tu prendre ligne par ligne?  
 

Code :
  1. Sub ZZZ()
  2. On Error GoTo fin 
  3. Range("A1" ).Select
  4. Nombre = InputBox("Entrez le nombre à chercher." )
  5. Columns(1).Find(Nombre).Select    ' si tu cherches en colonne 1
  6. Premier = ActiveCell.Row   'donne la ligne du nombre cherché
  7. ActiveCell.Offset(1, 0).Select
  8. While ActiveCell = ""
  9. ActiveCell.Offset(1, 0).Select
  10. Wend
  11. Dernier = ActiveCell.Offset(-1, 0).Row    'donne la Dernière ligne de "3"
  12. Range("B" & Premier, "B" & Dernier).Select   'si +sieurs clonnes, change le 2° "B"
  13. Selection.Copy
  14. Exit Sub
  15. fin:
  16. MsgBox("Le Nombre demandé n'a pas été trouvé." )
  17. End Sub


 
Uoilà.


Message édité par Laoo le 07-01-2010 à 05:36:29

---------------
Olympus OM-D  EM-5 + 14-42

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

  Recherche dans tableau et copie de lignes

 

Sujets relatifs
Tri de tableaucréer un tableau a partir d'une chaine
Choisir entre une liste de variables ou un tableau[Excel]Connaître la dernière ligne d'un tableau
[PHP] Comment coder un moteur de recherche sur mon site ?[excel vba] virer les espaces et retour à la lignes
rechercheEntrer des données dans un tableau initialement vide
Donner source tableau variableCopier/coller uniquement les cellules visbles d'un tableau Excel
Plus de sujets relatifs à : Recherche dans tableau et copie de lignes


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