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
Suis pas sur d'avoir compris
Mais ceci fonctionne sur mon PC
VB:
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.
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.
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.
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.
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.
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)
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.
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.
Suis pas sur d'avoir compris
Mais ceci fonctionne sur mon PC
VB:
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.
Suis pas sur d'avoir compris
Mais ceci fonctionne sur mon PC
VB:
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.