Petite modification macro

Résolu
kgigant Messages postés 223 Statut Membre -  
kgigant Messages postés 223 Statut Membre -
Bonjourà tous !

Je vous expose mon problème, il me faut une macro qui selectionne la valeur d'une cellule active d'un tableur feuille 1 pour la retransmettre dans une case spécifique feuill2.

A chaque changement de cellule dans le tableur la macro changerait égalment la valeur de la case feuille 2.

Voici la macro que j'ai :

Sub Macro1()

Range("K18").Select
Selection.Copy
Range("J18").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("J18").Select

End Sub

Cependant au lieu de modifier dans la case, elle en créée une nouvelle.

Help !

5 réponses

  1.
    pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,
    Essayons d'être plus clair...
    Tu veux :
    1- que la valeur de ta cellule active feuille1 (peu importe la cellule K18, AJ35, B13...) soit copiée/collée dans J18 feuille2?

    2- que la valeur de ta cellule active feuille1 (peu importe la cellule K18, AJ35, B13...) soit copiée/collée dans son homonyme feuille2 (dans l'exemple Feuil1!K18 --> Feuil2!K18, Feuil1!AJ35 --> Feuil2!AJ35...) ?

    Tu dis, 1 ou 2 ou autre choix...

    PS : tu connais elninio?

    Franck P
    0
  2. kgigant Messages postés 223 Statut Membre 9
     
    dsl pour elninio il boss avec moi je lui avait dis que je m'en occupai mais il a posté un message....

    je veux que la valeur de ma celulle active feuille1 (peu importe la cellule d'une collonne précise B2, B3, B6, ...) soit copieé/collée dans une case feuille 2 (par exemple J18)
    0
  3. kgigant Messages postés 223 Statut Membre 9
     
    tu as cerné le problème ?
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Bien sur. Je faisais juste autre chose...
      Je n'ai pas testé, mais ça doit être quelque chose comme : 
      With Sheets("Feuil2")
.Range("J18").Value = ActiveCell.Value
End With
      0
  4. kgigant Messages postés 223 Statut Membre 9
     
    ton code a pas l'air mauvais mais il ne marche pas, tu peux s'il te plait remettre toute la macro je me suis peut etre trompé quelque part, merci de ton aide
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Salut,
      Ben il y a là toute la macro... 
      Sub Macro1() 
With Sheets("Feuil2")
    .Range("J18").Value = ActiveCell.Value
End With
End Sub

      Sinon essaie : 
      Sub Macro2()
Dim Valeur As String

Valeur = ActiveCell.Value
With Sheets("Feuil2")
    .Range("J18").Value = Valeur
End With
End Sub
      0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. kgigant Messages postés 223 Statut Membre 9
     
    Merci beaucoup c'est exactement ce que je voulais !!!!
    0

Discussions similaires

Petite majuscule Word
Messalla -
Monique -

10 réponses
Icone de forme clé agfiché sur mon téléphone samsung
Soula -
ondine -

2 réponses