Modification d'une macro deja existante

1 pièce(s) jointe(s)

Bonjour à tous,
Pourriez vous m'apporter votre aide mon problème n'ayant toujours pas été résolu
J'ai une macro en Vba qui permet de saisir une date et à partir de cette date isole toutes les lignes concerner dans une autre feuille Excel
Cependant je veux pas qu'elle saisisse la date je voudrais quelle saisisse un autre champs et quelle l'isole la ligne ou ce champs apparait (par exemple saisir "C4" et isoler la ligne ou apparait "C4" dans une feuille 2)
mercii
Voici le code et en pièce jointe mon fichier Excel
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub date_6() Dim X As Variant Dim Cel As Range Application.ScreenUpdating = False X = Application.InputBox("Année de la date", "ANNÉE", Type:=1) If X = False Then Exit Sub Worksheets("feuil2").Cells.ClearContents 'efface cellules feuille Set Cel = Sheets("Feuil1").UsedRange.Find(X, lookat:=xlPart) If Not Cel Is Nothing Then PA = Cel.Address Lig = 1 'ligne de depart pour feuil2 Do Cel.Interior.ColorIndex = 3 Sheets("Feuil2").Activate Cel.EntireRow.Copy Lig = Lig + 1 '+1 pour donnee suivante Cells(Lig, 1).Select ActiveSheet.Paste Set Cel = Sheets("Feuil1").UsedRange.FindNext(Cel) Loop While Not Cel Is Nothing And Cel.Address <> PA End If Application.ScreenUpdating = True End Sub

re

bonjour
l'enregistreur de macro tu connais??? il te donne un début de code tout prémâché qu'il faut un peu arranger a son contexte

un exemple

Code:

1
2
3
4
5
6
7
8
9
Sub Macro2()
    X = Application.InputBox("Année de la date", "ANNÉE", Type:=1)
    If X = False Then Exit Sub
    With ActiveSheet.Range("$A$1:$A$1504")'adapte ta plage et sheets
        .AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(0, "12/31/" & X)
        .SpecialCells(xlVisible).Copy Destination:=Sheets(2).Cells(1, 1)'adapte ta feuille de destination et 1 ère cellule de départ ou tu veux que les lignes soient copiées
        .AutoFilter
    End With
End Sub

Hello,

Patrick, pourquoi Criteria2 ? J'utilise toujours le 1 même pour passer un array

Une subtilité qui m'échappe ?

Pour un filtrage avec transfert des données "ailleurs" ... ne jamais oublier le filtre avancé ! :mrgreen:

re

oui tu a raison joe
j'ai stupidement copier coller

mais le principe est la