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
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