Application direct de formule crée avec VBA - Bug 438

[BabaN]

Bonjour,

Après maintes recherches, je ne trouve pas le problème de ce code VBA :

Private Sub CommandButton1_Click()

'Renommer le 1er bouton
CommandButton1.Caption = "Calcul du budget"
Dim LigBudget As Integer, DerLig As Integer, SerLig As Integer, Col As Integer, NomCol As String, MaPlage As Range 'Déclaration des variables

Application.ScreenUpdating = False 'Désactive l'affichage le temps de l’exécution (rapidité +)
Application.Calculation = xlCalculationManual 'Désactive le recalcule auto des formules Excel à chaque modification (rapidité +)

LigBudget = Range("B1").Value
DerLig = LigBudget - 3
SerLig = LigBudget + 2

'Calcul budget heures théoriques
With Worksheets("PLANNINH HxJ")
For Col = 16 To 702
Set MaPlage = .Range(.Cells(6, Col), .Cells(DerLig, Col))
.Cells(LigBudget, Col) = Application.cumul_couleur(MaPlage, .Range("N6"))
Next Col
End With
Application.Calculation = xlCalculationAutomatic


End Sub

Erreur d'exécution 438, donc il y a un problème d'écriture mais je ne sais vraiment pas quoi !

Merci de votre aide

 

[Roland_M]

Bonjour,

sans classeur pour essayer pas facile !?

questions:
sur quelle ligne ça bug ?
as-tu essayé d'exécuter ta macro au pas à pas (avec F8) ?

ensuite, ici c'est quoi ça> .cumul_couleur !?
.Cells(LigBudget, Col) = Application.cumul_couleur(MaPlage, .Range("N6"))

 

[BabaN]

Bonjour, voici le fichier !

Ca bug sur la ligne
".Cells(LigBudget, Col) = Application.cumul_couleur(MaPlage, .Range("N6"))"

Cumul_couleur est une fonction que j'ai crée avec VBA me permettant de faire la somme de chiffres écrit d'une certaine couleur.
Pour qu'elle fonctionne, je lui indique une plage et une cellule référante pour la couleur.

 

[pierrejean]

Bonjour à tous

Fichier curieux ou figure une feuille 'fantôme' :Feuil1
Apres transfert des macros vers la feuille Plannin... et suppression de Application devant cumul cela a l'air de fonctionner
A tester donc

 

[BabaN]

Pour la feuille Fantôme je ne vois pas très bien par contre !! Enlever le mot application a marché !! Merci beaucoup !!