Petite modification macro

Résolu/Fermé

kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 - 23 mars 2011 à 12:53
kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 - 24 mars 2011 à 13:18

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 !

A voir également:

Petite modification macro
Logiciel modification pdf - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Suivi de modification word - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

5 réponses

Réponse 1 / 5

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 23/03/2011 à 13:16

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

Réponse 2 / 5

kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 9
23 mars 2011 à 13:46

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)

Réponse 3 / 5

kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 9
23 mars 2011 à 15:49

tu as cerné le problème ?

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
23 mars 2011 à 16:00

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

Réponse 4 / 5

kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 9
24 mars 2011 à 08:37

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
24 mars 2011 à 09:11

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

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

Posez votre question

Réponse 5 / 5

kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 9
24 mars 2011 à 13:18

Merci beaucoup c'est exactement ce que je voulais !!!!

Discussions similaires

A quoi correspond cette croix sur snapchat

[PIX] Commencer chaque poème sur une nouvelle page

Savoir si je suis bloqué par une personne sur snap chat

comment savoir qu'une personne nous a supprimé Snapchat

Discussions similaires

Newsletters