Protéger une feuille tout en libérant les filtres + autres
Bonsoir :-))))
Est-ce possible de protéger la feuille 3 mais en libérant les filtres ?
Car, malgré les cases cochées dans les options de protections, ça ne fonctionne pas... J'avais déjà constaté ça voilà qqes mois.
En effet, j'aurais besoin de trier dans les 2 sens (ascendant ou descendant), chaque colonne des STATS...
Tout à fait autre chose : peut-on interdire un double-clique gauche sur des cellules ? Ca permettrait de ne pas entrer concrètement dans la cellule !!!!!!!!!
Mais d'autoriser bien sûr le simple clique gauche, ainsi on peut modifier la valeur d'une perf sans perturber les formatages qui me posent souvent des problèmes.
MErci beaucoup :-)))))))))))
Bonne soirée :-)))))))
à+
Bonjour
Est-ce possible de protéger la feuille 3 mais en libérant les filtres ?
Car, malgré les cases cochées dans les options de protections, ça ne fonctionne pas
Bah assez bizarrement il semble que cela ne fonctionne pas. Ou alors il faut comprendre ce que le fait de cocher la case de tri implique ou permet.
Tout à fait autre chose : peut-on interdire un double-clique gauche sur des cellules ? Ca permettrait de ne pas entrer concrètement dans la cellule !!!!!!!!!
Dans quelle feuille et quelles cellules sont concernées ?
Exemple avec ce code sur la feuille Stat sur la colonne B:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Cancel = True
End If
End SubCode à placer dans la feuille Stats (là où vous avez mis un code Worksheet_activate)
Cordialement
Bonsoir Dan et merci bcp pour votre réponse :-))))))))))))))))
Je n'avais pas mis de précisions car je voulais savoir si c'était possible.
C'est sur la feuille 1 et sur chaque valeur de perf entourées en rouge (y'a 10 colonnes) mais y'aura peut-être un conflit car un spécialiste du VBA m'avait déjà conçu un double clique gauche mais sur les entêtes de ces colonnes perfs. Donc je ne sais pas trop à quel endroit je peux intégrer votre code VBA...
En tout cas merci bcp :-)))))
Bonne soirée :-)))))))))))))))
Autre chose : je viens de m'apercevoir que le classement en colonne R de la feuille 3 ne suit pas l'ordre de la colonne P, ni d'aucune autre colonne d'ailleurs.
c-à-d que le "CLT pts" le 1 devrait être attribué au nombre le plus élevé de la colonne P, etc. Mais je ne sais pas où agir sur cette formule que je ne maîtrise pas du tt ==> =LIGNE(Q4)-LIGNE($R$3)...
Merci bcp :-))))))))))))))))
Bonne soirée :-)))))))))))))))))))))
re,
cette colonne n'était pas un "classement", juste un numéro de ligne ....
Bonjour Bart',
Ah désolé je n'avais pas compris ça... Mais en fait, je préfère que ça annonce le classement car si je fais un tri sur une autre colonne, ça me permet de voir, à n'importe quel moment, en quelle position de classement les établissements s'ordonnent sans qu'on soit obligé de réfléchir...
Encore merci bcp, en plus tu as enrichi la ligne supérieure des totaux généraux, ce qui est vraiment, encore une excellente idée. Ca permet de savoir que si on dépasse les 10 médailles par métal, on a des sportifs qui ont la même médaille car exactement le même nombre de points sur une épreuve. Bien vu !!!!!!!!!!!!!!!!!! :-))))))
+ Faire disparaître le bouton "PDF" à la sauvegarde ==> Merci bcp, c'est parfait !!!!!!
Bonne journée :-))))))))))))))
Bonjour,
Donc je ne sais pas trop à quel endroit je peux intégrer votre code VBA...
Vous le mettez où vous voulez. Il suffit de faire un clic droit sur la feuille concernée (donc votre feuille 1) puis choisir "visualiser le code" et coller le code dans la fenêtre.
Par contre si c'est dans la feuille "Classmt par discipline+Général", il faut revoir car vous avez un code pour enlever les filtres en ligne 4 et là dans votre cas il faudrait donc interdire le double clic après la ligne 4
Je vous ai préparé le code pour cette feuille mais avant de vous le donner il faudrait me préciser s'il s'agit-il bien des 10 colonnes dont l'entête en ligne 4 est en couleur bleue (pompe, traction, ....)
re,
ce double-clicque, c'est une histoire bizarre que je ne comprends pas.Que se passe-t-il quand on fait cela et est-ce que cela provoque une erreur quelque part ? A la première vue, non, je pense.
Bonsoir Bart' & Dan,
En réalité, j'arrive à provoquer des erreurs sur double clique dans une des cellules "Perf". Perso, je les connais et les éviterai mais la centaine d'utilisateurs que je vais avoir risquent de ne pas comprendre.
Exemples :
Si je double clique dans cette cellule et que je décide, au final de ne rien toucher, en validant OU en changeant de cellule j'ai cette erreur :
Si j'inscris un 0, j'ai aussi une erreur car il faut que j'efface tous les chiffres pour laisser la cellule vide pour que ça marche...
Oui Dan c'est bien dans la feuille 1 et dans les 10 colonnes que tu as désignées :-)))
Je te remercie beaucoup :-))))))))))))
Bart', j'aurais besoin de toi, s'il te plaît et si tu veux bien car tu m'as réalisé quasiment 100% du code VBA et je pense que tu peux réagir rapidement dans ton code.
J'essaye de changer la référence des Classements "CLT" car pour éviter que beaucoup de sportif soient à égalité, j'ai essayé cette formule indexées sur les colonnes "Pts âge" mais ça me met un zéro sur toute la colonne. C'est forcément que ma formule est mauvaise :-((((((((((((
Je vais refaire ce classement basé sur "Pts âge" des 10 épreuves ;-))))
Et pour éviter les injustices aux âges des sportifs qui viennent d'avoir leur anniversaire et d'autres qui vont l'avoir très prochainement, pas loin d'une année les sépare, serait-il possible que par exemple pour un sportif qui est né le 20 mai 2000, on lui donne l'âge de 25,1 ans. Un autre qui est né le 15 juillet 1999, on lui donne 25,9 ans.
Donc en gros, qu'on convertisse les 12 mois en décimales. Qu'en penses-tu ?
Dernière chose : J'ai entré plus de 10 établissements mais au-delà de ce nombre, les autres établissement n'apparaissent pas dans le menu déroulant...
C-à-d que je n'ai pas "Salon", "Tarascon", "Toulon", Troyes" et tous les autres si j'en rajoute encore...
Voici le fichier Excel à jour :
MErci beaucoup :-)))))))))))))))
Bonne soirée :-))))))))))))
Re
Je viens de me rendre qu''en effet c'est BsALv qui vous a totalement aidé dans un autre fil.
Pour ce qui concerne le double clic, vous pouvez tester comme ceci
- Clic droite sur l'onglet "Classmt par discipline+Général" et choisir l'option "Visualiser le code"
- Remplacez tout le code Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) par celui ci-dessous
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim col As Byte
If Not Intersect(Target, Range("Tabel1").Offset(-2).Resize(2)) Is Nothing Then Enlever_Filtre: Exit Sub 'double-clicque dans les lignes 2-3
Select Case Target.Column
Case Is = 11, 16, 22, 27, 32, 37, 42, 47, 52, 57
col = Target.Column
If Not Intersect(Target, Range("Tabel1").ListObject.ListColumns(col).DataBodyRange) Is Nothing Then
Cancel = True
End If
End Select
End SubLe code ne permettra pas le double clic dans les colonnes concernées du tableau et ce, à partir de la ligne 5 et suivantes
Je laisse la main à Bart (BsALv) pour le reste puisque c'est lui qui vous suit depuis le début.
Cordialement
Bonjour et merci bcp Dan,
Je vais tester ta proposition avec très grand plaisir :-))))))))) Car tu as tout à fait compris ma demande au vu de tes explications.
BsAlv m'a bcp bcp aidé et j'attends juste de savoir si ça ne perturbe pas trop ses constructions de Macros et son code VBA. Et aussi ce qu'il pense de mes soucis d'erreurs en valeurs douteuses et pour résoudre ça ==> ta proposition.
Ne m'en veux pas, il m'a trouvé des solutions dont je n'espérais aucune issue et a même souvent anticipé mes demandes car il s'est totalement imprégné de mon projet et a rapidement compris le sens logique d'un ensemble relativement complexe.
Mais pour dire la vérité, je n'ai pas pu résister et j'ai testé ton code. Il fonctionne parfaitement et ne perturbe pas les lignes au-dessus de la ligne 5 !!!!!!!!! :-)))))))))))))))))))
Encore merci :-))))))))))))))
Bonne journée :-))))))))))))))
Bonjour
Ne m'en veux pas, il m'a trouvé des solutions dont je n'espérais aucune issue et a même souvent anticipé mes demandes car il s'est totalement imprégné de mon projet et a rapidement compris le sens logique d'un ensemble relativement complexe.
Pourquoi je devrais vous en vouloir, d'ailleurs si j'avais su (je n'avais pas vérifié dans votre profil...
Par contre, je me demande d'ailleurs si vous n'auriez pas dû continuer sur le fil d'origine mais bon pas grave
Le code n'impacte pas les codes actuels et comme vous l'avez constaté le clic en ligne 5 n'est pas perturbé. Espérons que vous allez l'utiliser qu'au moins je n'ai pas travaillé pour rien
Je vous laisse continuer avec lui sur votre projet, il vous donnera ce qu'il faut.
Pensez à cloturer votre fil si vous en avez terminé ici
Cordialement
re,
concernant des modifications dans ces 10 colonnes, supprimer une valeur est possible avec le bouton "Delete" et si on fait une modification et on n'a pas encore fini avec "Enter", on a le bouton "ESC" pour ignorer cette modification pas encore complète. Donc je pense que ce bouton "Esc" sera ton meilleur ami !
si l'age est inconnu (colonne G est vide), alors l'age sera fixé à 28 ans et donc il n'y aura aucune correction d'âge pour les classements de 10 épreuves. Il y a une MFC rose qui t'indique cette erreur dans les colonnes G:H
un sportif qui est né le 20 mai 2000, on lui donne l'âge de 25,1 ans. Un autre qui est né le 15 juillet 1999, on lui donne 25,9 ans.
si on calcule leur age en jours divisé par 365.25, alors le sportif du 20 mai 2000 sera 9.156 jours ou 25.06776 ans et l'autre du 15 juillet 1999 sera 9.466 jours ou 25.9165 ans. Si j'exagère on peut arrondir à un décimal, alors le premier sera 25,10 et l'autre 25,90 ans
le menu déroulant est maintenant le tableau pas une plage fixe
oei, je me rappèle plus avec quel fichier, j'ai commencé mes changements, mon dernier ou celui que t'as téléchargé hier soir ...
le nom du dossier : maintenant j'ai une fonction "Dossier" dans module1 à la fin. Elle regarde la cellules "MonDossier" V1 de "concordance ..." Si cette cellule est vide à utilisera ton username (comme avant, mais j'ai ajouté des "x" temporairement, pour voir ce qu'il se passe pour tes autres utilisateurs. On reçoit un inputbox dans laquelle on choisit un des 4 possibilité et cette valeur sera collée dans "MonDossier". Comme ça, cette question sera demandée qu'une seule fois ! Si ce dossier est plus tard mystèrieusement disparu, il y aura une alerte et on peut refaire le choix. Normallement, quand tu distribues les fichiers aux autres, cette cellule est vide !
Merci encore Dan. Je n'ai pas gardé l'autre sujet car d'idées en idées, j'arrive vite à du "hors sujet", et je me sens obligé d'ouvrir un nouveau sujet pour pouvoir clôturer le précédent et de marquer tous les posts à l'aide du bouton :-)))
Tu as entièrement raison Bart', mais bcp ne vont pas utiliser "ESCAPE" car pas initiés au pb ;-) Et moi non plus, je n'ai pas tjrs ce réflexe ;-))))))
C'est l'erreur de prendre souvent de très mauvaises habitudes qd on est débutants comme moi ;-)))))
Merci bcp Bart' pour ta persévérance dans ton aide qui m'est si précieuse ;-)))))))))))
G presque tt testé ==>
MErci bcp pour avoir intégré le code de DAN et les colonnes CLT qui marchent parfaitement avec tes formules !!!!!! :-)))))))))
Age avec notamment le coup du 28, super, je n'y avais pas pensé !!!!!!!!!!!!!!!!!!!!
Le menu déroulant = ça déroule o poil ;-))))))))))))))))
Le coup du "username" avec les 4 possibilités = Une solution rêvée que je m'empresserai de tester mardi au boulot avec des collègues !!!!!!!!!!!!! :-))))))))))))))))
PAs grave pour le fichier excel à jour, c'était celui dans le message juste au-dessus d'hier soir 21h55 ==> je vais recopier tt le tableau dans le tien puisque je l'avais quasiment entièrement rempli pour faire des tests : je px au moins faire ça comme travail ;-))))))))))))))
Mais toi tu as fait un travail de ouf !!!!!!!!!!!!!!!!!!!!!!! :-)))))))))))))))))))))))) Merci bcp Bart' :-))))))))))))))))))
La jauge que tu as mis dans les STATS, j'adore, super idée, c'est du plus bel effet !!!! ==>
J'ai une petite erreur de débogage qd je veux enregistrer un pdf :
Et le bouton "STAT", lui, il ne répond plus du tt...
Juste 2 petites questions pratiques :
Tu sais, je vais avoir une centaine d'établissements. Ca va engendrer un menu déroulant de folie pour trouver le nom de la ville.
Pourrait-on garder ce menu au cas où mais construire en plus, un code qui permettrait, en commençant à écrire les 3 premières lettres du nom de la ville dans un nouvel inscrit, pour que je reçoive une prémonition. Exemple, je tape dans la colonne B, "CHA" et là je commence à avoir (bon je ne les ai pas encore enregistrés dans la liste mais imaginons) "Châteaudun", "Chateauroux", "Chaumont". Et à moi de choisir celui que je veux. Qu'en penses-tu, c'est compliqué à programmer ?
Et toute dernière chose mais là, avec tous tes codes, je pense que ça n'est pas faisable.
Admettons, je fais une erreur de saisie et j'ai validé, pourrions-nous faire un retour arrière, en fait l'équivalent du "Contrôle Z" pour remettre les valeurs de saisie précédentes ?
Merci bcp Bart' :-)))))))))))))))
Bonne journée :-))))))))))))))
ce control-Z, pffffffffffff.
pour les établissements,fais un clicque droit dans la colonne B, tapez quelque charactères et entre les parenthèses on a le nombre de matches. Dès qu'il n'y a plus qu'un match cet établissement est collé dans la colonne B.Si on a encore plusieurs matches,on peut aussi clicquer sur la flèche et choisir un établissement là.
Gros gros travail !!!!!!!!!!!
Rien à dire, c'est top :-))))))))))))))))))))))))))))))
J'ai juste les entêtes de colonnes à partir de la colonne K qui ne se trient plus lorsqu'on y fait un clic droit...
On dirait qu'il y a des macros ou autres qui se sont désactivées car PDF & STATS déclenchent un bugg.
Je vais encore t'embêter, sur chaque insertion de lignes j'ai cette bordure qui se déforme (g pas réussi à la rétablir) :
Si ça n'est pas trop compliqué, c'est possible de masquer les lignes contenant etab_, de sorte que je puisse faire un tri sur filtre, pour avoir tous les noms d'établissement dans l'ordre alphabétique.
Ce fichier Excel est le dernier :
Merci beaucoup Bart'...
Bonne soirée :-)))))
à bientôt
Bonjour :-)))))))))))))))
Depuis hier soir, j'ai fait plein de tests pour essayer de comprendre le problème.
Je crois que le code fonctionne quand on tente une sauvegarde PDF la toute première fois puis aux prochaines tentatives lorsqu'on ferme le fichier et qu'on le réouvre, on a une erreur dans le cas où la sélection des choix est déjà enregistrée par défaut. Mais ce n'est qu'une hypothèse ;-))))))
Select Case sAnswer
Case 0: s = ""
Case 1, 2, 3, 4: s = arr(sAnswer - 1)
Case Else: MsgBox "mauvaise réponse, à refaire ..."
End Select
Et les valeurs de la colonne Dummy ont changé avec des valeurs identiques.
Et assez étrangement, depuis ce matin, j'ai un message d'alerte :
J'ai activé les macros dans cette boite de dialogue mais elles ne sont, malgré tout, plus actives.
J'essaye d'autres tests et je rendrai compte si de nouvelles trouvailles peuvent faire avancer le schmilblick ;-))))
Bon dimanche :-))))))
Bonjour,
Concernant l'ajout et la suppression de lignes, perso, j'ajouterais temporaisement la désactivation des événements.
Exemple : Module1, Sub Inserer_Ligne()
Application.EnableEvents = False
LO.ListRows.Add 2
Application.EnableEvents = TrueIdem pour la suppression :
Module1, Sub Supprimer_Ligne()
Application.EnableEvents = False
LO.ListRows(i).Range.Delete
Application.EnableEvents = TrueDu coup, cela corrige la bordure en gras sur la ligne ajoutée.
Bizz