code visual basic

[testman6]

J'ai un problème avec un code pour un bouton de commande;voici mon code

Private Sub CommandButton1_Click()
Range('E6').Copy.Activate Range('G6').PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Par ce code je veut copier la cellule E 6 puis coler la valeur dans la cellule G 6

Si une personne peut m'aider ...........

 

[PascalXLD]

Bonjour

en plus simple

Private Sub CommandButton1_Click()
Range('G6')=Range('E6')
End Sub

Bonne soirée

 

[testman6]

Merci Pascal, mais je veut coller en G6 ; LA VALEUR (COMME COLLER AVEC LIAISON)

 

[Denis]

Bonjour testman6, Pascal et le Forum
essais ceci :
Range('E6').Copy
Range('G6').PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Bon courage et à +
Denis

 

[Bernard_XLD]

Bonjour Testman6, Pascal76, Denis, le forum

Testman, tu dis
'je veut coller en G6 ; LA VALEUR '
Eh ben c'est exactement ce que fait le code de Pascal le plus simplement qui soit, l'as tu essayé au moins avant de répondre de cette façon?
Ton premier code montre que tu débutes, et à ce niveau là, ignorance ne va pas vraiment avec arrogance. Quand on demande de l'aide, mieux vaut rester humble.

Cordialement, A+

 

[PascalXLD]

Merci Yeahou

Tu vois quand j'ai lu sa réponse ce matin je n'ai même pas pris la peine de répondre.......

Bonne journée à toi et au forum

 

[testman6]

Je m'excuse si j'ai mal formuler ma demande. Je suis entrains de faire un petit fichier pour faire des DRAP pour des compétitions. Je voulais utilser des boutons commande pour que je n'est cas CLICKER sur le nom du gagnant et que la valeur de la cellule du gagnant s'inscrive automatiquement dans une autre cellule.Je vous envoye un exemple d'un drap. Merci

 

[testman6]

J'ai fais des test avec le code de XLDnaute, après plusieurs erreurs
( de ma par ). Ca marche très bien . Merci XLDnaute.


P.S. Je suis un débutant mais je compte bien, mieux formuler mes demandes à l'avenir

Sans rancunes A+