macro, mise en couleur, inputbox

[JB]

Bonjour à tous !

je vous expose mon probleme de débutant en VB :

je souhaite creer une macro qui permettrait de reporter un chiffre inserer dans une "input box" et qui dans le meme temps irait selectionner des cellules (remplies d'info) et les mettraient en couleur.

je tente de mettre ne place une fonction if...then...else mais je n'arrive pas à lier l'ensemble !

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ce que je souhaite réaliser :

quand on entre le résultat dans l'input box, ce résultat est reporté dans une cellule déterminée, et les cellules qui correspondent à ce chiffre sont mises en couleur…

je voudrais (mais ce n'est peut être pas la bonne solution !!) faire une fonction qui permette de répondre à cela :

si "valeur de l inputbox" = 1 alors Var1 est coulorindex=50
si "valeur de l inputbox" = 2 alors Var2 est coulorindex=50
etc... jusqu'à Nbre_fiches = 12

avec Var1 = "b28"
Var2 = Var1 & "b27"
Var3 = Var2 & "b26"
etc.....


pour ce qui est de reporter la valeur dans une cellule, j'ai réussi, mais le if...then... je n'y arrive pas !

Si une âme charitable peut m'apporter la solution... je l'en remercie d'avance !

Merci à tous les lecteurs de ce forum

 

[Hervé]

Bonjour

il aurait été judicieux de placer ton code macro sur ton post,
quit à faire du code autant le faire sur l'original.

essaye ceci :

Public Sub vev()
Dim nombre As Integer
nombre = Application.InputBox("Quelle nombre ? :", Type:=1)
If nombre > 12 Then MsgBox ("nombre limité à 12"): Exit Sub
Range("b29").Select
For i = 1 To nombre
Selection.Offset(-i, 0).Interior.ColorIndex = 50
Next i
Range("a28").Value = nombre
End Sub

je suis pas passer par un if...then.

salut
Hervé

 

[JB]

Merci beaucoup Hervé !!!

ton code dépasse mêmemon attente, avec le message
If nombre > 12 Then MsgBox ("nombre limité à 12"): Exit Sub

Je vais de suite me replonger dans mon livre "Excel & VBA" pour essayer de comprendre....

encore merci et @ bientot

;-))