Interdire copie ou deplacement de noms

J

jp14

XLDnaute Barbatruc

• 5 Février 2008

• #2

Re : Interdire copie ou deplacement de noms

Bonjour

Une question : les noms qui sont dans la colonne J peuvent-il être inscrits dans la plage C4:G24.
Dans le cas contraire il suffit à l'aide d'une macro évènementielle supprimer les noms s'ils sont inscrits.

JP

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 5 Février 2008

• #3

Re : Interdire copie ou deplacement de noms

Peux-tu reformuler ta question?

il est difficile en l'état de comprendre exactement ce que tu veux!

Bon courage

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 5 Février 2008

• #4

Re : Interdire copie ou deplacement de noms

Bonsoir mon problème est le suivant les noms en colonne J sont des personnes ayant un handicap professionnel la page C4:G24 represente des lignes de production et on ma identifier ses personnes comme ne pouvant pas travailler sur ses lignes

si je deplace ou je copie ou je colle je voudrais avoir soit une interdiction soit un message
merci de votre aide

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 5 Février 2008

• #5

Re : Interdire copie ou deplacement de noms

Bonsoir

Ci joint le fichier avec une macro évènementielle. elle part de la liste des personnes et elle vérifie si le nom n'a pas été inscrit, un message informe l'opérateur.

A tester

JP

Fichier supprimé

 

Dernière édition: 7 Février 2008

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 5 Février 2008

• #6

Re : Interdire copie ou deplacement de noms

Bonsoir jp14 le message se déclanche mais ensuite je ne peux plus sortir je suis bloqué

Merci a toi

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 5 Février 2008

• #7

Re : Interdire copie ou deplacement de noms

Bonsoir
Bizarre, comme c'est bizarre.
Je n'ai pas de problème.

Il faudrait utiliser le débogage pour déterminer l'instruction qui provoque le blocage.
Pour cela il faut mettre un point d'arrêt et vérifier le fonctionnement du cycle.


JP

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 5 Février 2008

• #8

Re : Interdire copie ou deplacement de noms

je ne peux pax utiliser le deblocage c'est au moment ou le message apparait (je crois d'apres ton code qu'il devrait me donner le nom de la personne, là il ne le fait pas)

donc quand le message s'affiche et que je clique sur ok je ne peux pas sortir de la procédure je passe par Ctrl Alt Suppr bien sur le message ne s'enleve pas
Merci

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 6 Février 2008

• #9

Re : Interdire copie ou deplacement de noms

Bonjour

Une version sans message.
A tester

JP

Fichier supprimé

 

Dernière édition: 7 Février 2008

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 6 Février 2008

• #10

Re : Interdire copie ou deplacement de noms

Bonsoir le forum, Bonsoir jp14

je viens de tester le fichier mais il ne fonctionne pas ,si je tape le nom c'est OK par contre en copie, couper, voir en déplacement cela ne fonctionne pas

Merci a toi quand même

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 6 Février 2008

• #11

Re : Interdire copie ou deplacement de noms

Bonsoir

Quand je teste la macro elle fonctionne même avec un copier coller.
Effectivement en déplacement elle ne fonctionne pas.

Il faut rajouter la macro, identique à la précédente sauf son mode de lancement.

[/CODE]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim data1 As String
Dim cellule As Range
If flag = True Then Exit Sub
If Not Intersect(Target, Range("c4:g24")) Is Nothing Then
flag = True
With Sheets(ActiveSheet.Name)

For Each cellule In .Range("j4:j8")
data1 = recherchemot("c4:g24", cellule.Value, ActiveSheet.Name, 2)
If data1 <> "" Then .Range(data1) = ""
Next cellule
End With
End If
flag = False
End Sub
[/CODE]

JP

 

Dernière édition: 6 Février 2008

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 7 Février 2008

• #12

Re : Interdire copie ou deplacement de noms

Bonjour le forum

je n'arrive pas a faire fonctionne ce programme sur mon ordinateur excel 2000 ou 2003

Merci de votre aide

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 7 Février 2008

• #13

Re : Interdire copie ou deplacement de noms

Bonjour

Ci joint le fichier avec les macros.

JP

 

Pièces jointes

• eric1b.zip

  12.5 KB · Affichages: 34

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 7 Février 2008

• #14

Re : Interdire copie ou deplacement de noms

bonjour le forum et a toi jp14

désolé mais il doit y avoir un problème je n'y arrive pas

Que je tape, je deplace, je copie, cela se pas comme s'il n'y avait aucun code

Ce programme fonctionne t'il chez toi?

Merci

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 7 Février 2008

• #15

Re : Interdire copie ou deplacement de noms

Bonjour

Je n'ai aucun problème, les données s'effacent dès que je les inscris.

JP

 

Vote positif 0 Vote négatif