Copier une valeur d'une cellule

Résolu
amintos87 -  
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.

6 réponses

  1. 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.  😊
     
    1
    1. amintos87
      Salut,
      la formule est recopiée et moi je veux juste la valeur qu'elle soit recopiée.
      Merci.
      0
  2. Raymond PENTIER Contributeur
    Autre méthode beaucoup plus pratique : écrire la formule 
    =B2


    C'est bien, la retraite ! Surtout aux Antilles ... :-) 
    Raymond (INSA, AFPA, CF/R)
    0
    1. amintos87
      Salut,
      ça marche pas, la valeur de "B12" n'est pas indépendante de "B4"
      Merci
      0
  3. amintos87
    Voila un exemple :
    0
    1. 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.  😊
      0
    2. amintos87
      Salut,
      J'ai pas mis AUJOURDHUI() en B12, c'est ton code qui a fait ça
      Merci.
      0
    3. Utilisateur anonyme
      @amintos87 
      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.
       
      0
    4. amintos87
      @Utilisateur anonymeExact, et merci encore de patienter avec moi.
      Cordialement.
      0
  4. Mike-31
    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.
    0
    1. amintos87
      Salut,
      C'est ça merci Mike-31
      Merci.
      0
    2. Mike-31
      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
      0
    3. amintos87
      C'est déjà réglé avec le changement de format de cellule.
      Merci
      0
    4. Mike-31
      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
      0
    5. amintos87
      @Mike-31Reçu et merci encore.
      0
  6. Mike-31
    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
    0
    1. amintos87
      Je pense que ma question était claire, peu importe
      merci en tous cas.
      Cordialement.
      0
  7. amintos87
    Salut tout le monde,
    Je pense que je l'ai trouvée.
    [B12].Value = [B4].Value
    Simple et pratique.
    Merci à tous.
    0

    Discussions similaires

    Problème de restrictions
    SuperAmbi

    5 réponses
    Copier coller une image de Google sur Macbook
    orianepark

    1 réponse