Macro boucle & somme

[aerocrash]

Bonjour,
j'aimerais créer une macro sur excel qui fait ceci.

Déclarer une valeur a incrémenté : "PRIX"
Imaginon j'ai 2 colonnes A & B sur la feuille nommé "TITAN"
pour i (numéro de ligne) allant de 1 a 10000
si Ai = "OISEAUX"
Alors, PRIX = PRIX + Bi
... et une fois terminé
il me rejette la valeur PRIX dans la case que j'ai choisi sur la feuille nommé : "CALCUL"

Voila je pense que ce code n'est pas trés compliqué... mais j'ai un peu de mal 🙁

merci d'avance !

 

[Caillou]

Re : Macro boucle & somme

Bonjour,

Essayes ceci:

Sub aerocrash()
  Dim i As Long
  Dim prix As Currency
  
  prix = 0
  
  With Sheets("TITAN")
    For i = 1 To 10000
      If .Cells(i, "A") = "OISEAUX" Then
        prix = prix + .Cells(i, "B")
      End If
    Next
  End With
  
  Sheets("CALCUL").Select
  ActiveCell = prix
End Sub

Caillou,

 

[aerocrash]

Re : Macro boucle & somme

Super ca marche impécable 🙂 merci beaucoup.

Derniére petite question, imaginons que je veut faire un tri par date au lieu de faire un tri par mot :
Dans le cas précédent :
Si la cellule = oiseaux
dans le nouveau cas :
si la cellule < 31/02/2007

 

[aerocrash]

Re : Macro boucle & somme

plus personnes ?