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

[gilboss]

Bonjour,
J'aimerai insérer une formule Excel via un code VBA sur 31 colonnes avec changement de lettre par formule.
Cette formule est à écrire dans les cellules C30 à AG30 avec l'incrément des lettres C dans la formule (C à AG)
=SOMME_SI_COULEUR(C$31:C$34;16777215) jusqu'à =SOMME_SI_COULEUR(AG$31:AG$34;16777215)

Je n'y parviens pas. (Je suis novice)
Si quelqu'un pouvait m'aider, je le remercie d'avance
Je pourrais écrire la formule directement dans les cellules, mais ce n'est pas mon souhait.

 

[gilboss]

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

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.

Tout c'est bien remplie, mais désolé, en B12 j'ai #valeurs
J'ai mis la fontion dans Module1, la nouvelle macro dans module2 et private fonction dans le code VBA de la feuille. Si je change des valeurs impair en pair, effectivement la couleur devient jaune.

 

[Staple1600]

Re

Retourne en B12 puis appuie sur ENTER

 

[gilboss]

Re

Retourne en B12 puis appuie sur ENTER

Idem

 

[Staple1600]

Re

Et pourtant elle tourne

 

[gilboss]

Re

Et pourtant elle tourne
Regarde la pièce jointe 1151264

 

[Staple1600]

Re

Essaies avec cette macro

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

 

[gilboss]

Re

Essaies avec cette macro

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

J'ai un 0 qui apparait et aussitot #Valeur!

 

[Staple1600]

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)

 

[gilboss]

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)

Oui j'ai bien tout ça. Mais sur excel 2021 windows 11 64 bits

 

[Staple1600]

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.

 

[gilboss]

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.

Merci quand même. L'expérience est toujours interessante.