Aide excel vba

pablo19 -  
 pablo19 -
Bonsoir à tous
j'ai vraiment besoin d'aide =S
voilà je débute en VBA et je voudrais savoir le code pour pouvoir déplacer un pion, que je noterai X dans une cellule, sur toute la ligne A3 : Z3 ; selon un nombre que j'ai déjà programmé (l'ordinateur me donne un nombre au hasard, je l'ai nommé "résultat"). En gros c'est le même principe que le jeux de l'oie, par exemple : si l'ordinateur m'affiche 2, je voudrais que mon X se décale de deux cellules.
J'espère avoir été clair, j'espère avoir des réponses au plus vite ... merci à tous et bonne soirée
A voir également:

1 réponse

Réponse 1 / 1
eriiic Messages postés 25847 Statut Contributeur 7 279
 
Bonjour,

Tu peux utiliser .offset(nbLig,nbCol)
Ex : il est en A3 et tu as fait un 2
[A3].offset(0,2).value = [A3].value
' ensuite effacer A3
[A3].value = ""

ou bien sur le même principe tu peux utiliser cells(n°Lig,n°Col).value

eric
0
pablo19
 
je te remercie beaucoup pour ta réponse, le hic est que le résultat change à chaque fois, ce n'est pas moi qui décide mais ce fameux "résultat", genre je voudrais faire :

[A1].Offset(0, "resultat").Value = ["resultat"].Value

mai évidemment ça ne marche pas... y'a t'il un autre code, si tu comprends mieux ma demande ? ^^' je ne comprends vraiment pas grand chose en vba... enfin je te remercie déjà de ta réponse =)
Bonsoir !
0
eriiic Messages postés 25847 Statut Contributeur 7 279 > pablo19
 
Il faut stocker ton résultat dans une variable, ainsi que ta (tes) positions et les utiliser ensuite. Ex :
dim position1 as range
position1 = range[A1]
....
tirage = int(rnd()*6+1)
position1 .Offset(0, tirage).Value = position1 .Value
position1.value=""
position1.range=position1 .Offset(0, tirage)
...


eric
0
pablo19 > eriiic Messages postés 25847 Statut Contributeur
 
et bien c'est super tout ça je te remercie beaucoup =) passe une bonne journée !
0