Utilisation valeurs InputBox

victorinox

XLDnaute Junior
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
 

Pièces jointes

  • Test.xlsm
    16.7 KB · Affichages: 42
  • Test.xlsm
    16.7 KB · Affichages: 45
  • Test.xlsm
    16.7 KB · Affichages: 44

job75

XLDnaute Barbatruc
Re : Utilisation valeurs InputBox

Bonjour à tous,

Code:
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+
 

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Test (1).xls
    44 KB · Affichages: 40
  • Test (1).xls
    44 KB · Affichages: 42
  • Test (1).xls
    44 KB · Affichages: 46

Discussions similaires

Réponses
4
Affichages
364

Statistiques des forums

Discussions
312 920
Messages
2 093 640
Membres
105 771
dernier inscrit
lorachab