Discussion :

[pradaseven]

Salut !!
J'ai un Gros problem.Je cherche une valeur sur plusieurs pages puis copier les lignes sur les lequelles ont a trouvé la valeur cherché sur une autre page.
Mon probleme :Ma macro me fait la recherche mais elle ne me copie pas les lignes(Cause je sais pas comment les selectionné toutes) .
Alors je vous demande de l'aide!!
Merci

[Invité]

Bonjour

Ma macro me fait la recherche mais elle ne me copie pas les lignes(Cause je sais pas comment les selectionné toutes) .

Et si tu nous donnais déjà la macro que tu utilises pour que les membres du forum puissent t'aider à la poursuivre.

Philippe

[pradaseven]

voici jusqu'ou je suis arrivée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Macro1()
 
Dim chercher
Dim texto As String, titulo As String
 
  test = Cells(2, 5).Value
  If Len(test) <> 10 Then
   MsgBox ("Vous avez une erreur sur votre reference: veuillez la corriger")
     Exit Sub
 End If
 Call effacer
 
 
For Each feuil In Sheets
If feuil.Name <> "Rechercher" Then
With feuil.Range("12:12")
Set Macellule = .Find(test)
 
If Not Macellule Is Nothing Then
primiercellule = Macellule.Address
MsgBox feuil.Name
feuil.Activate
 
End If
End With
End If
Next feuil
End Sub

[pradaseven]

SVP!!J'ai toujour pas eu de reponse n'hesité pas de me demandé plus d'info sur la macro si je me suis pas bien expliqué!!