macro cellule = valeur max d'une plage + 1

[pandaexcel]

bonjour, je cherche une macro permettant en A1 d'inputer
la valeur max (a2:a2000) + 1
une idée ?

 

[suistrop]

Re : macro cellule = valeur max d'une plage + 1

bonjour, je cherche une macro permettant en A1 d'inputer
la valeur max (a2:a2000) + 1
une idée ?

sub cartman

for i = 2 to 2000

if max < cells(i,1) then
max = cells(i,1)
endif

next i

cells(1,1) = max+1

end sub

a tester

 

[ballmaster]

Re : macro cellule = valeur max d'une plage + 1

Bonsoir,

essaie ceci :

Sub max()

[a1].Select

[a1].Formula = "=max(a2:a2000)"
[a1].Value = [a1].Value + 1

End Sub

 

[Pierrot93]

Re : macro cellule = valeur max d'une plage + 1

Bonjour à tous,

une autre solution :

Range("A1").Value = WorksheetFunction.Max(Range("A2:A" & Range("A65536").End(xlUp).Row)) + 1

bonne fin d'après midi
@+

 

[pandaexcel]

Re : macro cellule = valeur max d'une plage + 1

merci beauoup cela fonctionne parfaitement !

 

[TooFatBoy]

Re : macro cellule = valeur max d'une plage + 1

Pourquoi une macro alors qu'une formule suffit ?

[edit]
Bon ben de toute façon j'arrive encore trop tard puisque le problème est résolu.
Bonne soirée.
[/edit]

 

[suistrop]

Re : macro cellule = valeur max d'une plage + 1

Pourquoi une macro alors qu'une formule suffit ?

[edit]
Bon ben de toute façon j'arrive encore trop tard puisque le problème est résolu.
Bonne soirée.
[/edit]

LoL de toute facon des qu on me demande un truc avec une formule je sais pas faire donc moi j ai pas trop le choix macro ou a la main 😀

 

[TooFatBoy]

Re : macro cellule = valeur max d'une plage + 1

😀

Mais ta macro est très bien. 😉


Bonne soirée.