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
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