Copier une valeur d'une cellule

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