Recherche dans tableau et copie de lignes

Marsh Posté le 06-01-2010 à 22:11:48

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

Marsh Posté le 06-01-2010 à 22:11:48

Marsh Posté le 07-01-2010 à 05:24:28

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 :

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

Uoilà.

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

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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *