Microsoft 365 Via une macro il me redirige vers une autre feuille en surbriant la cellule correspondant

James007

XLDnaute Barbatruc

• 18 Décembre 2019

• #2

Bonjour,

Pour que ... l'âme charitable .. puisse t'aider ... effectivement le fichier joint serait génial ... 😉

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 18 Décembre 2019

• #3

Mince je l'avais placé mais il ne l'a pas prit trop volumineux, je vais de nouveau essai de l'insérai 😵

Voilà c'est fait 🙂

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 18 Décembre 2019

• #4

Re,

Pas sûr et certain d'avoir réellement compris ton objectif ...

Ton fichier test est joint ...

 

Pièces jointes

• Test DCU.xlsm

  960.2 KB · Affichages: 4

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 18 Décembre 2019

• #5

Désoler si je me suis mal expliqué, je vais essayé d'être un peu plus claire, la macro que vous avez faite de cliquer sur le bouton DCU 1 & 2 et qu'il vous redirige sur la feuille Disjoncteur T3000 dans la cellule H15 j'y arrive a le faire mais je n'arrive pas a lui attribuer une couleur en surbrillance et que la couleur disparait une fois reparti sur d'autres feuilles

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 18 Décembre 2019

• #6

Peut-être que la modification jointe correspond mieux à ton attente ...

 

Pièces jointes

• Test DCU.xlsm

  957.4 KB · Affichages: 3

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 18 Décembre 2019

• #7

James007 à dit:

Peut-être que la modification jointe correspond mieux à ton attente ...

Cliquez pour agrandir...

Excellent un tout grand merci à toi pour ton aide

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 18 Décembre 2019

• #8

odohe à dit:

Excellent un tout grand merci à toi pour ton aide

Cliquez pour agrandir...

Merci pour tes remerciements 🙂

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 18 Décembre 2019

• #9

James007 à dit:

Merci pour tes remerciements 🙂

Cliquez pour agrandir...

Un merci cela ne mange pas de pain 😛
je trouve qu'il faut être reconnaissant en vers les personnes qui donne de leurs temps à la communauté 😉

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 18 Décembre 2019

• #10

Par contre que dois-je mettre comme code dans ThisWorkbook pour pouvoir protéger la feuille Disjoncteur T3000 sans avoir un message d'erreur d'exécution 1004

Merci.

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 18 Décembre 2019

• #11

J'ai trouvé 🙂
Que j'ai placé dans ThisWorkbook

VB:

 With Sheets("Disjoncteur T3000")
        .Protect "Pass", UserInterfaceOnly:=True
    End With

End Sub

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 18 Décembre 2019

• #12

J'ai crié victoire trop vite je pensais avoir trouvé la solution mais à moitié, maintenant j'arrive a protégé les feuilles DCU et T3 & T4 par contre une fois que je protège la feuille Disjoncteur T3000 j'ai un message d'erreur qui apparait sur mon code VBA Disjoncteur T3000


Voila ce que j'ai mis dans ThisWorkbook

Code:

Private Sub Workbook_Open()
  With Sheets("T3 & T4")
        .Protect "toto", UserInterfaceOnly:=True
    End With
  With Sheets("Disjoncteur T3000")
        .Protect "toto", UserInterfaceOnly:=True
    End With
  With Sheets("DCU")
        .Protect "toto", UserInterfaceOnly:=True
    End With
End Sub

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 18 Décembre 2019

• #13

Re,

Lorsque tu protèges une feuille, la macro aussi est bloquée ...
donc ta première instruction doit être de Déprotéger la feuille ...
ensuite tes instructions comme prévu ...
et ta dernière instruction doit être de Reprotéger la feuille...

J'espère que cela pourra t'aider

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 18 Décembre 2019

• #14

j'ai essayé de faire la procédure comme conseillé mais j'ai toujours le même bug, a moins que je n'execute pas bien la procédure que tu me le décris, mais je ne sais pas ou je me trompe 😵
C'est vraiment juste sur la feuille Disjoncteur T3000 qui me fais apparaitre le bug

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 18 Décembre 2019

• #15

Ok j'ai résolu le petit souci j'ai placé cette ligne en début et fin du code VBA qui attribut la couleur au disjoncteur de la feuille Disjoncteur T3000

VB:

ActiveWorkbook.Worksheets("Disjoncteur T3000").Unprotect ("toto")
ActiveWorkbook.Worksheets("Disjoncteur T3000").Protect ("toto")

Merci James007 😉

 

Vote positif 0 Vote négatif