Discussion :

[RussellD]

Bonjour à tous,

j'ai un problème avec ma feuille de calcul sur lequel je bûche depuis un petit bout de temps...

La feuille exemple ci-jointe illustre ce problème.

Mode d'emploi :
-On entre 1 chiffre dans la case jaune. Le même nombre de lignes est créée. On remplie ces lignes (valeurs 1 et 2), et le sous-total 1 est fait.
-Même chose avec la 2eme case jaune. Le sous-total 2 est fait.
-Click sur le bouton "OK" --> les valeurs sous-total sont exportées dans la feuille 2, et le total est fait. En vérité ce ne sont pas les valeurs, mais les références des cellules nommées "SOUSTOTAL1" et "SOUSTOTAL2" qui sont exportées, si bien que l'on peut modifier les valeurs de la feuille 1, celles de la feuille 2 changeront en même temps.
Jusque là pas de problème.

Ensuite, on clique sur "Nouveau". Une nouvelle case jaune apparait. Même démarche que précedemment (on remplit toutes les valeurs), puis click sur "OK". Et c'est là que le problème intervient. Les nouvelles valeurs sont exportées sur la feuille 2, mais du coup les valeurs déjà exportées vont prendre la même valeur.... Car elles sont référencées par rapport aux noms des cellules...

Comment faire donc pour que les valeurs ne change pas, tout en restant "attachées" aux cellules correspondantes de la feuille 1 (pour être modifiées si l'on modifie les valeurs de la feuille 1).

En gros, comment faire pour qu'une cellule référencée par rapport à une cellule nommée le devienne par rapport à l'adresse absolue de celle-ci?

Voila, j'espère avoir été clair. Faire un essai sur la feuille exemple permet de beaucoup mieux cerner le problème (j'ai fait de mon mieux pour les explications, mais je comprend que cela reste un peu vague...)

Merci d'avance pour vos réponses et conseils !

Cordialement

[RussellD]

Bonjour,

mon problème n'a pas l'air d'inspirer grand monde ; je comprend vu la densité de l'explication et son caractère parfois peu clair.

C'est pourquoi je réduirai ce problème à une autre question, je pense plus accessible : comment faire pour trouver la position absolue d'une cellule nommée.
J'ai par exemple une cellule nommée "TEST" sur ma feuille, mais je ne connais pas sa position absolue. Y-a-t'il une macro qui puisse rechercher cette position (genre "A1" ou F47") et la donner en sortie?

Merci d'avance

Cordialement

[Didier Gonard]

Bonjour,

??

Code :

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

1
2
3
msgbox range("test").Address
 
msgbox range("test").Address(RowAbsolute:=False,ColumnAbsolute:=False)

cordialement,

Didier

[RussellD]

Bonjour,

merci de ta réponse. Ce que je recherche va un peu plus loin. J'aimerais que l'adresse absolue trouvée puisse ensuite être réutilisée dans une macro.
Cela s'écrirait grossièrement comme cela :

Code :

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

1
2
Range("test").Address = XY
Range("A1").Value = Range("XY").Value

Je ne veux pas faire

Code :

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

Range("A1").Value  = Range("test").Value

car la cellule nommée "test" peut être dénommée par la suite, et je voudrais que A1 garde sa valeur quoiqu'il arrive

Vois-tu comment faire cela?

D'avance merci

[Didier Gonard]

Bonjour,

Range("test").Address = XY
Range("A1").Value = Range("XY").Value

n'a pas de sens en vba

Code :

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

Range("test").Address = XY

, n'a pas de sens tu ne peux pas attibuer une adresse à une cellule qui a un nom, mais attribuer un nom à une cellule, oui, la déplacer ensuite, oui aussi (ce qui au niveau code revient à faire un couper-coller) et dans lequel cas, la propriété Address (en lecture seule) de l'objet range retournera la bonne adresse à chaque fois.

Range("A1").Value = Range("XY").Value

veut dire que A1 prend la valeur de la cellule qui se nomme XY ...

car la cellule nommée "test" peut être dénommée par la suite, et je voudrais que A1 garde sa valeur quoiqu'il arrive

c'est ambigüe, si on considère que ce que tu veux est que A1 garde la valeur de la cellule qui a porté le nom de test à un moment donné, il faut faire ainsi :

vois ainsi peut-être selon ton but..

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub soluceDVP()
Dim strmavariable As String
 
'à l'instant voulu, tu mémorise l'adresse de test
strmavariable = Range("test").Address 'ou  = Range("test").Address(RowAbsolute:=False,ColumnAbsolute:=False)
'Tu alimentes A1 en fonction de cette adresse et non en fonction du nom, donc si le nom change d'adresse
'et que tu met à jour A1, elle prndra la valeur de la cellule qui a pour adresse strmavariable, qui
'a correspondue à un instant T à l cellule ayant pour nom test !
Range("A1").Value = Range(strmavariable)
End Sub

cordialement,

Didier