Problème Macro ....

[vicelow20000]

Bonjour,

Tout d'abord je vous explique le fonctionnement et le but du document Excel que j'ai joint....

3 Feuilles:

- 1 Feuille "GENERAL" qui permet en appuyant sur le bouton "Mise à jour" (la macro en question) d'avoir les synthèse des infos renseignées sur les 2 autres feuilles.

- 1 Feuilles "MAP ST2" et 1 feuille "Manut"
Dans ces 2 feuilles, je rempli quotidiennement l'ensemble des critères, soit avec l'état "OK" (1 double clic sur la cellule) , soit avec l'état "KO" (2 double clic sur la cellule).


PROBLEME: lorsque je clic sur le bouton "Mise a jour", la macro remonte parfaitement les infos renseignées dans la feuille "Manut" mais pas celle renseignées dans la feuille "MAP ST2" ....

Il doit donc y avoir un problème dans le code du Module1 VBa. Ms impossible de le trouver ....

Merci de m'aider !!
Posez vos questions si besoin j'y répondrai vite.

 

[pierrejean]

Re : Problème Macro ....

bonjour vicelow20000

A tester

Remplacer

Sub mise_a_jour()
    SetCouleurs "MAP_ST2"
    SetCouleurs "MANUT"
End Sub

par

Sub mise_a_jour()
    SetCouleurs "MAP_ST2"
    SetCouleurs "M[COLOR=blue]anut[/COLOR]"
End Sub

 

[vicelow20000]

Re : Problème Macro ....

Salut Pierre Jean ...

Tout d'abord merci de lintérêt que tu portes à mon soucis ...

A priori, remplacer "MANUT" par "Manut" dans la ligne de code que tu me dis ne change rien. D'autant plus que le problème rencontré concerne les données de la feuilles "MAP ST2" et non de la feuilles "Manut" comme tu peux le voir sur le fichier exemple que j'ai joint.


......
Merci

 

[pierrejean]

Re : Problème Macro ....

Re

OK

J'ai testé cette modif

Case "MAPST2"
        ' Feuille MAP ST2
        With Sheets("MAP_ST2")

remplacé par

Case "[COLOR=blue]MAP_ST2[/COLOR]"
        ' Feuille MAP ST2
        With Sheets("MAP_ST2")

je suis tombé sur une erreur dans la definition de la plage

Public Const Plage_MAPST2 As String = "$F$19:$AC$19,$F$25:$AC$25,$F$31:$AC$31,$F$34:$AC$37,$F$43:$AC$43,$F$49:$AC$49,$F$55:$AC$56,$F$62:$AC$63,$F$69:$AC$70,$F$76:$AC$77,$F$83:$AC$84,$F$90:$AC$90,$F$96:$AC$96,$F$102:$AC$102,$F$108:$AC$108,$F$114:$AC$115,$F$121:$AC$121,$F$127:$AC$127,$F$133:$AC$133,$F$139:$AC$139,$F$145:$AC$145,$F$151:$AC$151"

si je m'en affranchi en raccourcissant a

Public Const Plage_MAPST2 As String = "$F$19:$AC$19,$F$25:$AC$25,$F$31:$AC$31,$F$34:$AC$37,$F$43:$AC$43"

je tombe sur une erreur a cette ligne

 For Each c In Col.Areas(6)

et la j'abdique , parceque ton code est trop consequent pour que je puisse le debugger

Désolé !!!

 

[vicelow20000]

Re : Problème Macro ....

Bon j'ai testé les codes un par un des différents critères de la feuilles MAP ST2 ...

Il se trouve que le problème se fait toujours à partir du 18eme !! (dans notre exemple: Coefficient d'application peinture ...

Se pourrait-il que Excel ne supporte pas plus de 18 plages dans le code
"Public Const Plage_MAP_ST2 As String = "............."" ??

Merci