1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

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

Discussion dans 'Forum Excel' démarrée par BabaN, 8 Février 2019.

  1. BabaN

    BabaN XLDnaute Nouveau

    Inscrit depuis le :
    8 Février 2019
    Messages :
    3
    "J'aime" reçus :
    0
    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
     
  2. Chargement...

    Discussions similaires - Application direct formule Forum Date
    Ouvris application externe par macro Forum Excel 7 Février 2019
    XL 2007 Application.OnTime ne veut pas marcher Forum Excel 21 Janvier 2019
    [réglé] Application.WorksheetFunction.CountIf Forum Excel 7 Janvier 2019
    XL 2010 Application macro dans classeur Forum Excel 30 Novembre 2018
    XL 2016 Erreur d'execution 1004 erreur definie par l'application ou par l'objet Forum Excel 29 Novembre 2018

  3. Roland_M

    Roland_M XLDnaute Barbatruc

    Inscrit depuis le :
    26 Avril 2007
    Messages :
    4170
    "J'aime" reçus :
    285
    Utilise:
    Excel 2007 (PC)
    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: 8 Février 2019
  4. BabaN

    BabaN XLDnaute Nouveau

    Inscrit depuis le :
    8 Février 2019
    Messages :
    3
    "J'aime" reçus :
    0
    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:

  5. pierrejean

    pierrejean XLDnaute Barbatruc

    Inscrit depuis le :
    19 Janvier 2006
    Messages :
    15367
    "J'aime" reçus :
    591
    Habite à:
    69400 LIMAS
    Utilise:
    Excel 2010 (PC)
    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
     
  6. BabaN

    BabaN XLDnaute Nouveau

    Inscrit depuis le :
    8 Février 2019
    Messages :
    3
    "J'aime" reçus :
    0
    Pour la feuille Fantôme je ne vois pas très bien par contre !! Enlever le mot application a marché !! Merci beaucoup !!
     

Partager cette page