Discussion :

[stroutz]

Bonjour à tous,

Mon code tourne nickel. Seul bémol, certain classeurs excel sur lesquels je copie automatiquement des données n'ont pas la même cellule de destination....

Code :

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

wbk.Sheets(ComboBox2.Value).[A68].PasteSpecial xlPasteValues

Ceci est la ligne de code pour coller en A68: La combobox est en fait une liste des mois, mois qui sont également sur le classeur excel par feuille.

Cette ligne tourne nickel.

Je souhaiterais maintenant, que la cellule de destination soit non plus A68,

mais renommée par la valeur de la combobox + "R".

Je m'explique prenons le mois de juin, la cellule A68 s'appelle: JUNER
Septembre: SEPTEMBERR

etc...

JE LES AI DÉJÀ TOUTES RENOMMÉES.

Mon idée de code était donc:

Code :

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

wbk.Sheets(ComboBox2.Value).["JUNER"].PasteSpecial xlPasteValues

Et en pratique:

Code :

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

wbk.Sheets(ComboBox2.Value).[(ComboBox2.Value) & "R"].PasteSpecial xlPasteValues

Cela ne fonctionne pas... Une âme charitable aurait une idée de correction???

MERCI D'AVANCE!!

[Theze]

Bonjour,

Avec Range :

Code :

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

1
2
 
wbk.Sheets(ComboBox2.Value).Range(ComboBox2.Value & "R").PasteSpecial xlPasteValues

Hervé.

[stroutz]

C'est tellement évident... Ca m'apprendra à jamais prendre du recul sur mon code

Merci beaucoup Hervé!

[Theze]

Re,

La fonction Evaluate (les crochets appelle la fonction) évalue relativement bien l'argument passé mais pas à 100 % :-(

Hervé.