XL 2010 Copier/coller impossible - Correction macro

[Orson83]

Bonjour le forum,
A cause d'une macro je ne peux pas faire de copier/coller.
Serait-il possible d'ajouter un argument dans la macro pour autoriser le copier/coller ?
Merci pour votre aide.
Bonne journée.
Tchotchodu31

 

[Patrice33740]

Bonjour,

Il suffit de supprimer cette macro, dont je ne vois pas l'utilité (et sans rapport avec le commentaire qui la précède).
Si tu expliques quel est le but recherché, il y acertainement une autre solution plusborthodoxe.

 

[Patrice33740]

Je parles du but de la macro, je veux bien croire qu'elle est utile mais faut expliquer pourquoi ... (à part interdire le copier/coller)

 

[Orson83]

Bonjour,
Quelqu'un aurait une solution à proposer ?
Merci beaucoup.

 

[Staple1600]

Bonjour

Tchotchodu31
Avant de poser une question aujourd’hui, réponds à celles qu'on a t'a posée à hier à 18h36 et 18h37.

 

[Orson83]

Bonjour,

Il suffit de supprimer cette macro, dont je ne vois pas l'utilité (et sans rapport avec le commentaire qui la précède).
Si tu expliques quel est le but recherché, il y acertainement une autre solution plusborthodoxe.

Bonjour,
Ce n'est pas possible.

 

[Orson83]

Je parles du but de la macro, je veux bien croire qu'elle est utile mais faut expliquer pourquoi ... (à part interdire le copier/coller)

OK, je poste un fichier exemple.

 

[Orson83]

Bonjour

Tchotchodu31
Avant de poser une question aujourd’hui, réponds à celles qu'on a t'a posée à hier à 18h36 et 18h37.

Bonjour,
C'est fait.
J'avais supprimé mes réponses parce-ce-que j'ai légèrement modifié ma demande initiale.
Tchotchodu31

 

[Staple1600]

Re


Tu veux copier quoi et où?
(Parce que ton fichier exemple ne me parle pas trop)
Et il n'y aucun code VBA strictement dévolu à empêcher le copier/coller
Le code VBA présent ne fait que protéger la feuille.

 

[Orson83]

Re


Tu veux copier quoi et où?
(Parce que ton fichier exemple ne me parle pas trop)
Et il n'y aucun code VBA strictement dévolu à empêcher le copier/coller
Le code VBA présent ne fait que protéger la feuille.

Un simple copié/collé de texte dans la page ou sur une autre page.
Il y a du code dans la Feuil1 pour afficher le texte et du code dans le Module1 qui permet le fonctionnement de la Macro de la Feuil1.

 

[Staple1600]

Re

Je n'ai écrit qu'il n'y avait aucun code VBA
J'ai écris autre chose
(Je crois savoir depuis plus de 15 ans que je traîne mes guêtres sur ce forum où se trouve le code VBA dans un classeur)

 

[Orson83]

Un simple copié/collé de texte dans la page ou sur une autre page.
Il y a du code dans la Feuil1 pour afficher le texte et du code dans le Module1 qui permet le fonctionnement de la Macro de la Feuil1.

D'accord, je re-poste mon fichier.

 

[Patrice33740]

1) Le SelectionChange ne peut pas se produire ailleurs que sur la feuille active. La fin de ta macro est donc inutile, la feuille est forcement active.
2) Je ne vois pas pourquoi tu fusionnes les cellules D6, D7 et D8 alors qu'il suffit d'augmenter la hauteur de la ligne !
3) Pourquoi modifier le format de D6 à chaque changement de sélection alors qu'il suffit de le modifier uniquement quand c'est nécessaire? Dans ce cas tu retrouvera le copier / coller.

 

[Staple1600]

Re, Bonjour Patrick33740

Suis pas sur d'avoir compris
Mais ceci fonctionne sur mon PC

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D$6:D$8")) Is Nothing Then
If Len(Target) Then
Range("D6").Item(1) = Target.Value2
End If
End If
End Sub

Evidemment j'ai décoché Vérouillé sur la plage de cellules fusionnées
(D6:D8)
Et la feuille est protégée.
Si je sélectionne une cellule vide, alors la valeur de cette cellule se met en (D6:D8) même si la feuille est protégée.

 

[Orson83]

Re, Bonjour Patrick33740

Suis pas sur d'avoir compris
Mais ceci fonctionne sur mon PC

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D$6:D$8")) Is Nothing Then
If Len(Target) Then
Range("D6").Item(1) = Target.Value2
End If
End If
End Sub

Evidemment j'ai décoché Vérouillé sur la plage de cellules fusionnées
(D6:D8)
Et la feuille est protégée.
Si je sélectionne une cellule vide, alors la valeur de cette cellule se met en (D6:D8) même si la feuille est protégée.

Merci pour cette proposition.
Bizarrement, ça ne fonctionne pas chez moi.
Quand est-il de la partie du code qui bloque le nom de l'onglet ?

 If ActiveSheet.Name <> "Feuille accueil" Then
       ActiveSheet.Name = "Feuille accueil"
    End If

Mon fichier modifié serait un un grand bonheur.
Tchotchodu31