Problème de copie

[ascal44]

Bonjour le forum ,
J'ai un problème de copie :
Je ne peux copier des valeures dans les cellules concernées par ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B6:B41,F6:F41,J6:J41,N6:N41")) Is Nothing Then Target.Offset(0, 1) = MaValeur
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B6:B41,F6:F41,J6:J41,N6:N41")) Is Nothing Then
MaValeur = Target.Value
Target.Offset(0, 1).Font.ColorIndex = 3
End If
End Sub


Comment contourner ce problème ?

Merci d'avance aux génis du VBA

 

[porcinet82]

Re : Problème de copie

Salut,

Comment ca, tu ne peux pas copier ces cellules ? Je viens de faire le test et chez moi ca fonctionne.
Pourrais-tu joindre un exemple de ton fichier sans données confidentielles que l'on voit ce qui cloche.

@+

 

[ascal44]

Re : Problème de copie

Voici le fichier

Si je veux copier par exemple la cellule A8 en B7 : lorsque que je clique sur la cellule B7 l'icone de collage devient inactif !!!

et ceci sur toutes les cellules concernées par le code !!!

 

[porcinet82]

Re : Problème de copie

re,

Effectivement, la macro evenementielle se declanche et desactive la copie.
Je vais peut etre dire une connerie, mais pourquoi ne mets-tu pas directement :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B6:B41,F6:F41,J6:J41,N6:N41")) Is Nothing Then
    MaValeur = Target.Value
    Target.Offset(0, 1).Font.ColorIndex = 3
    Target.Offset(0, 1) = MaValeur
End If
End Sub

@+

 

[ascal44]

Re : Problème de copie

Merci Porcinet,
Ce n'est pas exactement ce que je souhaites :

Je voudrais par exemple que s'inscrive en C8 l'ancienne valeure que je remplace en B8 et seulement si je remplace la valeure en B8.

Tout en me permettant de coller dans les cellules concernées par le code.

Pas trop compliqué mon explication ?

 

[porcinet82]

Re : Problème de copie

re,

Désolé, mais je ne saisie pas ce que tu souhaites... Peut etre qu'un exemple sur une feuille dans laquelle il n'y aurai pas la macro serait plus parlant.

@+