Macro de copier coller suite à une recherche
Bonjour,
Je suis débutante en vba,
J'ai 2 feuilles,
et je demande grace à une inputbox d'entrer un numéro
En faite, je voudrai que la suite de ma macro recherche cette valeur dans la colonne K de ma première feuille appelé Bordereau et qu'elle recopie Toutes les lignes dont la colonne K contient ce numéro dans la Deuxième feuille appelé extraction.
J'ai vu que l'on peut faire des recherches grace à Find ou autre mais je ne vois pas du tout comment je peux construire ma macro !
Merci d'avance !
Cordialement,
Edaine.
Je suis débutante en vba,
J'ai 2 feuilles,
et je demande grace à une inputbox d'entrer un numéro
Public Sub Pal1()
Dim Pal As Integer
Pal = Application.InputBox("Entrez le numéro", "Numéro")
Select Case Pal
Case False
MsgBox "Vous avez annulé"
Exit Sub
Case Else
MsgBox ("Numéro " & Pal)
End Select
End Sub
En faite, je voudrai que la suite de ma macro recherche cette valeur dans la colonne K de ma première feuille appelé Bordereau et qu'elle recopie Toutes les lignes dont la colonne K contient ce numéro dans la Deuxième feuille appelé extraction.
J'ai vu que l'on peut faire des recherches grace à Find ou autre mais je ne vois pas du tout comment je peux construire ma macro !
Merci d'avance !
Cordialement,
Edaine.
3 réponses
-
Public Sub Pal1()
Dim Pal As Integer
Pal = Application.InputBox("Entrez le numéro", "Numéro")
Select Case Pal
Case False
MsgBox "Vous avez annulé"
Exit Sub
Case Else
MsgBox ("Numéro " & Pal)
sheets("extraction").select
a=2
do while cells(a,2)<>""
a=a+1
loop
sheets("Bordereau").select
i=2 'commence ta recherche en ligne 2
do while cells(i,11) <> "" ' varechercher dans ta colonne K en espérant que tu n'as pas de trou dans cette colonne
if cells(i,11) = Pal then
rows(i).copy
sheets("extraction").select
cells(a,1).select
activesheet.paste
a=a+1
sheets("Bordereau").select
end if
i=i+1
End Select
End Sub -
Merci d'avoir répondu si vite !
J'ai recopié la macro,
Si je l'exécute il me met une erreur " End Select " sans "Select Case"
Quand je bouge le End Select en le mettant un peu plus haut il me met une autre erreur,
"Do" sans boucle
:s -
Ah il manque un loop !
^^
J'ai retenté ca fonctionne du feu de Dieu !!
Merci merci beaucoup :D
