Bonjour, peut on interdire de copie une selection de cellules dans une colonne ou empecher de les coller ,
Merci de vos réponses
Bonjour, peut on interdire de copie une selection de cellules dans une colonne ou empecher de les coller ,
Merci de vos réponses
Cordialement,
Dom
_____________________________________________
Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
pensez à cliquer sur :resolu: si votre problème l'est
Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)
Bonjour,
Un peu plus d'explications sur ce que tu veux faire permettrait de mieux comprendre.
Toutefois il y à moyen de 'verrouillé' certaines cellules..
la solution suivant ta réponse...
A+
J'ai un truc un peu brutal mais efficace...A placer dans la feuille de code de la feuille de calculs concernée
Tu peux de même le faire pour une cellule ou une poignée de cellules déterminée
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 3 Then _ Cells(Target.Row, Target.Column).Offset(0, 1).Select End Sub
Edit
Mais tu peux aussi verrouiller les cellules concernées, déverrouiller les autres et protéger ta feuille en interdisant l'accès aux cellules verrouillées![]()
re-bonjour à tous,
à ouskel'nor, je ne doit pas verrouiller les cellules de la meme colonne quelles qu'elles soient car les saisies à venir se font dès la première cellule rencontrée (dans la même colonne). je veux juste empêcher à un quidam quelconque de faciliter sa saisie en recopiant des cellules déjà saisie (ce qui empécherait certaines macros de fonctionner).
à LEFORESTIER, regardes ma réponse ci-dessus : je veux simplement éviter de décider de copier des cellules déjà existantes pour les coller dès la première cellule vide ou je serais obligé de réfléchir plus sur mes macros qui fonctionnent dans worksheets_change (macros de mises à jour automatique d'autres colonnes)
Merci à vous
ps : j'ai résolu le problème pour les saisies réincrémentées
a+
Cordialement,
Dom
_____________________________________________
Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
pensez à cliquer sur :resolu: si votre problème l'est
Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)
Si je reformule pour les besoins de la solution que je pourrais te proposer, tu ne veux pas pouvoir, manuellement, copier/modifier une cellule déjà renseignée, mais tu veux pouvoir saisir dans les autres ? C'est bien ça ?
A+
je ne veux pas copier les cellules déjà renseignées dans le but de les coller à la suite des cellules déjà saisies car je fais ce travail pôur des gens qui ne connaissent pas ou très peu excel (afin de leur éviter des erreurs)
on peut modifier une cellule renseignéede la même colonne sans problème, faire une incrémentation, c'est prevu aussi mais pas copier
exemple; la colonne A est calculée (avec vba) ainsi que la colonne B, la colonne C peut etre renseignée, ce que je ne veux pas
cellules renseignées c2:c10 et l'opérateur veut faire une copie de c3:c5 àà la suite de c10, cà je veux l'empécher
Cordialement,
Dom
_____________________________________________
Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
pensez à cliquer sur :resolu: si votre problème l'est
Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)
Je vais donc supposer que la réponse à ma question est "oui !"
Teste ce code. Il peut être adapté.
Comme tu as du code dans worksheets_change, j'utilise une fonction qui, si elle te retourne True (cellule déjà renseignée) empêche le code qui suit de s'execute. En outre, elle place la cellule active sur la première cellule vide de la colonne.
Si ce n'est pas ce que tu veux, alors c'est que je n'ai toujours pas compris
A+
Edit
Oui, si je ne mets pas le code, ça marche pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Verif(Target) Then Exit Sub End Sub Function Verif(Cell) As Boolean If Cell <> "" Then _ Cells(Cell.Row, Cell.Column).Offset(1, 0).Select End Function
Bonjour le forum
méthode aussi assez brutale :
Ainsi toute recopie par copier et ou couper/coller interdite dans la colonne 3
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 dans l'évènement Selection_Change If Target.Column = 3 Then Application.CutCopyMode = False
Re,
Je crois qu'il veux empêché la copie par l'utilisateur.. mais c'est toujours pas très clair.
Pour empêché la copie..
A+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.CutCopyMode = False End Sub
Edit: je n'avais pas vu ton dernier message
Partager