XL 2016 VBA pb somme nb couleurs

keyser-soze93

XLDnaute Nouveau
Bonjour j'espère que vous allez bien cela fait des années que j'ai pas été ici,

J'ai tenté de créer une macro permettant de compter le nombre de cellule coloriés en jaune puis de faire un calcul dans la cellule avec ma formule mais je bloque sur une erreur d'exécution..

"Variable de bloc with non définie"

Le principe est simple je rentre la date dans mon textbox1 (en l'occurrence 16112021) je valide puis toutes les cellules coloriées jaunes entre 11H (ligne 71) et 19H (ligne 123) de chaque machine sont comptées et additionnées pour aller dans l'onglet "calcul" range(C4)

Quelqu'un peut m'aider ? je vous joint ma macro

En vous remerciant d'avance..
 

Pièces jointes

  • FICHIER MACRO PROD.xlsm
    120.4 KB · Affichages: 12

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Keyser-soze93, et bienvenu sur XLD pour votre premier post.
La définition d'une plage se fait avec Set. De plus un With simplifie l'écriture. Essayez cela :
VB:
With Sheets(TextBox1.Value)
    Set plagecouleur1 = .Range("D70:D123")
    Set plagecouleur2 = .Range("N70:N123")
    Set plagecouleur3 = .Range("S70:S123")
    Set plagecouleur4 = .Range("X70:X123")
    Set plagecouleur5 = .Range("AF70:AF123")
    Set plagecouleur6 = .Range("AK70:AK123")
    Set plagecouleur7 = .Range("AP70:AP123")
    Set plagecouleur8 = .Range("AU70:AU123")
    Set plagecouleur9 = .Range("AZ70:AZ123")
End With
 
Haut Bas