Forum d'assistance informatique - LM2I

afficher une page

Code: Tout sélectionner

Sheets("Affichage").Select

Proteger une feuille:

Code: Tout sélectionner

ActiveSheet.Protect "lolo", DrawingObjects:=True, Contents:=True, Scenarios:=True

deProteger une feuille:

Code: Tout sélectionner

ActiveSheet.Unprotect "lolo"

selection d'une ligne entiere

Code: Tout sélectionner

Rows("42:42").Select

supression d'une ligne entiere

Code: Tout sélectionner

Selection.EntireRow.Delete

Nombre de ligne non-vide dans une colonne

Code: Tout sélectionner

nb = WorksheetFunction.CountA(Columns("U:U"))

Parite =>

Code: Tout sélectionner

=SI(ARRONDI(B2/2;0)=(B2/2);"Pair";"Impair")

en VBA :

Code: Tout sélectionner

MyResult = TonNombre Mod 2

[code]Public Function EstPair(n As Long) As Boolean
    EstPair = (n Mod 2) = 0
End Function[/code]

Comment supprimer les colonnes non utilis