Bonjour,

Je découvre VBA depuis quelques jours pour un projet.

J'ai besoin de créer une macro qui copie la valeur d'une cellule pour la transférer à la place de la valeur d'une autre cellule. Pour le moment j'ai cette ligne de code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
If ['Gestion stock'!B21<>""] Then Range("Stock!E4").Value = Range("'Gestion stock'!B21").Value
Ce code fonctionne seulement j'ai besoin d'un petite modification qui me pose problème.

La destination du "collage", ici Stock!E4, est donné par une cellule. J'ai essayé ce code mais bug.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
If ['Gestion stock'!B21<>""] Then Range("'Gestion stock'!B22.Value").Value = Range("'Gestion stock'!B21").Value
Si quelqu'un a un brin d'explication! Merci d'avance