VBA - excel facture

Bonjour, j'ai un petit exercice qui me pose probleme, etant donné que je viens de commencer la programmation.
On a le tableau ci dessus

On me demande:

Ecrire un programme qui colorie les cellules donnant le montant des factures de la manière
suivante : si la facture n'est pas payée et que son montant est strictement inférieur à 200, la
cellule est coloriée en jaune ; si la facture n'est pas payée et que son montant est supérieur ou
égal à 200, la cellule est coloriée en rouge.
Rappel : si c désigne une cellule : c.Interior.ColorIndex=6 colorie la cellule en jaune ;
si c désigne une cellule : c.Interior.ColorIndex=3 colorie la cellule en rouge.

Mais je ne vois pas bien par ou commencer, pouvez vous m'aider ? comment designer les factures qui se sont pas payés ici ?

Bonjour Meuh, bienvenue sur le forum.
As-tu essayé la mise en forme conditionnelle dans Excel ? Ça t'éviterait une macro. Format -> Mise en forme conditionnelle. Tu peux conditionner le format selon ce que tu as dans les cellules. Au début on tatonne mais après on sait faire :lol:

NB - Tu devrais jeter un oeil ici, je suis certain que tu comprendras pourquoi ;)
Bonne journée

lol oui je comprends pourquoi, je suis désolée :oops:

Mais ce n'est meme pas un exo que j'ai à faire je m'entraine pour mon partiel qui est mardi :mrgreen::yaisse2:
Pour la mise en forme conditionelle, on ne l'a pas utilisé avec VBA

Pour l'instant j'ai fais:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub macro Dim ligne as integer For ligne= 1 to 7 If cells(ligne,4) < 200 then cells(ligne,4).Interior.ColorIndex=6 Elseif cells(ligne14)=200 then cells(ligne,4).Interior.ColorIndex=3 End if Next   End sub

---

Je ne sais pas si c'est correct ?
Par contre je n'arrive pas a integrer le fait de savoir si la facture n'est pas payée , pouvez vous me donnez juste un petit indice ?

Merci

Tu testes la cellule de la colonne 5 (E). Avec ton code, ça donne ça

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub macro() Dim ligne As Integer For ligne = 2 To 7 If Cells(ligne, 5) <> "Payée" And Cells(ligne, 4) >= 200 Then Cells(ligne, 4).Interior.ColorIndex = 3 ElseIf Cells(ligne, 5) <> "Payée" And Cells(ligne, 4) < 200 Then Cells(ligne, 4).Interior.ColorIndex = 6 End If Next End Sub

---

Pendant que tu es là, jète un oeil là http://www.developpez.net/forums/sho...d.php?t=553797, tu as une explication qui devrais aussi t'intéresser pour l'avenir ;)

J'ai corrigé ta boucle en la faisant débuter à la ligne 2 qui contient ton en-tête, sinon elle répond aux conditions [Cells(ligne, 5) <> "Payée" And Cells(ligne, 4) < 200]
A+

Super merci beaucoup j'ai compris ! ^^

J'ai une dernière petite question.
Desormais je dois ecrire une fonction qui calcule le nombre de factures dont le montant est strictement supérieur à 200 et on me demande "comment mettre le resultat dans la cellule D10."

Mais je ne sais pas trop quoi mettre en paramètre dans ma fonction

Code:

---

1 2 3 4 5 6 7 8 9 10

Function Facture( ...?) Facture = 0 For ligne = 2 To 7 If Cells(ligne, 4) > 200 Then Facture = Facture + 1 Else Facture = 0 End if Next End function

---

:?

Salut,
pourquoi vous n'ajoutez pas au Macro de ouskel'n'or une petite ligne

Code:

---

1 2	cells(10,4).value=cells(10,4).value+1

---

cette cellule va contenir à la fin le nombre de facture >200
Bonne chance.
Merci.

Comme on demande une fonction, je verrais plutôt ça

Code:

---

1 2 3 4 5 6 7 8 9

Function Facture(Valeur as double) as integer For ligne = 2 To 7 If Cells(ligne, 4) > Valeur Then Facture = Facture + 1 Else Facture = 0 End if Next End function

---

