( résolut )copier la valeur de cellule vers une autre feuille

[bahnini mohamed]

bonjour
j'ai un classeur qui comporte deux feuille 1 et 2
je veut recopier le valeur de cellule active de la feuille 2 (mais n'est pas toute les cellule seulement les cellule de la plage C2:C20) vers une cellule spécifié de la feuille 1 qui est: E10

j'ai le code suivant mais il fonctionne seulement pour recopier de cellule vers cellule de même feuille:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row >= 2 And Target.Row <= 20 And Target.Column = 3 Then Range("E10").Value = Target.Value
Cancel = True
End Sub

merci

 

[Staple1600]

Re : copier la valeur de cellule vers une autre feuille

Bonsoir à tous


Essaie avec ce code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C2:C20")) Is Nothing Then
Feuil2.[E10].Value = Target.Value
End If
End Sub

EDITION: Une variante avec un petit plus

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C2:C20")) Is Nothing Then
If IsEmpty(Target) Then
MsgBox "La cellule que vous voulez copiée est vide!", vbCritical, "ERREUR"
Else
Feuil2.[E10].Value = Target.Value
End If
End If
End Sub

PS: Tu ne dois avoir dans le code de la feuille qu'une seule procédure nommée Worksheet_BeforeDoubleClick
Donc ne pas oublier de mettre en commentaire ou supprimer les versions précédentes avant de tester les variantes.

 

[bahnini mohamed]

Re : copier la valeur de cellule vers une autre feuille

merci pour ta réponse
j'ai teste le code sa marche tres bien mais si en pour que la recopier se fait sans double Click mais par un simple Click
est ce que on peut remplacer Worksheet_BeforedoubleClick par Worksheet_BeforesimpleClick

 

[Staple1600]

Re : copier la valeur de cellule vers une autre feuille

Bonsoir à tous

bahnini mohamed
Remplaces l’événement BeforeDoubleClik par celui-ci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C2:C20")) Is Nothing Then
If IsEmpty(Target) Then
MsgBox "La cellule que vous voulez copier est vide!", vbCritical, "ERREUR"
Else
Feuil2.[E10].Value = Target.Value
End If
End If
End Sub

Dès qu'une valeur est saisie en C2:C20, la valeur est copiée en E10 sur la feuille 2.
NB: Le code est à mettre dans le code de la feuille 1.

 

[bahnini mohamed]

Re : copier la valeur de cellule vers une autre feuille

merci c'est vraiment incroyable
problème résolut