VBA : Variable d'un Inputbox dans une cellule

Fermé
cipango Messages postés 26 Date d'inscription mardi 13 janvier 2004 Statut Membre Dernière intervention 29 juillet 2007 - 13 janv. 2004 à 11:55
cipango Messages postés 26 Date d'inscription mardi 13 janvier 2004 Statut Membre Dernière intervention 29 juillet 2007 - 20 avril 2004 à 21:17
Rebonjour à tous,
Le code suivant bloque à partir de "Range("A1").... " Pourquoi ?
Merci d'avance pour votre aide.



Dim NOM, PRENOM As String

Sub Workbook_Open()

MsgBox "Nous allons vous demander vos coordonnées", vbDefaultButton1
Reponse = MsgBox("Voulez-vous continuer ?", vbYesNo)
If Reponse = vbNo Then Exit Sub
NOM = InputBox("Indiquez votre nom : ", "IDENTIFICATION")
PRENOM = InputBox("Indiquez votre prénom", "IDENTIFICATION")

Range("A1").Text = NOM 'Ca ne marche pas
Range("A2").Text = PRENOM 'Ca ne marche pas

End Sub

15 réponses

WhiteFang Messages postés 2056 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 204
15 janv. 2004 à 14:30
;-)

Un petit truc !! L'objet "Range", sous Excel, comme sous VBA Excel, n'est utile, et réellement fonctionnel que sur une PLAGE de cellules... "Range" est automatiquement utilisé quand on dit à Excel d'enregistrer une macro, mais c'est pas du vrai dev, ça....

Si l'on doit adresser UNE cellule, c'est l'objet Cells qu'il faut utiliser, pas Range.. Si on doit utiliser une colonne, c'est l'objet Columns(x), une ligne, Rows(x)..... Bref, pour faire du bon code, il faut utiliser les bons objets !!

C'est pas une critique !! Vous verrez, ça vous servira !! Faut bien penser !! ;-)

Workbook, au singulier, plantera, car cela implique la création d'une classe d'objets... Il faut utiliser Workoooks(x) (au pluriel), qui là, fait référence à une collection.... WorkSheet1, idem !! Plantagua !! C'est Sheets(x), l'objet à utiliser...

Un exemple de code : Workbooks(1).sheets(1).cells(1,1).value

;-)

A votre service !! ;-) Mais tout cela reste encore à développer !! Ce n'est qu'une partie de l'iceberg !! ;-) Reste un milliard de choses à expliquer !! ;-)

Mais on es là pour ça, me direz-vous !! ;-)

Wild and Free
1