Aide pour comprendre une macro

[doublenico]

Bonjour à tous,

J'ai 15 fichiers qui ont été fait sur le même modèle, mais certains s'ouvrent avec un message d'erreur dans une macro.
Je ne suis pas très fort en macro et je me demandais si quulqu'un pouvait m'expliquer le sens exacte de la macro suivante :

Sub calculLignes()

'End Sub
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iCompteur As Integer
iCompteur = 0
For i = 12 To Sheets('tableau').Range('Fin').Row
'A et H
If Sheets('tableau').Cells(i, 2).Font.Bold = False And Sheets('tableau').Cells(i, 2).Value <> '' Then
iCompteur = iCompteur + 1
End If
If Sheets('tableau').Cells(i, 7).Font.Bold = False And Sheets('tableau').Cells(i, 7).Value <> '' Then
iCompteur = iCompteur + 1
End If
Next i

Worksheets('accueil').Range('S23').Formula = '=((I23+J23+K23)/' & iCompteur & '*100)'

End Sub

Comme se sont des documents de travail, je ne peux hélas les faire partager.

Merci

 

[Titi_Malembourg]

Sur la feuille 'tableau', si les cases sur la colonne 2 à partir de la 12ème ligne ne sont pas en gras et pas vides, alors on incrémente iCompteur.
Idem pour la 7ème colonne.

On affiche ensuite sur la feuille 'accueil' en coordonnée S23 :
(I23+J23+K23) puis la valeur de iCompteur puis 100

 

[nicolas]

Titi_Malembourg écrit:

Sur la feuille 'tableau', si les cases sur la colonne 2 à partir de la 12ème ligne ne sont pas en gras et pas vides, alors on incrémente iCompteur.
Idem pour la 7ème colonne.

On affiche ensuite sur la feuille 'accueil' en coordonnée S23 :
(I23+J23+K23) puis la valeur de iCompteur puis 100

Merci beaucoup !!!