Discussion :

[pinocchio]

Bonjour,

Je souhaite recopier la valeur d'une cellule dans une autre. Mon but final est la création de fichier en fonction d'un filtre, cela fonctionne mais je veux ajouter des variables afin de pouvoir utiliser la macro quelque soit la configuration du fichier Excel.

De base, je fais

Code :

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

1
2
3
 
Set sh = Sheets(1)
sh.[AB1] = sh.[E1]

La cellule E1 correspond à la première ligne de ma colonne de tri. Je veux pouvoir donner le choix de la colonne de tri, pour cela je fais

Code :

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

1
2
3
4
5
 
Dim TriColonne
TriColonne = InputBox("Lettre de la colonne de tri ?", "Lettre colonne tri")
Set sh = Sheets(1)
sh.[AB1] = sh.[TriColonne & "1"]

Lorsque j'ajoute les espions, La première version me donne la valeur de la cellule E1, la seconde version me met Erreur 2029 alors que TriColonne & "1" donne bien E1 .

Savez-vous quelle est mon erreur s'il vous plait ?

Bonne soirée

[Zekraoui_Jakani]

à force de bouger, Omer Simpson m'empêche de me concentrer sur la question; Je la relirai demain donc à tête reposée

[ChristianBosch]

Salut, en VBA on adresse avec les objets range

Code :

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

1
2
3
4
Dim TriColonne as string
TriColonne = InputBox("Lettre de la colonne de tri ?", "Lettre colonne tri")
Set sh = Sheets(1)
sh.range("AB1") = sh.range(TriColonne & "1")

[MarcelG]

Bonjour à vous,

Si je peux me permettre une remarque.

Et ce sans flagornerie aucune (Ce n'est pas mon genre).

Je dirais qu'il faut se méfier de cette écriture entre crochets pour désigner une référence de cellule.
A mon sens elle ne devrait servir qu'à reporter une valeur de cellule..

Code :

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

lavaleur = Sht_mesdonnnées.[A1]

Et encore!

A ce sujet, l'on peut se référer au billet suivant (voir mon introduction)
Notation entre crochets, fausse bonne idée