Discussion :

[MAHB34]

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

[Marc-L]

Bonsoir, voir du côté de la méthode Evaluate …

[Guiiand]

Bonjour,

Voici un exemple de code qui marche pour ce que tu veux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Sheets("Gestion stock").Range("B21") <> "" Then
    Sheets("Gestion stock").Range("B22") = Sheets("Gestion stock").Range("B21")
End If

Prefere toujours externaliser le nom des feuilles avec sheets("")

[keygen08]

Bonjour
ceci

If ['Gestion stock'!B21<>""] Then Range("'Gestion stock'!B22.Value").Value = Range("'Gestion stock'!B21").Value

doit etre remplacer par cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ['Gestion stock'!B21<>""] Then Range("'Gestion stock'!B22").Value = Range("'Gestion stock'!B21").Value

Il y a un value en trop

[MAHB34]

Bonjour,

Après quelques recherches sur la fonction Evaluate, cette solution fonctionne parfaitement, merci beaucoup Marc-L .

La ligne de code est donc transformé en :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ['Gestion stock'!B21<>""] Then Range(Evaluate("'Gestion stock'!B22")).Value = Range("'Gestion stock'!B21").Value