Utilisation valeurs InputBox

[victorinox]

Bonjour à tous,

J'ai créé une InputBox afin que l'utilisateur de mon fichier puisse saisir les mois à étudier.
Je voudrais qu'il puisse inscrire entre 4 et 5 mois et que la macro me copie ces valeurs dans des celulles les unes à la suite des autres.

Petit fichier joint pour y voir plus clair avec mon début de code.

Merci d'avance,


Victorinox

 

[CHALET53]

Re : Utilisation valeurs InputBox

bonjour,

Un essai

a+

 

[victorinox]

Re : Utilisation valeurs InputBox

Merci bcp à Chalet53 et Jean-Marcel,

Ces deux solutions répondent parfaitement à mon besoin!

Merci encore

A+

 

[job75]

Re : Utilisation valeurs InputBox

Bonjour à tous,

Sub Mois_étudiés()
Dim plage As Range, pc As Byte, ad As String, i As Byte, n As Long
Set plage = [A5:A9] 'à adapter
plage.ClearContents 'RAZ
pc = Application.Min(plage.Count, 12) 'maxi 12
ad = plage.Address(0, 0)
For i = 1 To pc
1 n = Abs(Val(InputBox("Entrer le n° d'un mois :", _
    pc & " mois différents à créer sur " & ad)))
  If n = 0 Then Exit Sub
  If n > 12 Or Application.CountIf(plage, n) Then GoTo 1
  plage(i) = n
Next
End Sub

A+

 

[victorinox]

Re : Utilisation valeurs InputBox

Trois solutions en autant de réponses, je n'ai que l'embarras du choix et de quoi potasser/apprendre ces codes.
Merci à toi job75

 

[job75]

Re : Utilisation valeurs InputBox

Re,

Je repasse par là pour compléter avec une visualisation des données entrées.

Voir le fichier joint.

A+