Re : Liste déroulante - Encore une!!!
Bonjour à tous;
Merci à tous pour votre aide ça prendre tournure.
Je fais évoluer mon fichier.
J'ai trouvé pour la liste de validation c'était les lignes vides avec les formules qui semaient la panique.
Il me reste un problème au niveau de la mise en forme numéro de code barres qui est récalcitrant et que ne veut pas afficher tous les chiffres.
Est-il possible d'extraire la liste des outils Non conforme et de créer une feuille "Bordereau d'expédition" et de copier tableau sur celle-ci et de revenir sur la feuille PV une macro en VBA
J’ai fais un essai avec l'enregistreur de macro, mais comment faire pour sélectionner les lignes en sachant que le nombre varie?
Sub Filtre_Non_conforme()
Range("N11").Select
Selection.AutoFilter
Selection.AutoFilter Field:=12, Criteria1:="Non conforme"
Selection.AutoFilter Field:=12
Selection.AutoFilter Field:=12, Criteria1:="Non conforme"
Application.WindowState = xlMinimized
Range("B11:N19").Select
Selection.Copy
Sheets.Add
Range("A1").Select
ActiveSheet.Paste
Columns("M:M").EntireColumn.AutoFit
Columns("K:K").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("D
").EntireColumn.AutoFit
Columns("D
").EntireColumn.AutoFit
Columns("C:C").ColumnWidth = 10.86
Columns("C:C").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("A:A").EntireColumn.AutoFit
Sheets("PV").Select
Application.CutCopyMode = False
Selection.AutoFilter Field:=12
Selection.AutoFilter Field:=13, Criteria1:="Non conforme"
Range("A14:N17").Select
Range("N17").Activate
Selection.Copy
Range("B14:N17").Select
Range("N14").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("A5").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "Bordereau Expédition"
Range("A1").Select
Sheets("PV").Select
Selection.AutoFilter Field:=13
Application.CutCopyMode = False
Range("A1").Select
End Sub
Encore merci pour votre aide et transmission de savoir
Cordialement