XL 2010 Copier/coller impossible - Correction macro

Orson83

XLDnaute Impliqué
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
 

Pièces jointes

  • Exemple V1.xlsm
    22 KB · Affichages: 16
Dernière édition:
Solution
Re, Bonjour Patrick33740

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.

Staple1600

XLDnaute Barbatruc
Re

Je ne modifie pas les fichiers
J'aide les demandeurs à modifier leur fichier en mettant les mains dans le cambouis.
Comme disait maître Yoda:
"L'échec, le meilleur des maîtres être"
;)
Donc recommence et tu devrais obtenir ce que j'obtiens sur mon PC
(j'ai fait le test sur ton fichier exemple en suivant les explications données dans le message#14)
 

Patrice33740

XLDnaute Impliqué
Quand est-il de la partie du code qui bloque le nom de l'onglet ?
VB:
 If ActiveSheet.Name <> "Feuille accueil" Then
       ActiveSheet.Name = "Feuille accueil"
    End If
Mon fichier modifié serait un un grand bonheur.
Tchotchodu31
Comme je t'ai dis, cette partie du code est totalement inutile, car l'évènement concerne la feuille, elle est donc toujours active !
Comme Staple (que je salue) je ne te proposerais pas le code qui fonctionne mais je t'ai dis comment résoudre le problème :
Il ne faut modififier le format de d6 que lorsque c'est nécessaire, c'est à dire quand il n'est pas égal à ce qu'il devrait être au lieu de le modifierà chaque changement de sélection comme c'est le cas actuellement.
 

Discussions similaires

Réponses
56
Affichages
1 K

Statistiques des forums

Discussions
312 115
Messages
2 085 455
Membres
102 891
dernier inscrit
cocowild