Userform/ macro ajout valeur dans cellule

[starz]

Bonjour,
Pourriez vous m'aider à concevoir un userform avec une macro que je ne sais pas faire :

Soit :
Zone de texte: Combien de ligne voulez vous afficher ?
ComboBox: 1 à 14
un bouton valider

Résultat si choix = 4 sur feuil1:
cellule B1 = 10
cellule B4 = 20
cellule B7 = 30
cellule B10 = 40

Pour le userform je sais faire , mais pour la macro ?? , je sollicite votre participation

Merci d'avance.

Edit :
Mon point de départ pour l'incrémentation est toujours B1 et sa valeur est toujours égale à 10
l'incrémentation est de 10 en 10 et toute les 3 lignes.

 

[Gorfael]

Re : Userform/ macro ajout valeur dans cellule

oui c'est presque ça ! merci


si i=28 et non plus 14

si on choisi dans la combobox un chiffre < 14 on reste dans la plage
B12:B54 (10 à 140)


Si on choisi un chiffre >14 (ex=28)on passe dans la plage B12:B111.
(10 à 280)

c'est pour ça que j'ai fait 2 combobox mais y'a surement plus simple?

EDIT : trouvé 1 début de piste mais c'est pas bon


Que faut il faire pour ne pas fermer le useform apès validation ?

Salut
Et si c'est 14 ? on fait rien ? 😛

Private Sub CommandButton1_Click()
Union(Range("A10:J54"), Range("A67:J111")).ClearContents
For c = 1 To ComboBox1.Value 
if ComboBox1.Value <= 14 then
Range("B12").Offset(c * 3, 0).Value = 10 * (c )
else
Range("B69").Offset(c * 3, 0).Value = 10 * (c + 14)
end if
Next c
Unload Me
End Sub

J'ai pas vérifié, j'ai fait comfiance à ton code

EDIT (Piaf) Je sais, j'ai simplifié, pas pu m'en empêcher,...mais tant pis

A+