XL 2019 Protection dans une feuille.

P

Paulle

XLDnaute Occasionnel

• 15 Novembre 2023

• #16

Bonjour,
Merci pour votre aide.
Si je rajoute colonne B une date inférieure à la dernière date du tableau et que je fais un tri sur les dates, la colonne A ne se met pas à jour.

 

Pièces jointes

• Protec04 (3).xlsm

  34.2 KB · Affichages: 4

Dernière édition: 15 Novembre 2023

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Novembre 2023

• #17

Bonjour,

Paulle à dit:

la colonne A ne se met pas à jour.

Cliquez pour agrandir...

Elle ne se met pas à jour si vous incluait la colonne A dans votre tri car les formules conservent leurs cellules de référence dans leur formules.
Si vous triez uniquement sur les colonnes B:E sans la colonne A alors les infos en colonne A sont correctes car les formules ne sont pas modifiées.

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 15 Novembre 2023

• #18

Si je sélectionne les colonne B:E, quand je clique sur trier, la sélection inclue la colonne A.
Cela me parait bien compliqué.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Novembre 2023

• #19

La colonne A contient vos formules analysant la colonne B, donc si vous triez en B alors les formules en colonne A se remettent à jour. Où est le souci ? En quoi cela vous semble compliqué ?

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 15 Novembre 2023

• #20

Si je trie sur B, A ne se met pas à jour.
Ou je procède mal mais je ne vois pas comment faire.

 

Pièces jointes

• Protec04 (3).xlsm

  34.3 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Novembre 2023

• #21

Je ne sais pas ce que vous avez fait ou modifié, mais dans votre colonne A les formules sont fausses.
Faites dans l'onglet Formules, Afficher les formules. et vous obtenez ça :

On voit que de la ligne 2 à 15 les formules sont bonnes, mais ensuite elles sont fausses.
Par ex dernière ligne , ligne 33 il est fait référence à B31.
Un conseil, comme vous avez un tableau structuré, utilisez sa puissance.
En colonne A remplacez la formule par :

VB:

=SI(Tableau33[[#Cette ligne];[Date]]<AUJOURDHUI();"Passé";"Dans "& (Tableau33[[#Cette ligne];[Date]]-AUJOURDHUI()&" jours"))

Testez cette PJ, j'y ai fait les modifs, et les formules en colonne A restent correcetes après un tri car elles références toujours à Tableau33[[#Cette ligne] sans référence au N° de ligne.

 

Pièces jointes

• Protec04 (3) (3).xlsm

  27.2 KB · Affichages: 3

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 15 Novembre 2023

• #22

Merci, oui tout fonctionne correctement.
J'avais bien vu que les formules n'étaient pas bonne mais je ne savais pas pourquoi.
Bonne journée.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Novembre 2023

• #23

Paulle à dit:

J'avais bien vu que les formules n'étaient pas bonne mais je ne savais pas pourquoi.

Cliquez pour agrandir...

Si vous voyez que les formules sont fausses, comment voulez vous que le tri soit bon ?

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 15 Novembre 2023

• #24

Je ne savais pas comment les corriger.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Novembre 2023

• #25

C'était une simple taquinerie.
Mais la bonne question à poser ici aurait été "Pouvez vous corriger mes formules en colonne A." plutôt que "mon tri s'effectue mal." car il faut toujours corriger la cause du problème et non son effet.

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 15 Novembre 2023

• #26

J'ai ajouté dans le code :

End If
Fin:
ActiveSheet.Unprotect
End Sub

comme cela je n'ai pas à ôter la protection pour faire le tri.
Ai-je bien fait?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Novembre 2023

• #27

Très franchement, je ne comprend plus rien à votre raisonnement.
1- Titre du fil : Protection dans une feuille.
2- On met dans la macro : ActiveSheet.Protect
3- Et vous rajoutez juste après ActiveSheet.Unprotect
Alors autant simplifier la macro :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [B:B]) Is Nothing Then Cells(Target.Row, "B").Select
End If
Fin:
End Sub

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 15 Novembre 2023

• #28

J'ai remplacé le code et voilà :

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Novembre 2023

• #29

Oups !!! Retirez le End If . J'ai oublié de le faire.

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [B:B]) Is Nothing Then Cells(Target.Row, "B").Select
Fin:
End Sub

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 15 Novembre 2023

• #30

Si je clique en A, ça reste en A au lieu d'aller en B.

 

Vote positif 0 Vote négatif