Copier valeur vers autre onglet en cliquant sur un bouton

Bonjour

Je souhaite copier une "valeur" (pas la formule) d'une cellule vers une autre cellule d'un autre onglet.

J'ai tapé ceci:

Private Sub CommandButton1_Click()

Range("B15").Select

Selection.Copy

Sheets("Feuil2").Range("B15").Select

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

:=False, Transpose:=False

Application.CutCopyMode = False

End Sub

mais il semble que la ligne suivant bloque :

Sheets("Feuil2").Range("B15").Select

J'ai essayer

Sheets("Feuil2").select

Range("B15").Select

Ca marche pas.

Merci de votre aide

fred

Bonjour

Mais si, ça doit marcher.

Avec l'enregistreur de macro

Range("B15").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("B15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False 
End Sub

Tu as du faire une petite erreur ailleurs

Cordialement,

Amadéus

il me sort

Erreur d'exécution 1004

La methode Select de la classe Range a échouée

Je ne vois pas d'ou pe venir le pb

fred

Re bonjour

Avec l'enregistreur de macro

Essaie avec l'enregistreur.

Amadéus

J'ai essayer,

mais je pense qu'il y a un pb entre les boutons de "formulaires" et ceux de"boite outils controle"..

C'est pas tout a fait pareil...

remarque le pb vient surment de moi, !!

Voici un exemple au cas ou

https://www.excel-pratique.com/~files/doc/aQMIjexemple.xls

Si ca peut aider qq'un pour m'aider

Merci

Bonjour

L'instruction suivante copie les valeurs de la cellule B15 de la 1e feuille dans la cellule C14 de la 2e feuille :

Worksheets(2).Range("C14").Value = Worksheets(1).Range("B15").Value

Ci-dessus, au lieu de désigner la feuille par le numéro d'ordre de l'onglet, on peut désigner la feuille par son nom, c'est à dire mettre Worksheets("NomDeLaFeuille") (guillemets obligatoires)

Pour une copie de feuille à feuille, l'instruction suivante échoue :

Worksheets(2).Range("A5").Value = Worksheets(1).ActiveCell.Value

la raison en est que la séquence ActiveCell n'admet pas Worksheets(…) comme antécédent

Private Sub CommandButton1_Click()

    Worksheets(2).Range("C14").Value = Worksheets(1).Range("B15").Value

End Sub

Fichier retour

https://www.excel-pratique.com/~files/doc/eiruAExempleRetour.xls

Cordialement,

Amadéus

Génial,

Ca marche nikel et c'est plus simple..

Merci bcp

fred