recopier dans autre feuille uniquement valeurs

[pascal21]

bonsoir à tous
pfffffff! encore un titre pas trop inspiré
même là quand je le relis je comprends pas ce que je voulais écrire
exemple je clique sur la cellule ("H10")
dans une autre feuille dans la cellule ("B4") j'aimerais que le contenu de la cellule ("H5") de la première feuille se recopie
ainsi que le contenu de la sheets(1).range("a10") dans la sheets(2).range("E1")
je vois ce que je veux faire mais je ne sais pas faire la syntaxe en VBA
je vous mets un petit fichier en couleur
merci de votre aide
j'ai changé le tite pour qu'il corresponde à la demande plus bas

 

[Robert]

Re : copier dans une feuille la cellule de la ligne 6 à la croisée de la cellule acti

Bonsoir Pascal, bonsoir le forum,

Essaie comme ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(ActiveCell.Row, 1).Copy Sheets("Feuil2").Range("B4")
Cells(5, ActiveCell.Column).Copy Sheets("Feuil2").Range("E1")
End Sub

 

[pascal21]

Re : copier dans une feuille la cellule de la ligne 6 à la croisée de la cellule acti

bonsoir et merci robert
je regarde ça demain là je vais aller me coucher je suis nase

 

[Robert]

Re : copier dans une feuille la cellule de la ligne 6 à la croisée de la cellule acti

Bonsoir Pascal, bonsoir le forum,

Ha si t'es nase arrête... Comme il disent en Galilée.

 

[pascal21]

Re : copier dans une feuille la cellule de la ligne 6 à la croisée de la cellule acti

bonjour
pffffffff!!! comment j'ai fais pour passer à coté de celle la
en même temps
je suis nase j'arrête ne veux pas dire grand chose
quoi que je suis aussi fan de l à peu près
bravo je ma replacerai
bon alors voyons voir ce code

 

[pascal21]

Re : copier dans une feuille la cellule de la ligne 6 à la croisée de la cellule acti

 Cells(ActiveCell.Row, 1).Copy Sheets("Feuille de chantier").Range("B4")Cells(5, ActiveCell.Column).Copy Sheets("Feuille de chantier").Range("E1")

 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

comment faire pour intégrer le 2eme code dans le premier pour n'avoir en copie que la valeur et non le format comme je ne l'avais pas précisé
merci

 

[pascal21]

Re : copier dans une feuille la cellule de la ligne 6 à la croisée de la cellule acti

j'ai changé le titre celui ci est plus parlant et correspond au post #6
c'est pour ne pas recréer de fil

 

[Robert]

Re : recopier dans autre feuille uniquement valeurs

Bonjour Pascal, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Feuil2").Range("B4") =Cells(ActiveCell.Row, 1).Value
Sheets("Feuil2").Range("E1") = Cells(5, ActiveCell.Column).Value
End Sub

 

[pascal21]

Re : recopier dans autre feuille uniquement valeurs

merci Robert