XL 2019 Insérer une formule Excel via VBA avec boucle.

Staple1600 à dit:

Bonsoir le fil

@gilboss
Dans un classeur où tu auras copié les deux fonctions que j'ai postées.
(message#12)
Copie puis éxécute cette macro qui créé un exemple

Code:

Sub Macro_pour_créer_exemple()
Dim t
t = Array(2, 3, 7, 6, vbNullString, vbNullString, 1, 0, vbNullString, 8)
Range("A1").Interior.ColorIndex = 6
Range("B3:B10").Value = Application.Transpose(t)
Range("B3:B10").FormatConditions.Add Type:=xlExpression, Formula1:="=ET(EST.PAIR($B3);$B3>0)"
Range("B3:B10").FormatConditions(Range("B3:B10").FormatConditions.Count).SetFirstPriority
Range("B3:B10").FormatConditions(1).Interior.ColorIndex = 6
Range("B12").Formula = "=SOMMECOULEURS(B3:B10,A1)"
Range("B12").Font.Bold = -1
End Sub

La somme en B12 est correcte, non ?

Pour continuer le test, change manuellement quelles valeurs
(en mettant deux, trois ou quatre chiffres pairs)
Tu verrais que la somme s'actualisera et sera bonne.

Cliquez pour agrandir...

Staple1600 à dit:

Re

Retourne en B12 puis appuie sur ENTER

Cliquez pour agrandir...

Staple1600 à dit:

Re

Et pourtant elle tourne
Regarde la pièce jointe 1151264

Cliquez pour agrandir...

Staple1600 à dit:

Re

Essaies avec cette macro

VB:

Sub Macro_pour_créer_exemple_BIS()
Dim t, r As Range: Set r = Range("B3:B10")
t = Array(2, 3, 7, 6, 0, 1, 0, 5)
Range("A1").Interior.ColorIndex = 6
r.Value = Application.Transpose(t)
r.FormatConditions.Add Type:=xlExpression, Formula1:="=ET(EST.PAIR($B3);$B3>0)"
r.FormatConditions(r.FormatConditions.Count).SetFirstPriority
r.FormatConditions(1).Interior.ColorIndex = 6
Range("B12").Formula = "=SOMMECOULEURS(B3:B10,A1)"
Range("B12").Font.Bold = -1
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Re

@gilboss
Tu as bien copié les deux fonctions dans un module standard?
Donc on doit trouver :
la fonction SOMMECOULEURS
et
la fonction DColorIndex

Puis dans un autre module (ou le même), la macro Macro_pour_créer_exemple_BIS

Test OK sur Excel 365 (sur Windows 10 64 bits)

Cliquez pour agrandir...

Staple1600 à dit:

Re

Je ne sais pourquoi cela ne fonctionne pas chez toi.
Désolé.

Mais comme tu le vois sur ma copie d'écran, la somme des cellules jaunes (donc contenant des chiffres pairs) se fait bien en B12.

Cliquez pour agrandir...