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
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
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 :
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 !
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)
...
[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 !
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