application.screenupdating=false dim nb as long Sheets("Feuil1").Select Nb = WorksheetFunction.CountA(Columns("A:A")) Sheets("MENU").Select Range("H16") = Nb Sheets("Feuil1").Select Nb = WorksheetFunction.CountA(Columns("Z:Z")) Sheets("MENU").Select Range("H17") = Nb application.screenupdating=true
Dim myRange As Range Set myRange = Worksheets("Feuil1").Range("A:A") MsgBox Application.WorksheetFunction.CountA(myRange)
dim nb as long With Sheets("Feuil1") Nb = WorksheetFunction.CountA(.Columns("A")) Sheets("MENU").Range("H16").Value = Nb Nb = WorksheetFunction.CountA(.Columns("Z")) Sheets("MENU").Range("H17").Value = Nb End with
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question