Macro rechercheV

Bonjour,

voici une macro qui peut t'aider. pour mieux la comprendre, appuies sur F8, ca éxécuteras le code ligne par ligne.

Sub x()
valeur = "valeurcherchée" 'remplace valeurcherchée par la valeur que tu cherches
a = 2
j = 1
Do While Sheets("sheet1").Cells(i, j) <> "" 'va balayer toutes tes colonnes une par une
i = 1

Do While Sheets("sheet1").Cells(i, j) <> "" 'va balayer toutes tes lignes une par une
Cells(i, j).Select
If Cells(i, j) = valeur Then 'si la cellule contient la valeur cherchée
Rows(i).Copy 'on copie la ligne

Sheets("Sheets2").Select 'on sélectionnes la feuille d'arrivée
Rows(a).Select
ActiveSheet.Paste 'on colles la ligne
a = a + 1
End If
i = i + 1
Loop
j = j + 1
Loop

End Sub

rq1 :remplace sheet1 par le nom de feulle u tu dois chercherla valeur
rq2 : remplace sheet2 pour le nom de feuille ou tu veux que ce soit copier.

Salut,

Une autre approche, on saisi le valeur cherchée Feuil1 en D1, les valeurs à chercher sont Feuil1 colonne A si la valeur existe la ligne est copiée à la suite des données Feuil2 si la valeur n'existe pas gestion d'erreur avec msgbox

Sub Copie_Valeur_Trouvée()
Dim x
On Error GoTo errHandler
Sheets("Feuil1").Range("D1").Select
x = ActiveCell.Value
With Worksheets("Feuil1").Range("A:A")
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
End If
End With
Range(firstAddress).Select
ActiveCell.EntireRow.Copy
Sheets("Feuil2").Select
[A65536].End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
MsgBox "La ligne a été copiée feuille 2"
Exit Sub
errHandler:
MsgBox "La valeur n'existe pas"
End Sub

Si tu as besoin d'un modèle fais signe