Sub CellulesNonVides()
Dim Nbre As Long
Nbre = Application.WorksheetFunction.CountA(Range("A:A"))
Range("E1").Value = "Nombre de cellules non vides : " & Nbre
End Sub
Sub CellulesNonVides()
Range("E1").Value = "Nombre de cellules non vides : " & Application.WorksheetFunction.CountA(Range("A:A"))
End Sub
Sub TotalColonnesA_1()
Range("C12").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-9]C[-2]:R[-2]C[-2])"
End Sub
Sub TotalColonnesA_2()
Dim Valeur As Double
Dim i As Integer
Valeur = 0
For i = 1 To Range("A1", Range("A65535").End(xlUp)).Rows.Count
If IsNumeric(Range("A" & i).Value) Then Valeur = Valeur + Range("A" & i).Value
Next i
Range("C11").Value = Valeur
End Sub
Sub TotalColonnesA_3()
'calcul la somme des cellules A2 à A9 et met le résultat en C11
Range("C11").FormulaLocal = "=SOMME(A2:A9)"
End Sub