boucle de somme sur plusieurs colonne

[mab]

Bonsoir à tous
serait-il possible d'avoir une petite aide pour obtenir le code idéal pour calculer sur plusieurs colonnes la somme de chacune des colonnes des valeurs en gras.
en vous remerciant par avance.

mab

 

[michel]

bonjour Mab

tu peux tester


Sub sommeColonnesConditionnel()
Dim i As Byte
Dim j As Integer, X As Integer
Dim Resultat As Single

For i = 1 To 3 'boucle sur les colonnes
   'hypothese que les colonnes ne sont pas toutes de meme longueur
   j = Cells(65536, i).End(xlUp).Row 'derniere ligne non vide de chaque colonne
   Resultat = 0
   
      For X = 1 To j
      'boucle sur toutes les lignes de la colonne pour verifier si les cellules
      'sont au format "Gras"
      If Cells(X, i).Font.Bold = True Then Resultat = Resultat + Cells(X, i)
      Next X
   
   With Cells(X, i)
   .Value = Resultat
   .Interior.ColorIndex = 6
   End With

Next i

End Sub


bon week end
MichelXld