macro, mise en couleur, inputbox

  • Initiateur de la discussion Initiateur de la discussion JB
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

JB

Guest
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
 
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é
 
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

;-))
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour