VBA débutant

[etienne97]

Bonjour,
Je commence avec VBA et j'ai de petites questions. Je me demande présentement comment faire pour que lorsque j'appuie sur un bouton, la cellule a1 s'additionne avec a2 et donne le résultat à la cellule a3. Et que dans la même seconde, la cellule a3 se colorie en bleu si sa valeur est entre 10 et 20. Bon, jusqu'à maintenant, j'ai appris comment insérer un bouton et mettre de la couleur si le nombre est entre 10 et 20. Voilà ce que j'ai fait pour la cellule bleue:

Dim Perf As Range
Set Perf = Range("a3")
If 10< Perf And Perf < 20 Then
Perf.Interior.ColorIndex = 41
End If

Mais avant cette commande, je ne sais pas comment écrire mon adition et utiliser f4 dans la macro. Pouvez-vous compléter la partie manquante ou tout simplement me l'expliquer s'il vous-plait. Merci!

 

[ROGER2327]

Re : VBA débutant

Bonsoir etienne97

Quelque chose comme

Sub toto()
  With Range("A3")
    .Value = Range("A1").Value + Range("A2").Value
    If 10 < .Value And .Value < 20 Then
      .Interior.ColorIndex = 41
    Else
      .Interior.ColorIndex = xlColorIndexNone 'pour supprimer la couleur lorsque [A3].value <= 10 ou 20 <= [A3].value
    End If
  End With
End Sub

devrait faire l'affaire.​

ROGER2327
#5339

Jeudi 26 Merdre 138 (Sainte Barbaque, naïade - fête Suprême Quarte)
24 Prairial An CCXIX, 9,6904h - caille-lait
2011-W23-7T23:15:25Z

 

[Gorfael]

Re : VBA débutant

Salut etienne97 et le forum

la cellule a1 s'additionne avec a2 et donne le résultat à la cellule a3. Et que dans la même seconde, la cellule a3 se colorie en bleu si sa valeur est entre 10 et 20.

On peut se passer de variable, les cellules en faisant office.
Rien n'est simultané dans un programme on peut décomposer ainsi
Mettre en A3 l'addition de A1 et A2, puis tester A3

[A3]=[A1]+[A2]
if (10<[A3]) and ([A3]<20) then [A3].interior.colorindex = 41 else  [A3].interior.colorindex = xlnone

La première syntaxe pour if suffit, vu qu'il n'y a qu'une instruction.
A+

 

[etienne97]

Re : VBA débutant

Merci! J'ai vais essayer vos réponses! C'était vraiment rapide.