Discussion :

[razorlok]

Voilà, j'aimerais trouver le moyen de sélectionner le plus grand nombre d'une colonne et d'attribuer ce nombre + 1 dans une cellule d'un fichier excel.

[RLX]

Salut razorlok,

tu peux utiliser la formule "MAX" ça fais ce que tu aimerais je pense

[olaxius]

un p'tit exemple vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim vPlage As Range
Dim vMax As Integer
Set vPlage = Range("A1:a500")
vMax = 0
For Each vCell In vPlage
   If vCell.Value > vMax Then vMax = vCell.Value
Next
 
Workbooks("tonfichier.xls").Worksheets("Feuil1").Cells(5, 1).Value = vMax

vala vala

[RLX]

ou plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B10").Formula = "=MAX(A:A)+1"

[razorlok]

Merci de vos réponses, cela m'éclaire un peu plus.
Cependant, je désire ajouter ce nombre +1, que je compte a partir d'une feuille1, dans une feuille2. Existe-t-il une commande du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("feuille2").Select
Range("B14") = Sheets("feuille1").Cells("G3")

Je voudrais donc afficher le résultat obtenu en feuille1 dans une cellule de la feuille2.

[SfJ5Rpw8]

dans la mesure du possible évite les Select et Activate...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("feuille2").Range("B14") = Sheets("feuille1").Range("G3")