Copier une valeur d'une cellule

Résolu

amintos87 -
amintos87 Messages postés 21 Date d'inscription Statut Membre Dernière intervention - 19 août 2016 à 18:36

Bonjour,
Avant, j'avais un problème d'extraire la valeur d'une cellule pour la mettre dans une autre cellule, j'ai fini par trouver une solution en utilisant les macros et voila le code :

Range("B4").Select
    Selection.Copy
    
    Range("B12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    Application.CutCopyMode = False
    Range("B4").Select

Je veux une autre méthode plus pratique si c'est possible.
Merci d'avance.
Cordialement.

Afficher la suite

A voir également:

Copier une valeur d'une cellule
Comment copier une vidéo youtube - Guide
Aller à la ligne dans une cellule excel - Guide
Bloquer une cellule excel - Guide
Super copier - Télécharger - Gestion de fichiers
Excel cellule couleur si condition texte - Guide

6 réponses

Réponse 1 / 6

Utilisateur anonyme

Bonjour amintos87,

Sub Essai()
  [B4].Copy [B12]
End Sub

Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».

Cordialement. 😊

amintos87 Messages postés 21 Date d'inscription Statut Membre Dernière intervention

Salut,
la formule est recopiée et moi je veux juste la valeur qu'elle soit recopiée.
Merci.

Réponse 2 / 6

Raymond PENTIER Messages postés 58991 Date d'inscription Statut Contributeur Dernière intervention 17 355

Autre méthode beaucoup plus pratique : écrire la formule

=B2

C'est bien, la retraite ! Surtout aux Antilles ... :-)
Raymond (INSA, AFPA, CF/R)

amintos87 Messages postés 21 Date d'inscription Statut Membre Dernière intervention

Salut,
ça marche pas, la valeur de "B12" n'est pas indépendante de "B4"
Merci

Réponse 3 / 6

amintos87 Messages postés 21 Date d'inscription Statut Membre Dernière intervention

Voila un exemple :

Utilisateur anonyme

Dans ce cas, ne mets pas en B12 ta formule =AUJOURDHUI()
et entre à la place 19/8

Non, désolé, voir ta formule entourée en rouge dans la barre de formule
m'a fait oublier que ça a été fait par ton code VBA (ou le mien) ; donc
la réponse de Mike-31 est plus adaptée que la mienne. 😊

amintos87 Messages postés 21 Date d'inscription Statut Membre Dernière intervention

Salut,
J'ai pas mis AUJOURDHUI() en B12, c'est ton code qui a fait ça
Merci.

Utilisateur anonyme > amintos87 Messages postés 21 Date d'inscription Statut Membre Dernière intervention

Oui, excuse-moi : mon code a copié B4 en B12 (tout, donc format et
formule compris) ; ce qui veut dire que tu as dû saisir en B4 :
=AUJOURDHUI()

J'ai vu que la solution de Mike-31 a réglé ton problème et que tu as
passé le sujet en résolu.

amintos87 Messages postés 21 Date d'inscription Statut Membre Dernière intervention > Utilisateur anonyme

Exact, et merci encore de patienter avec moi.
Cordialement.

Réponse 4 / 6

Mike-31 Messages postés 18406 Date d'inscription Statut Contributeur Dernière intervention 5 135

Bonjour,

comme cela

[B4].Copy
[B12].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

amintos87 Messages postés 21 Date d'inscription Statut Membre Dernière intervention

Salut,
C'est ça merci Mike-31
Merci.

Mike-31 Messages postés 18406 Date d'inscription Statut Contributeur Dernière intervention 5 135

Non ce n'est pas tout à fait ça, le code renvoi la date en format alphanumérique
42620
pour avoir la date 19/08/2016 il faut compléter le code, voir plus bas si tu ne veux pas le faire manuellement

amintos87 Messages postés 21 Date d'inscription Statut Membre Dernière intervention

C'est déjà réglé avec le changement de format de cellule.
Merci

Mike-31 Messages postés 18406 Date d'inscription Statut Contributeur Dernière intervention 5 135

peu importe, je te conseille d'inclure le format dans le code ce qui est logique et t'évitera des problèmes futurs
[B4].Copy
[B12].PasteSpecial Paste:=xlPasteValues
[B12].NumberFormat = "m/d/yyyy"
Application.CutCopyMode = False

amintos87 Messages postés 21 Date d'inscription Statut Membre Dernière intervention > Mike-31 Messages postés 18406 Date d'inscription Statut Contributeur Dernière intervention

Reçu et merci encore.

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

Posez votre question

Réponse 5 / 6

Mike-31 Messages postés 18406 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

si on avait toutes les données dès la demande de départ cela nous éviterait de travailler pour rien

voila le code si ça intéresse toujours
[B4].Copy
[B12].PasteSpecial Paste:=xlPasteValues
[B12].NumberFormat = "m/d/yyyy"
Application.CutCopyMode = False

amintos87 Messages postés 21 Date d'inscription Statut Membre Dernière intervention

Je pense que ma question était claire, peu importe
merci en tous cas.
Cordialement.

Réponse 6 / 6

amintos87 Messages postés 21 Date d'inscription Statut Membre Dernière intervention

Salut tout le monde,
Je pense que je l'ai trouvée.
[B12].Value = [B4].Value
Simple et pratique.
Merci à tous.

Discussions similaires

formule pour copier la valeur d'une cellule

dessin avec symbole clavier

additionner nombres dans cellules avec texte

Cette valeur ne correspond pas aux restrictions

excel fractionner une cellule horizontalement

Votre réponse

Discussions similaires