Discussion :

[gilles06]

Bonjour,

Je voudrais savoir comment affecter le contenu d'une cellule par le contenu d'une autre cellule.
example:
A(1)= toto
A(3)=24

Je voudrais affecter a toto la valeur 24, de tel sorte que si je display la variable toto il me dise 24.
J'ai essaye avec la commande INDIRECT, mais je n'y suis pas arrive

Merci de m'aider

[Bigalo]

Bonsoir,

Crée le nom "Toto" (Menu Insertion, Nom, Définir... ou, si tu utilises Excel 2007, Formules puis Gestionnaire de noms), et affecte-lui la valeur 24.

[gilles06]

Merci ,

Ce n'est pas ce que je cherche a faire.
En fait j'ai le tableau suivant

F G
6: FSBaseAdress 0000
7: CDLocationBasePointer 0200
8: RDLocationBasePointer 0100

Ce tableau peut evoluer, en fait ce sont des pointeurs d'adresses et dans mon code VBA je me sers des variables qui sont en F6,F7 et F8 et je veux que ces variables contiennent les valeures qui sont en G.

Est-ce possible ? et si oui comment.

J'ai bien essaye avec la commande INDIRECT, mais celle-ci ne fonctionne pas (pas reconnue sous VBA avec Excell 2003 SP2) et je ne sais pas pourquoi.

Merci de m'aider

[Bigalo]

Re,

Code :

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

1
2
3
4
5
6
Sub Variables()
Dim FS As String, CD As String, RD As String
    FS = Range("G6")
    CD = Range("G7")
    RD = Range("G8")
End Sub

Mais je ne comprends pas où se trouve l’indirection.

[gilles06]

Je crois que je me suis mal exprime. Ce n'est pas FS, ni CD ni RD que je veux affecter avec les valeures de G6,G7 et G8. Mais ce sont les variables qui sont dans F6, F7 et F8 soit:
FSBaseAdress = 000
CDLocationBasePointer=0200
..etc
Je veux pouvoir utilier le contenu des cells en F6,F7 et F8 comme variables et leur affecter les valeures de G6,G7 et G8.

C'est pour cela que je pqrle d'indirection. De plus, je ne sais pas pourquoi ma fonction INDIRECT n'est pas reconnue en vba chez moi ?

[Bigalo]

Dans l’exemple de code, j'ai utilisé FS, CD et RD comme nom de variables. Si tu as déjà des variables, utilise-les à la place :

Code :

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

1
2
3
4
5
6
VSub Variables()
Dim FS As String, CD As String, RD As String
    FSBaseAdress = Range("G6")
    CDLocationBasePointer = Range("G7")
    RDLocationBasePointer Range("G8")
End Sub

[Bigalo]

Ce que je ne comprends pas est cette phrase :

Mais ce sont les variables qui sont dans F6, F7 et F8

Tu peux inscrire le nom de variables dans des cellules, mais cela ne dispense pas de les définir dans VBA : il n'y a donc pas de variables dans les cellules, mais de simples chaînes de caractères.

Ou alors on n’a pas forcément besoin de VBA, et on en revient à ma première option, qui est de définir des noms :

Celui en F6 pour le contenu de la cellule G6
...

Et dans les cellules, on peut alors utiliser ces 3 noms comme on le ferait en VBA avec des variables.