Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Affectation des valeurs à une cellule+copie/coller

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Colonel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Colonel

Guest
Bonjour,
Je suis débutant en vba et je souhaiterai obtenir de l'aide de votre part. J'y suis presque mais ça ne marche pas. Voici mon problème:
Dans feuil1, j'ai une valeur dans C1 qui est la somme de A1 et B1.
Dans feuil2, j'ai une valeur dans A1 et B1 et le but c'est de copié A1 et B1 de feuil2 et les collé dans A1 et B1 de feuil1 et ensuite récupéré la nouvelle valeur de la somme(sans la formule) et la collé dans C1 de feuil2.

J'ai fait ce procédure qui marche très bien:
Sub test()

Worksheets("feuil2").Range("A1").Copy
Worksheets("feuil1").Range("A1").PasteSpecial xlPasteAll
Worksheets("feuil2").Range("B1").Copy
Worksheets("feuil1").Range("B1").PasteSpecial xlPasteAll

Worksheets("feuil1").Range("C1").Copy
Worksheets("feuil2").Range("C1").PasteSpecial xlPasteValues

End Sub

Mais je souhaiterai passer les 2 valeurs dans feuil2 en parametre d'une fonction
et ensuite retourné en valeur la valeur dans C1 de feuil2

Merci
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Affectation des valeurs à une cellule+copie/coller

Bonjour colonel et bienvenue sur le forum.

Tu peux essayer un code de ce genre :
VB: 
Sub test()
    Dim v1 As Double, v2 As Double
    v1 = Worksheets("feuil2").Range("A1").Value
    v2 = Worksheets("feuil2").Range("B1").Value
    Worksheets("feuil1").Range("A1").Value = v1
    Worksheets("feuil1").Range("B1").Value = v2
    Worksheets("feuil2").Range("C1").Value = v1 + v2
    Mafonction(v1, v2)
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Affectation des valeurs à une cellule+copie/coller

Bonjour Fred0o, Merci par l'avance d'avoir plongé dans mon problème. Toutefois, la solution que vous me proposez ne marche pas. Je pense que vous aviez mal compris mon probleme aussi, il ne s'agit pas de faire la somme sur la feuil2 mais juste copié le resultat à partir du feuil1:
exemple:
sur feuil1: A1=2; B2=3; C1=A1+B1=5
sur feuil2 A1=10; B2=15
la fonction doit remplacer les valeurs de feuil1 par celles de feuil2 et ensuite copié la nouvelle résultat C1 par valeur dans la feuil2.
Merci
 
Vote positif 0 Vote négatif
Re : Affectation des valeurs à une cellule+copie/coller

bonsoir Colonel, Fredoo
et oui comme dab "Cela ne marche pas" et si tu avais mis un fichier avec des explications dedans cela marcherait mais bon tu attends sans doute que l'on fasse aussi le fichier exemple?
Je te rassure Fredoo sait faire une addition aussi compliqué que ce que tu demandes!!
a+
Papou🙂
 
Vote positif 0 Vote négatif
Re : Affectation des valeurs à une cellule+copie/coller

Bonsoir Colonel Fredoo,
alors je vois que tu as mis un fichier c'est parfait mais encore "plus" pire !!!
comment tu copies avec ta macro et que tu arrives a faire une somme?????
en copiant A1 de f1 en A1 de f2 puis b1 de f1 en b1 de f2
Bref tu veux quoi comme résultat car tu as 13 dans A2 20 et B2 et tu voudrais 33 en C2 oui c'est simple tu mets dans C2 "=B2+A2"
enfin tu vas dire non c'est pas ce que je veux, mais justement tu veux quoi? expliques un peu STP
a+
papou🙂
 
Vote positif 0 Vote négatif
Re : Affectation des valeurs à une cellule+copie/coller

Bonsoir Paritec,
Oui, mais je ne souhaite la faire comme ça. Une fois que je serais comment résoudre le problème posé, je serais en mesure de résoudre une des mes problèmes beaucoup plus compliqué. Si j'avais pas exposé le problème réal ici, c'est parce que les données sur laquelles je travail sont très confidentielles. Donc en résolvant ce problème comme je l'ai posé, je résous mon "vrai" problème.
Donc voilà et c'est serait sympa si vous pourriez m'aider.
Merci
 
Vote positif 0 Vote négatif
Re : Affectation des valeurs à une cellule+copie/coller

Bonsoir Colonel, Paritec,

T'es pas facile à comprendre, colonel ! j'avais axé ma macro sur les variables v1 et v2, puisque c'est ce que tu semblais demander. Je viens donc de la modifier pour qu'elle recopie la valeur de la feuil1 sur la feuil2.

VB: 
Sub test()
    Dim v1 As Double, v2 As Double, i As Integer
    For i = 2 To Range("A65536").End(xlUp).Row
        Worksheets("feuil1").Range("A1").Value = Worksheets("feuil2").Range("A" & i).Value
        Worksheets("feuil1").Range("B1").Value = Worksheets("feuil2").Range("B" & i).Value
        Worksheets("feuil2").Range("C" & i).Value = Worksheets("feuil1").Range("C1").Value
    Next
End Sub

Voir le fichier en pièce jointe.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Affectation des valeurs à une cellule+copie/coller

Merci Fred0o,
C'est fantastique votre macro, je vais l'adapter à mon problème. Merci encore pour le temps que vous auriez dû consacrer pour le faire. Je vous donnerais un Feedback dès que j'aurais complètement terrassé mon problème
En ce qui concerne mes explications, c'est mon plus grand défaut!.

Merci et bonne soirée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2019 copier des valeurs de la verticale à l'horizontale. Possible d'un coup ?
2
Réponses
20
Affichages
480
gosselien
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
283
PR.
P
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
422
MATLEA
M
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
588
sylvanu
J
  • Question Question
Microsoft 365 recherchev associé à NB.SI
Réponses
9
Affichages
621
jebbayou34
J
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
P
  • Résolu(e)
Microsoft 365 Arrondir une valeur avant de la coller
Réponses
7
Affichages
352
job75
C
  • Résolu(e)
Autres Copier des données vers une nouvelle feuille excel VBA
2
Réponses
25
Affichages
1 K
Carolinebd
C
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
335
PRy
P
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
459
juju91
J
Y
  • Résolu(e)
XL 2016 Calculs automatique XO pour des valeurs dans un tableau
Réponses
3
Affichages
143
dysorthographie
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
345
job75
B
  • Question Question
XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs
2
Réponses
16
Affichages
776
benjy555
B
O
  • Question Question
Autres Optimisation macro numérotation ligne
Réponses
11
Affichages
479
crocrocro
C
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
511
job75
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
702
MANU64360
M
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
488
Anthony_51
A
D
  • Question Question
XL 2021 figer le contenu d'une cellule en fonction d'une date
Réponses
3
Affichages
628
JHA
J
M
  • Résolu(e)
XL 2021 Ajouter un bonus de 100 à certaines valeurs
Réponses
4
Affichages
226
MATLEA
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…