Copier une valeur d'une cellule

Résolu

amintos87 -
amintos87 Messages postés 23 Statut Membre - 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

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. 😊
1
1. amintos87 Messages postés 23 Statut Membre
  
  Salut,
  la formule est recopiée et moi je veux juste la valeur qu'elle soit recopiée.
  Merci.
  
  0
Réponse 2 / 6
Raymond PENTIER Messages postés 58213 Date d'inscription Statut Contributeur Dernière intervention 17 482
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 Messages postés 23 Statut Membre
  
  Salut,
  ça marche pas, la valeur de "B12" n'est pas indépendante de "B4"
  Merci
  
  0
Réponse 3 / 6
amintos87 Messages postés 23 Statut Membre

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 Messages postés 23 Statut Membre
  
  Salut,
  J'ai pas mis AUJOURDHUI() en B12, c'est ton code qui a fait ça
  Merci.
  
  0
  1. Utilisateur anonyme > amintos87 Messages postés 23 Statut Membre
    
    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
  2. amintos87 Messages postés 23 Statut Membre > Utilisateur anonyme
    
    Exact, et merci encore de patienter avec moi.
    Cordialement.
    
    0
Réponse 4 / 6
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 147

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 Messages postés 23 Statut Membre
  
  Salut,
  C'est ça merci Mike-31
  Merci.
  
  0
2. Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 147
  
  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 Messages postés 23 Statut Membre
  
  C'est déjà réglé avec le changement de format de cellule.
  Merci
  
  0
4. Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 147
  
  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
  1. amintos87 Messages postés 23 Statut Membre > Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention
    
    Reçu et merci encore.
    
    0
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Réponse 5 / 6
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 147

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 Messages postés 23 Statut Membre
  
  Je pense que ma question était claire, peu importe
  merci en tous cas.
  Cordialement.
  
  0
Réponse 6 / 6
amintos87 Messages postés 23 Statut Membre

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

Copier une valeur d'une cellule

6 réponses

Discussions similaires

Newsletters