OVH Cloud OVH Cloud

Choix d'une adresse pour une cellule

2 réponses
Avatar
Jean-mi
Bonjour,
Je voudrais donner le choix =E0 l'utilisateur de mon=20
programme (une spirale) de choisir une=20
cellule (=E0 partir de laquelle ma spirale se fera).
J'ai essay=E9 de faire l'instruction suivante :=20
Worksheets(1).Cells(X,Y).Select =3D InputBox("Choisissez une=20
cellule")
Un message d'erreur s'affiche.
Que puis-je faire?

D'avance merci,

Jean-michel

2 réponses

Avatar
Emcy
Salut,

essaies ça

MaCase= InputBox("Choisissez une cellule :")
Range(MaCase).Select

-----Message d'origine-----
Bonjour,
Je voudrais donner le choix à l'utilisateur de
mon

programme (une spirale) de choisir une
cellule (à partir de laquelle ma spirale se fera).
J'ai essayé de faire l'instruction suivante :
Worksheets(1).Cells(X,Y).Select = InputBox("Choisissez
une

cellule")
Un message d'erreur s'affiche.
Que puis-je faire?

D'avance merci,

Jean-michel
.



Avatar
ru-th
Salut

Sub test()
Dim plg As Range
Set plg = Application.InputBox _
("Sélectionner une cellule", , , , , , , 8)
MsgBox plg.Address
End Sub


a+
rural thierry
"Jean-mi" a écrit dans le message de
news: 4eea01c3e4b4$b38d6460$
Bonjour,
Je voudrais donner le choix à l'utilisateur de mon
programme (une spirale) de choisir une
cellule (à partir de laquelle ma spirale se fera).
J'ai essayé de faire l'instruction suivante :
Worksheets(1).Cells(X,Y).Select = InputBox("Choisissez une
cellule")
Un message d'erreur s'affiche.
Que puis-je faire?

D'avance merci,

Jean-michel