[VBA] Fonction .Min

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Fonction .Min

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

Publicité

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

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

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Fonction .Min

Sujets relatifs
[VBA] code outlook format date	Resultat en fonction d'une date
[VBA Calc] Traiter le texte d'une cellule	Code range VBA
résolu -*Problème de double quote dans paramètres fonction	Accélerer l'exécution de mon programme en VBA
Perte des données copiées lors du lancement d'une macro VBA/Excel	Fonction onclick .svg RER A
insertion colonne et codage VBA	VBA Word signets
Plus de sujets relatifs à : [VBA] Fonction .Min

Page générée en 0.046 secondes