XL 2016 VBA pb somme nb couleurs

keyser-soze93 · 12 Octobre 2021

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

sylvanu · 13 Octobre 2021

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

keyser-soze93 · 13 Octobre 2021

Bonjour merci bcp fermeture du topic

sylvanu · 13 Octobre 2021

Impec.

keyser-soze93 à dit:
fermeture du topic

Dans ce cas, mettez en Résolu.

XL 2016 VBA pb somme nb couleurs

keyser-soze93

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

keyser-soze93

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires