Sujet Précédent Sujet Suivant

Copier une valeur d'une cellule

Résolu/Fermé
amintos87 - 19 août 2016 à 17:03
amintos87 Messages postés 21 Date d'inscription dimanche 7 août 2016 Statut Membre Dernière intervention 12 novembre 2017 - 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.
A voir également:

6 réponses

Réponse 1 / 6
Utilisateur anonyme
19 août 2016 à 17:09
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
amintos87 Messages postés 21 Date d'inscription dimanche 7 août 2016 Statut Membre Dernière intervention 12 novembre 2017
19 août 2016 à 17:19
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 58519 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 1 juillet 2024 17 141
Modifié par Raymond PENTIER le 19/08/2016 à 17:29
Autre méthode beaucoup plus pratique : écrire la formule 
=B2


C'est bien, la retraite ! Surtout aux Antilles ... :-) 
Raymond (INSA, AFPA, CF/R)
0
amintos87 Messages postés 21 Date d'inscription dimanche 7 août 2016 Statut Membre Dernière intervention 12 novembre 2017
19 août 2016 à 17:33
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 21 Date d'inscription dimanche 7 août 2016 Statut Membre Dernière intervention 12 novembre 2017
19 août 2016 à 17:22
Voila un exemple :
0
Utilisateur anonyme
Modifié par albkan le 19/08/2016 à 17:36
 
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
amintos87 Messages postés 21 Date d'inscription dimanche 7 août 2016 Statut Membre Dernière intervention 12 novembre 2017
19 août 2016 à 17:39
Salut,
J'ai pas mis AUJOURDHUI() en B12, c'est ton code qui a fait ça
Merci.
0
Utilisateur anonyme > amintos87 Messages postés 21 Date d'inscription dimanche 7 août 2016 Statut Membre Dernière intervention 12 novembre 2017
Modifié par albkan le 19/08/2016 à 17:50
 
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
amintos87 Messages postés 21 Date d'inscription dimanche 7 août 2016 Statut Membre Dernière intervention 12 novembre 2017 > Utilisateur anonyme
19 août 2016 à 17:51
Exact, et merci encore de patienter avec moi.
Cordialement.
0
Réponse 4 / 6
Mike-31 Messages postés 18320 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 20 juin 2024 5 085
Modifié par Mike-31 le 19/08/2016 à 17:27
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
amintos87 Messages postés 21 Date d'inscription dimanche 7 août 2016 Statut Membre Dernière intervention 12 novembre 2017
Modifié par amintos87 le 19/08/2016 à 17:44
Salut,
C'est ça merci Mike-31
Merci.
0
Mike-31 Messages postés 18320 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 20 juin 2024 5 085
19 août 2016 à 17:48
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
amintos87 Messages postés 21 Date d'inscription dimanche 7 août 2016 Statut Membre Dernière intervention 12 novembre 2017
19 août 2016 à 17:53
C'est déjà réglé avec le changement de format de cellule.
Merci
0
Mike-31 Messages postés 18320 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 20 juin 2024 5 085
19 août 2016 à 17:57
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
amintos87 Messages postés 21 Date d'inscription dimanche 7 août 2016 Statut Membre Dernière intervention 12 novembre 2017 > Mike-31 Messages postés 18320 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 20 juin 2024
19 août 2016 à 18:10
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 18320 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 20 juin 2024 5 085
19 août 2016 à 17:42
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
amintos87 Messages postés 21 Date d'inscription dimanche 7 août 2016 Statut Membre Dernière intervention 12 novembre 2017
19 août 2016 à 17:48
Je pense que ma question était claire, peu importe
merci en tous cas.
Cordialement.
0
Réponse 6 / 6
amintos87 Messages postés 21 Date d'inscription dimanche 7 août 2016 Statut Membre Dernière intervention 12 novembre 2017
19 août 2016 à 18:36
Salut tout le monde,
Je pense que je l'ai trouvée.
[B12].Value = [B4].Value
Simple et pratique.
Merci à tous.
0

Discussions similaires

Dessiner avec son clavier et avec des lettres
JSS -
Polodu33 -

78 réponses
Excel:récupérer le contenu d'une cellule en fonction d'une autre
tinky31 -
leplot -

1 réponse
Excel VBA : Récupérer la valeur d'une cellule
la pioche -
mikebzh -

3 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
Renseigner cellule en fonction de la valeur d'une autre cellule
Stargirlfr -
Stargirlfr -

2 réponses