Aide excel vba
Fermé
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
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:
- Aide excel vba
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 257
15 janv. 2009 à 23:18
15 janv. 2009 à 23:18
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
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
16 janv. 2009 à 00:42
[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 !
16 janv. 2009 à 06:16
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
16 janv. 2009 à 11:38