cells() avec deux variables

[fred]

bonjour chers Exceleurse et exceleurs.

Je suis débutant dans le vba.. et j'ai un peu de mal a comprendre certaines choses dont je n'arrive pas a trouver réponses malgrès mes recherches.

en voici une :

Sub convertir()
Dim euro, francs, somme_euro, i, y
i = InputBox('n° de ligne ?')
y = InputBox('n° de colone ?')
euro = 6.55957
francs = 1000
somme_euro = francs / euro
Worksheets('test').Activate
Cells(i, y).Select
ActiveCell = somme_euro
End Sub

Le code parrait assez simple,

Je demande sur deux fenetre de saisir le num de ligne puis de colonne où doit apparaitre le résultat.
Le pb c'est que qd je met cells(i,5).. ca marche
et qd je met cells(i,y) ca ne marche plus...

Qq'un pourrais m'expliquer pourquoi...

merci d'avance.

 

[guitarde]

Ca semble juste un problème de définition de variable,
essaie avec ceci au début:

Dim i As Integer
Dim y As Integer

Salutations
Eric

 

[mutzik]

Bonjour Fred, Guitarde

Un inputbox renvoie toujours une donnée en format string

donc, tu changes

i = InputBox('n° de ligne ?')
y = InputBox('n° de colone ?')
par

i = val(InputBox('n° de ligne ?'))
y = val(InputBox('n° de colone ?'))

la fonction val va te convertir ton résultat d'inputbox de string en valeur num

 

[Creepy]

Hello,

Tu viens d'avoir les explications, plusieurs solutions se proposent à toi :

1 -
Cells(cint(i), cint(y)).Select ' transforme en integer directement

2 - Apres tes inputbox
i = InputBox('n° de ligne ?')
y = InputBox('n° de colone ?')
i= cint(i)
y=cint(y)

Dernière remarque : Si tu définis comme le dit Guitarde tes variables en integer, quand dans la inputbox tu cliques sur annuler ca plante la macro !! 'Incompatibilité de type'.

Donc utilises plutôt mes méthodes oucelle de Mutzik

++

Creepy

 

[fred]

super ...

je commence à y voir un epu plus clair....


merci

ps : J'aurai d'autres question, mais ca viendra un peu plus tard...

merci encore

fred