[A&C - L3 AES GET - S1] CM Informatique 1 Course Materials & Test Answers | cours25-26.ut-capitole.fr

Associer à chaque ligne de code de la macro Eval_Nveaux_Fseurs() le commentaire correspondant

For ligneD = 2 To Nblignes

Worksheets("Base Nouveaux fournisseurs").Visible = xlSheetVeryHidden

Range("A15").CurrentRegion.Interior.Color = RGB(204, 255, 255)

Range("A15").CurrentRegion.Select

Selection.Delete

If (Cells(ligneD, 7) >= prix) And (Cells(ligneD, 8) >= livraison) And (Cells(ligneD, 9) = ISO) _

And (Cells(ligneD, 10) >= paiement) And (Cells(ligneD, 11) >= solidite) Then

Sheets("Base Nouveaux fournisseurs").Select

Nblignes = Cells(1, 1).CurrentRegion.Rows.Count

Sheets("Nouveaux fournisseurs (2)").Cells(ligneF - 1, 1).CurrentRegion.Borders.LineStyle = xlContinuous

Sheets("Nouveaux fournisseurs (2)").Cells(ligneF - 1, 1).CurrentRegion.HorizontalAlignment = xlCenter

View this question

Crowdly