Transcrire le résultat d'une InputBox dans une cellule [Résolu/Fermé]

Signaler
Messages postés
21
Date d'inscription
jeudi 21 juillet 2016
Statut
Membre
Dernière intervention
6 septembre 2016
-
volfoss
Messages postés
21
Date d'inscription
jeudi 21 juillet 2016
Statut
Membre
Dernière intervention
6 septembre 2016
-
Bonjour,
J'ai créé une macro mais j'aimerais faire l'action suivante. La réponse saisie (qui seras uniquement une année du type AAAA ) dans l'InputBox doit s'inscrire dans la cellule B2:F2.
De plus comment faire en sorte que si on clique sur annuler ou sur la croix l'InputBox se ferme sans avoir le message d'erreur incompatibillité de type et erreur d'execution 13.
Merci pour votre aide.

Sub CréationBagues()
Dim Rep As Integer
If Rep = InputBox("Penser à renseigner la saison d'élevage en B2", "Saison élevage") Then 'La variable reçoit la valeur entrée dans l'InputBox
If Rep = vbOK Then
' ici le traitement si réponse positive
ActiveCell.FormulaR1C1 = "" 'afficher la réponse InputBox
Selection.Copy
Range("B2:F2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Else
' ici le traitement si réponse négative
End If
End Sub

1 réponse

Messages postés
3341
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
455
Bonjour,

Tu peux commencer avec ce code :
Sub CréationBagues()
Dim Rep As String
Rep = InputBox("Penser à renseigner la saison d'élevage en B2", "Saison élevage")
If IsNumeric(Rep) Then Range("B2") = Rep
End Sub

A+
volfoss
Messages postés
21
Date d'inscription
jeudi 21 juillet 2016
Statut
Membre
Dernière intervention
6 septembre 2016

Super
j'admire votre talent pour la programmation, je suis autodidacte dans ce domaine mais je n'arrive pas toujours à programmer ce que je veux faire mais grâce à votre aide j'avance.