Sub som_chk() Dim MaSomme Dim val_chB() ' Je déclare un tableau virtuel ReDim val_chB(4) 'fixe la taille à 4 'J'ajoute les valeurs de mes CheckBox dans ce tableau val_chB(1) = Sheets(1).CheckBox1.Value val_chB(2) = Sheets(1).CheckBox2.Value val_chB(3) = Sheets(1).CheckBox3.Value val_chB(4) = Sheets(1).CheckBox4.Value For x = 1 To 4 'boucle pour parcourir mon tableau If val_chB(x) = True Then ' test si coché.. MaSomme = MaSomme + Cells(x, "A").Value 'calcule la somme End If Next End Sub
Sheets(1).CheckBox1.Value