Recherche

1173 connectés

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Fonction .Min

Recherche :

Dernière réponse
Sujet : [VBA] Fonction .Min
TotalRecall	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...

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

TotalRecall

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...

julien1h

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 :

Sub macro()
Dim var1, var2
var1 = Cells(1, 1).Value
var2 = Cells(2, 1).Value
Debug.Print "var1 :" & var1
Debug.Print "var2 :" & var2
For i = 1 To 5
If var1 > var2 Then
var1 = var1 + 1
var2 = var2 + 1
Else
var2 = var2 + 1
End If
Next
Debug.Print "valeur minimale :" & var1
End Sub

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

Code :

var1 = var1 + 1
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