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

  • Initiateur de la discussion Initiateur de la discussion BabaN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BabaN

XLDnaute Nouveau
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
 
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"))
 
Dernière édition:
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.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour