[Catégorie modifiée VB6 -> VBA] Renvoyer une valeur d'inputBox dans une cellule [Résolu]
Akeen56
- Messages postés
- 14
- Date d'inscription
- vendredi 28 octobre 2011
- Statut
- Membre
- Dernière intervention
- 29 novembre 2011
- Messages postés
- 14
- Date d'inscription
- vendredi 28 octobre 2011
- Statut
- Membre
- Dernière intervention
- 29 novembre 2011
A voir également:
- [catégorie modifiée vb6 -> vba] renvoyer une valeur d'inputbox dans une cellule
- [Catégorie modifiée VB6 -> VBA] Rappel des valeurs dans un combobox ✓ - Forum - Visual Basic 6
- [Catégorie modifiée VB6 --> VBA] tester si une valeur appartient à une liste sou ✓ - Forum - Visual Basic 6
- [Catégorie modifiée VB6 --> VBA] attribution automatique de la valeur d'un champ ✓ - Forum - Visual Basic 6
- [Catégorie modifiée VB6 -> VBA] excel 2003 problème de calculs ✓ - Forum - Visual Basic 6
- [Catégorie modifiée VB6 -> VBA] Inputbox VBA ✓ - Forum - Visual Basic 6
6 réponses
Meilleure réponse
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
Ton code parait correct et corrigé efficacement.
Il te manque juste un Set devant la ligne qui cause problème :
Lorsque tu affectes une variable de type Objet (comme Worksheet ou Range), le Set est obligatoire.
Set MyPlage = MySheet.Range("A1")
Je pense que l'aide, accessible par le bouton te signalant l'erreur, doit en parler.
A noter : Le MyPlage.Select n'est pas nécessaire puisque tu as correctement et complètement nommé tes objets.
L'utilisation de .Select (et de Selection) a tendance à ralentir le code. Dans ton cas, c'est négligeable.
Il te manque juste un Set devant la ligne qui cause problème :
Lorsque tu affectes une variable de type Objet (comme Worksheet ou Range), le Set est obligatoire.
Set MyPlage = MySheet.Range("A1")
Je pense que l'aide, accessible par le bouton te signalant l'erreur, doit en parler.
A noter : Le MyPlage.Select n'est pas nécessaire puisque tu as correctement et complètement nommé tes objets.
L'utilisation de .Select (et de Selection) a tendance à ralentir le code. Dans ton cas, c'est négligeable.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
217 internautes nous ont dit merci ce mois-ci
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
PS : Tu pourrais presque simplifier le tout avec cette unqiue ligne :
ThisWorkbook.Worksheets("Data").Range("A1").Value = InputBox("Quel et ton nom?") Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
217 internautes nous ont dit merci ce mois-ci
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
Bonjour et bienvenu.
D'abord, les recommandations :
Le VB des logiciels Office est du VBA et non du VB6 --> Catégorie modifiée
Lorsque tu as besoin de coller du code, utilise la coloration syntaxique (3ème icone à droite) = plus facile à relire et conserve l'indentation du code.
Merci
Dim MyRep As Variant
Pas judicieux : Puisque tu attends des caractères, mieux vaudrait du As String
MyRepVal = Val(MyRep)
Comme expliqué dans l'aide, la fonction Val transforme une donnée en chiffre. Dans ton cas, si tu entres du texte, Val donnera toujours 0.
Cette ligne est superflue - ne sert à rien.
Quand tu dis " ça ne marche pas ", essaye d'expliquer clairement ton problème :
- quelle erreur (quel code, description),
- sur quelle ligne apparait l'erreur
- ce qui devrait se passer et ce qui se passe
Vala
Jack, =fr MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
D'abord, les recommandations :
Le VB des logiciels Office est du VBA et non du VB6 --> Catégorie modifiée
Lorsque tu as besoin de coller du code, utilise la coloration syntaxique (3ème icone à droite) = plus facile à relire et conserve l'indentation du code.
Merci
Dim MyRep As Variant
Pas judicieux : Puisque tu attends des caractères, mieux vaudrait du As String
MyRepVal = Val(MyRep)
Comme expliqué dans l'aide, la fonction Val transforme une donnée en chiffre. Dans ton cas, si tu entres du texte, Val donnera toujours 0.
Cette ligne est superflue - ne sert à rien.
Quand tu dis " ça ne marche pas ", essaye d'expliquer clairement ton problème :
- quelle erreur (quel code, description),
- sur quelle ligne apparait l'erreur
- ce qui devrait se passer et ce qui se passe
Vala
Jack, =fr MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
- Messages postés
- 14
- Date d'inscription
- vendredi 28 octobre 2011
- Statut
- Membre
- Dernière intervention
- 29 novembre 2011
Bonjour,
merci pour cette réponse rapide et pour les recommandations, je ferai attention la fois prochaine.
Voici le code:
Pour donner plus d'explications sur le problème, l'erreur retournée est de type Run-time error '91' - Object variable or With block variable not set. Le processus s'arrête à la ligne
Ce qui devrait se passer c'est: afficher dans la cellule A1 de la feuille "Data" l'entrée spécifiée dans l'inputbox.
J'espère que ça sera suffisamment clair.
N'hésitez pas à commenter, je suis preneur de remarques.
Merci d'avance
Titi
merci pour cette réponse rapide et pour les recommandations, je ferai attention la fois prochaine.
Voici le code:
Sub testboite()
Dim MySheet As Worksheet
Dim MyPlage As Range
Dim MyRep As String
MyRep = InputBox("Quel et ton nom?")
MsgBox MyRep
Set MySheet = ThisWorkbook.Worksheets("Data")
MySheet.Activate
MyPlage = MySheet.Range("A1")
MyPlage.Select
MyPlage.Value = MyRep
End Sub
Pour donner plus d'explications sur le problème, l'erreur retournée est de type Run-time error '91' - Object variable or With block variable not set. Le processus s'arrête à la ligne
MyPlage = MySheet.Range("A1")
Ce qui devrait se passer c'est: afficher dans la cellule A1 de la feuille "Data" l'entrée spécifiée dans l'inputbox.
J'espère que ça sera suffisamment clair.
N'hésitez pas à commenter, je suis preneur de remarques.
Merci d'avance
Titi