Cellule bloquée - Page 2

Résolu
Précédent
  • 1
  • 2
  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    Mais dans ton code rien ne dit que tu ouvres ton userform dans la feuille ABC le seul bouton pour l'ouvrir est sur la feuille Couleur, comment ouvres tu l'userform sur la Feuille ABC
    et pour renseigner quelles cellules ?
    A+
    Mike-31

    Une période d'échec est un moment rêvé pour semer les graines du savoir.
    0
    1. eric2027 Messages postés 296 Statut Membre 6
       
      tu cliques sur le bouton et tu vas sur la feuille ABC, là tu cliques sur une cellule et tu recliques sur l'horaire que tu veux
      0
    2. ozone_ Messages postés 1823 Statut Membre 511
       
      Pourquoi on protège pas l'onglet Couleurs déjà ?
      0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    voilà, mais tu m'as dit que le verrouillage concernait B6:P36 et la saisie des heures est en A39 et au dessous es tu sur de ça sinon explique ou sont saisi les heures

    https://www.cjoint.com/c/EEwwR7jtBrR
    0
  3. eric2027
     
    La saisie des heures se fait à partir de l'user form, j'ai un panel pour que les garçons ne se trompent pas dans les heures, mais quand je click une fois dans ABC cela fonctionne mais le deuxieme fois cela me beug ainsi que les lettres qui sont en dessous, le message me fait référence a la typo de l'userform je crois, je t'envois le fichier avec le bouton de l'userform sur la feuille ABC

    http://cjoint.com/?EExhEwQSx8V
    0
  4. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,
    Mais l'userform ne sert à rien sur la feuille couleur, tu l'utilises uniquement sur la feuille ABC
    0
    1. eric2027
       
      oui tout a fait
      0
    2. eric2027 Messages postés 296 Statut Membre 6
       
      En a39, c'est le calcul des gens qui viennent sur les plages horaires
      En fait, tout ce qui entoure B6:P36 sont des formules de calcul pour mes stats
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. eric2027
     
    La sécurité est top, mais pourquoi avoir enlevé l'userform ?
    0
  7. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    Mais elle n'est pas supprimée et toujours opérationnelle sur ton fichier
    0
  8. eric2027
     
    Mille excuse , je n'avais pas vu, elle était sur le côté, je viens de refaire un un essai mais quand je clic dans une cellule, je peux intervenir sur la cellule si je re-clic 2 fois dedans, n'y a t-il pas un moyen de ne pas pouvoir re-cliquer dedans, la bloquer au 1er clic
    0
  9. eric2027
     
    C'est tout à fait ça, mais quand je copie et colle dans mon vrai fichier, il me dit 'cette cellule est déjà renseigné, Modification interdite ?
    0
  10. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    Alors on va passer aux explications,

    1/ commence par déprotéger ta feuille et verrouille toutes tes cellules (après sélection du tableau, clic droit Format de cellule/Protection/cocher Verrouillée

    2/ alors que le tableau est toujours sélectionné, onglet Révision/module Modification/Permettre la modification des plages/Nouvelle et saisir un mot de passe j'ai rentré titi (à personnaliser) cette fonction te permettra éventuellement d'intervenir dans une cellule verrouillée

    3 clic droit sur l'onglet de ta feuille/Visualiser le code, tu dois avoir ce code pour ouvrir l'UserForm

    Private Sub CommandButton1_Click()
    UserForm1.Show
    End Sub

    ajoute ce code

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Selection, Range("B6:P36")) Is Nothing Then
    If Target <> "" Or Target.Interior.ColorIndex <> xlNone Then
    ActiveSheet.Unprotect Password:="open"
    Target.Locked = True
    ActiveSheet.Protect Password:="open" ', DrawingObjects:=False, Contents:=True, Scenarios:= _
    False, AllowFormattingCells:=True
    End If
    End If
    End Sub

    dans le module de classe remplace ton code par

    Public WithEvents GrLabel As Msforms.Label
    Private Sub GrLabel_Click()
    On Error Resume Next
    If Selection <> "" Or Selection.Interior.ColorIndex <> xlNone Then
    MsgBox "Modification interdite", , "Cette cellule est déjà renseignée"
    Exit Sub
    Else
    ActiveSheet.Unprotect Password:="open"
    Selection.Interior.Color = GrLabel.BackColor
    Selection.Font.Color = GrLabel.ForeColor
    Selection.Value = GrLabel.Caption
    ActiveSheet.Protect Password:="open"
    End If
    End Sub

    bien sur il faut protéger ta feuille avec le mot de passe open et adapter tes plages de cellules et tes mots de passe

    A+
    Mike-31

    Une période d'échec est un moment rêvé pour semer les graines du savoir.
    0
  11. eric2027
     
    J'ai fait ce que tu m'a ecris, rien n'y fait, ne serait ce pas à cause de l'userform que je ne peux pas déplacer sur mon fichier car je déplace ton travail et je le copie sur mon fichier
    0
  12. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    Non pas du tout, mais as tu libéré l'Userform comme tu l'as fait sur ton fichier exemple, dans le Visual Basic double clic sur l'UserForm pour ouvri ses propriétés dans lesquelles tu recherches ShowModal que tu passes en False
    0
  13. eric2027
     
    J'ai fait au plus simple, je fais des copies de ton fichier ABC et je ré-incorpore le fichier de base, et ça fonctionne, je refais la synthèse ce soir et si ça fonctionne au top, je mettrais en résolu.

    Merci pour ta patience et ton savoir
    0
  14. eric2027 Messages postés 296 Statut Membre 6
     
    C'est super, tout marche du tonnerre, plus rien ne beug, le super pied, pour ce que est du bouton, j'ai tout fait mais n'y fait, si tu peux faire quelque pour le débloquer ce serait encore plus fort
    0
  15. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Je ne comprends pas ton dernier post dans lequel à mon avis il manque des lignes d'explications
    0
  16. eric2027 Messages postés 296 Statut Membre 6
     
    Les boutons qui sont sur les feuilles (à droite), sont bloqués, je ne peux pas les mettre en haut à gauche, en général en cliquant droit sur le bouton, on peut le déplacer ou on veut mais là non, ils restent figés
    0
  17. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    Le bouton que j'ai créé est un bouton de la barre Activex qui se trouve juste au dessous de celui de la barre formulaire, il offre plus de possibilités comme être figé sur la feuille ou évité d'être supprimé par inadvertance etc ...

    pour le supprimer, le redimensionner, le déplacer etc ...
    onglet Développeur/module Contrôles/clic sur Mode création

    fait ce que tu veux de ton bouton, puis libère le Mode création en recliquant sur le Mode création

    A+
    Mike-31

    Une période d'échec est un moment rêvé pour semer les graines du savoir.
    0
  18. eric2027 Messages postés 296 Statut Membre 6
     
    Un Grand Merci à Toi, sur ton travail et ta patience pour les explications que tu m'as apporté parce que tu me fais progresser sur excel et ce n'est pas une mince affaire excel

    Encore merci merci et vive ce Forum ou vous êtes à l'écoute des novices comme moi

    je mets en résolu
    0
Précédent
  • 1
  • 2