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

bahnini mohamed · 4 Novembre 2014

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 · 5 Novembre 2014

Re : copier la valeur de cellule vers une autre feuille

Bonsoir à tous

Essaie avec ce code

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

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
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 · 5 Novembre 2014

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 · 5 Novembre 2014

Re : copier la valeur de cellule vers une autre feuille

Bonsoir à tous

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

Code:

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 · 5 Novembre 2014

Re : copier la valeur de cellule vers une autre feuille

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

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

bahnini mohamed

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

bahnini mohamed

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

bahnini mohamed

XLDnaute Occasionnel

Discussions similaires