variable excel dans vba

[tof]

salut

je voudrais savoir si une case excel pour aparaitre dans mon programme vba. (si la valeur de la case change sous excel elle doit ce mettre à jour sous vba)

est ce possible ?

merci

 

[tof]

en fait je voudrais selectionner une case excel à partir de mon programme vba

 

[albert]

bonjour tof
écris 10 en A1

ajoute ce code dans vba et exécute

Sub test()
Cells(5, 1) = Cells(1, 1)
End Sub

 

[tof]

merci beaucoup albert de m'avoir répondu
et aussi pour ta réponse.

a+

 

[tof]

ci j'écrit "cells(5, 1) = Cells(1, 1)" à la place de la valeur 300, c'est juste? ou dois je rajouter le module que tu m'a donné à la suite ?
par contre j'ai plusieurs feuilles de calculs ...?

'Donnees
PtBase(0) = 0# ' Coordonnees en X du point de base
PtBase(1) = 0# ' Coordonnees en Y du point de base
PtBase(2) = 0# ' Coordonnees en Z du point de base
PtDecal(0) = 300# ' Nouvelle coordonnee en X du decalage
PtDecal(1) = 0# ' Nouvelle coordonnees en Y du decalage
PtDecal(2) = 0# ' Nouvelle coordonnees en Z du decalage

désolé je débute, je suis un peu perdu...

merci d'avance

 

[albert]

je ne comprends pas trop ce que tu veux faire...
peux-tu envoyer un zip pour expliquer
... je suppose que tu veux construire un graphique ?

 

[tof]

en fait je t'explique
voici la partie de mon programme qui me déplace mes objets sous autocad. La valeur de ce déplacement est dans la cellule (A,10) sous excel. Ce que je voudrais c'est ,à la place de marquer la valeur "300" , indiquer l'emplacement de la cellule.

'Initialisation des variables
Static BaSelect As AcadSelectionSet
Static PtBase(0 To 2) As Double
Static PtDecal(0 To 2) As Double

'Donnees
PtBase(0) = 0# ' Coordonnees en X du point de base
PtBase(1) = 0# ' Coordonnees en Y du point de base
PtBase(2) = 0# ' Coordonnees en Z du point de base
PtDecal(0) = 300# ' Nouvelle coordonnees en X du decalage
PtDecal(1) = 0# ' Nouvelle coordonnees en Y du decalage
PtDecal(2) = 0# ' Nouvelle coordonnees en Z du decalage


'Creation du jeu de selection
Set BaSelect = ThisDrawing.SelectionSets.Add("bavba")
'Selection de toutes les entites
BaSelect.Select acSelectionSetAll

For i = 1 To BaSelect.Count
'le decompte commence a zero, c'est pourquoi on retire 1 de I
BaSelect.Item(i - 1).move PtBase, PtDecal
BaSelect.Item(i - 1).Update

Next i

Merci pour ton aide
A ta disposition pour des info complémentaire...

 

[tof]

C'est bon ça marche !!!

c'est moi qui me trompais tes infos fonctionnent très bien merci encore !

 

[albert]

Re: ça se complique...

je suppose que tu veux remplacer
PtDecal(0) = 300# ' Nouvelle coordonnees en X du decalage

par :
PtDecal(0) = Cells(10, 1)

???

 

[tof]

oui c'est ce que j'ai fais merci

a+