et en fin de macro, j'ajouterais la ligne de hocine en remplaçant juste l'égalité par Facture(Valeur). Ainsi, si on change Valeur, on n'aura qu'à changer la valeur de Valeur ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub macro() Dim ligne As Integer, Valeur as double Valeur = 200 For ligne = 2 To 7 If Cells(ligne, 5) <> "Payée" And Cells(ligne, 4) >= Valeur Then Cells(ligne, 4).Interior.ColorIndex = 3 ElseIf Cells(ligne, 5) <> "Payée" And Cells(ligne, 4) < Valeur Then Cells(ligne, 4).Interior.ColorIndex = 6 End If Next cells(10,4).value=Facture(Valeur) End Sub

---

A+

Edit : merci , je n'avais pas vu le message !

Et j'ai une toute petite derniere question,,

On nous demande :
Ecrire un programme qui calcule le montant total des factures qui sont payées et le montant total des factures qui ne sont pas payées, puis qui affecte les résultats aux cellules D8 et D9.
C'est bon si je fais :

Code:

---

1 2 3 4 5 6

Sub cellules()   Cells(8, 4) = Sum(Range("E3:E4,E7")) Cells(9, 4) = Sum(Range("E2,E5:E6"))   End Sub

---

Mici

On te demande une fonction, le code de Hacine propose d'intégrer la ligne dans la première condition ;) Regarde ce que je t'ai mis
Bonne soirée, je vous laisse en tête à tête :lol:

ui merci, je viens de voir, j'ai remis une petite question en haut :oops:, mais ce n'est pas pressé

Merci de m'avoir aidé bonne soirée

Juste une toute petite réponse? après promis je vous laisse tranquil avec mes programmes de débutants :oops: :lol:

C'est facile, tu écris ta formule en français dans Excel, tu la copies dans le code et tu ajoutes DEUX CHOSES : FormulaLocal et les guillemets qui vont bien ;)

Code:

---

1 2 3 4

Sub cellules() Cells(8, 4).formulalocal = "=SOMME.SI(E2:E7;""=Payée"";D2:D7)" Cells(9, 4).formulalocal = "=SOMME.SI(E2:E7;""=Non payée"";D2:D7)" End Sub

---

Tes questions, basiques ou non, ont leur place ici, alors n'hésite pas... On répond quand on est là ;)
Bonne journée

D'accord merci ^^

Je vais en profiter pour vous posez encore quelques questions avant mon partiel (demain en fin daprem)

On me demande: Définir une fonction qui demande son année de naissance à l'utilisateur détermine si il a le droit de voter et affiche « peut voter » ou « ne peut pas voter ».

J'ai fais:

Code:

---

1 2 3 4 5 6 7 8 9

Function age(x as integer) x=Inputbox("quelle est ton année de naissance") age= year(date)-x if age>= 18 then Msgbox("vous pouvez votez") Else Msgbox("vous ne pouvez pas votez") End if End function

---

Mais ce n'est pas plutot dans la procédure "sub ..." que l'on doit rentrer "x=Inputbox("quelle est ton année de naissance")" ?

Une fonction est faite pour renvoyer une donnée en fonction d'une question. Là, la question et la réponse sont dans la fonction => Tu l'as bien compris, ce n'est donc pas une fonction. Inputbox doit se trouver dans la sub appelante

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub appel() Dim x As Integer, result As Byte x = InputBox("quelle est ton année de naissance") If x <> 0 Then result = age(x) If result > 18 Then MsgBox "A " & result & " ans vous pouvez votez" Else MsgBox "A " & result & " ans vous ne pouvez pas votez" End If End If End Sub   Function age(x As Integer) As Byte age = Year(Date) - Val(x) End Function

---

Bonne soirée

Edit
Une deuxième solution pour écrire la même chose.
Dans ce cas, la fonction renvoie un booléen (vrai ou faux) après avoir effectué le test "age > 18"
Attention, Result est alors de type boolean, ainsi que la fonction, (de type Byte (0 - 255) dans le premier exemple)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub appel() Dim x As Integer, result As Boolean x = InputBox("quelle est ton année de naissance") If x <> 0 Then result = age(x) If result Then MsgBox "Vous pouvez votez" Else MsgBox "Vous ne pouvez pas votez" End If End If End Sub

---

Code:

---

1 2 3 4 5

Function age(x As Integer) As Boolean Dim result As Byte result = Year(Date) - Val(x) age = result > 18 End Function

---