[VBA] Fonction .Min

Fonction .Min [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 15-10-2021 à 10:32:19    

Bonjour à tous,
 
Au boulot je dois me former sur VBA alors on m'a donné 2-3 trucs à faire (c'est la première fois que je touche à du code de ma vie).
 
Mon tuteur m'a demandé d'écrire la fonction .Min
 

Code :
  1. Sub macro()
  3. Dim var1, var2
  6. var1 = Cells(1, 1).Value
  7. var2 = Cells(2, 1).Value
  8. Debug.Print "var1 :" & var1
  9. Debug.Print "var2 :" & var2
  11. For i = 1 To 5
  13. If var1 > var2 Then
  14. var1 = var1 + 1
  15. var2 = var2 + 1
  17. Else
  18. var2 = var2 + 1
  20. End If
  22. Next
  24. Debug.Print "valeur minimale :" & var1
  26. End Sub


 
En fait le gros problème que je rencontre se situe ici :
 

Code :
  1. var1 = var1 + 1
  2. var2 = var2 + 1


 
Il s'agit d'un tableau d'une seule colonne, et quand j'écris var1 = var + 1 je voudrais juste passer à la celle d'après. Mais je sais pas trop comment rédiger ça

Reply

Marsh Posté le 15-10-2021 à 10:32:19   

Reply

Marsh Posté le 21-10-2021 à 16:15:22    

Tu utilises la méthode Cells(2, 1) plus haut, sauf qu'au lieu de valeurs numériques tu lui passes la position de la cellule après que tu mettras d'abord dans une variable...


Message édité par TotalRecall le 21-10-2021 à 16:15:44

---------------
Topic .Net - C# @ Prog
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed